Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| ||||
| ||||
Διαχώριση περιγραφής
Καλησπέρα σε όλη την παρέα Εχω μια λίστα με υλικά. Η τελευταία λέξη της περιγραφής του υλικού αφορά το μοντέλο του αυτοκινήτου. Θα ήθελα αν γίνεται αυτή την λέξη να την παίρνω σε μια ξεχωριστή στήλη ωστε να μπορω την φιλτράρω. Ευχαριστώ
__________________ Μανώλης Γαβαλάς Σηκώστε το κεφάλι ψηλά ! ;) |
#2
| |||
| |||
Καλησπέρα, Κώδικας: Sub Break_String() Dim WrdArray() As String Dim text_string As String text_string = Cells(3, "C") WrdArray() = Split(text_string) For i = LBound(WrdArray) To UBound(WrdArray) strg = strg & vbNewLine & "Part No. " & i & " - " & WrdArray(i) Next i MsgBox strg 'με αυτο εμφανίζεται η τελευταια λέξη σε messagebox του κελιου c3 MsgBox WrdArray(UBound(WrdArray)) End Sub |
#3
|
Καλησπέρα Φίλε Μάνο Ο τύπος, βρίσκει την τελευταία λέξη, σε μια οποιοδήποτε συμβολοσειρά (string). =TRIM(RIGHT(SUBSTITUTE(C3;" ";REPT(" ";LEN(C3)));LEN(C3))) Συμπληρωματικά: Ο πιο κάτω τύπος, δίνει την νιοστή λέξη, σε μια συμβολοσειρά. =TRIM(MID(SUBSTITUTE(C3;" ";REPT(" ";LEN(C3)));(i-1)*LEN(C3)+1;LEN(C3))) Αντικαταστήστε το i με τον αριθμό λέξης που ψάχνετε. πχ i=3 για να βρείτε την 3η κατά σειρά λέξη. |
#4
|
Γεια σας και πάλι. Άλκηστη, πολύ ενδιαφέρον ο κώδικας που μας παρουσιάζεις και με κάποιες μετατροπές θα είναι σίγουρα χρήσιμος σε κάποια έργα μας. Θα πρέπει να μην ξεχνάς να δηλώνεις όλες τις μεταβλητές σου. Εδώ θα πρέπει να δηλώσεις ακόμα τα : Dim i As Long, και strg As String Για να μην «ξεφεύγουν» κάποιες μεταβλητές ρύθμισε από τα Tools ► Options ► Editor ► το 2ο checkbox (Require Variable Declaration) να είναι ενεργοποιημένο. Θα εμφανίζεται στο επάνω μέρος των module ► Option Explicit |
#5
|
Ακόμη μια περίπτωση, όπου προβλέπει και το λάθος, να έχουμε κενό (space) στο τέλος της πρότασης. Κώδικας: =IF(ISERR(FIND(" ";TRIM(C3)));TRIM(C3);TRIM(MID(C3;LOOKUP(LEN(C3);FIND(" ";TRIM(C3);ROW($A$1:$A$255)))+1;LEN(C3)))) Αντικαταστήστε το ROW($A$1:$A$255) ,με κάτι μεγαλύτερο. Αν για παράδειγμα η πρόταση έχει 285 χαρακτήρες ► ROW($A$1:$A$300) κ.ο.κ |
#6
| ||||
| ||||
Σας ευχαριστώ πού για τις λύσεις που μου δώσατε . Με βοήθησαν πάρα πολύ Με εκτίμηση Μανώλης
__________________ Μανώλης Γαβαλάς Σηκώστε το κεφάλι ψηλά ! ;) |
#7
| |||
| |||
Σπύρο, σε ευχαριστώ για τις επικοδομητικές παρατηρήσεις σου στην απάντησή μου. |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[Συναρτήσεις] Εμφάνιση και εικόνας από αναζήτηση περιγραφής. | Mitsos | Excel - Ερωτήσεις / Απαντήσεις | 3 | 22-11-12 11:50 |
[Συναρτήσεις] Αντιστοίχιση περιγραφής με κωδικό. | gr8styl | Excel - Ερωτήσεις / Απαντήσεις | 7 | 16-07-11 22:27 |
Η ώρα είναι 12:11.