ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Συναρτήσεις] Διαχώριση περιγραφής

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 14-01-15, 21:33
Το avatar του χρήστη manolis
Όνομα: Μανώλης
Έκδοση λογισμικού Office: Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-10-2009
Περιοχή: Ηλιούπολη
Μηνύματα: 280
Προεπιλογή Διαχώριση περιγραφής

Καλησπέρα σε όλη την παρέα

Εχω μια λίστα με υλικά.
Η τελευταία λέξη της περιγραφής του υλικού αφορά το μοντέλο του αυτοκινήτου.
Θα ήθελα αν γίνεται αυτή την λέξη να την παίρνω σε μια ξεχωριστή στήλη ωστε να μπορω την φιλτράρω.



Ευχαριστώ
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx PERIGRAFH MANOS.xlsx (9,2 KB, 11 εμφανίσεις)
__________________
Μανώλης Γαβαλάς
Σηκώστε το κεφάλι ψηλά ! ;)
Απάντηση με παράθεση
  #2  
Παλιά 14-01-15, 22:16
Όνομα: Αλκηστις
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 14-12-2014
Μηνύματα: 18
Προεπιλογή

Καλησπέρα,

Κώδικας:
    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  
Παλιά 14-01-15, 22:28
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Καλησπέρα
Φίλε Μάνο

Ο τύπος, βρίσκει την τελευταία λέξη, σε μια οποιοδήποτε συμβολοσειρά (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  
Παλιά 14-01-15, 22:42
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Γεια σας και πάλι.
Άλκηστη, πολύ ενδιαφέρον ο κώδικας που μας παρουσιάζεις και με κάποιες μετατροπές θα είναι σίγουρα χρήσιμος σε κάποια έργα μας.
Θα πρέπει να μην ξεχνάς να δηλώνεις όλες τις μεταβλητές σου.
Εδώ θα πρέπει να δηλώσεις ακόμα τα :
Dim i As Long, και
strg As String

Για να μην «ξεφεύγουν» κάποιες μεταβλητές ρύθμισε από τα
Tools ► Options ► Editor ► το 2ο checkbox (Require Variable Declaration) να είναι ενεργοποιημένο.
Θα εμφανίζεται στο επάνω μέρος των module ► Option Explicit
Απάντηση με παράθεση
  #5  
Παλιά 14-01-15, 23:26
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Ακόμη μια περίπτωση, όπου προβλέπει και το λάθος, να έχουμε κενό (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))))
Σε περίπτωση που στο κελί, υπάρχει πρόταση με περισσότερους από 255 χαρακτήρες, τότε:

Αντικαταστήστε το ROW($A$1:$A$255) ,με κάτι μεγαλύτερο.
Αν για παράδειγμα η πρόταση έχει 285 χαρακτήρες ► ROW($A$1:$A$300) κ.ο.κ
Απάντηση με παράθεση
  #6  
Παλιά 15-01-15, 19:57
Το avatar του χρήστη manolis
Όνομα: Μανώλης
Έκδοση λογισμικού Office: Ms-Office 2013, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 20-10-2009
Περιοχή: Ηλιούπολη
Μηνύματα: 280
Προεπιλογή

Σας ευχαριστώ πού για τις λύσεις που μου δώσατε . Με βοήθησαν πάρα πολύ

Με εκτίμηση
Μανώλης
__________________
Μανώλης Γαβαλάς
Σηκώστε το κεφάλι ψηλά ! ;)
Απάντηση με παράθεση
  #7  
Παλιά 15-01-15, 22:25
Όνομα: Αλκηστις
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 14-12-2014
Μηνύματα: 18
Προεπιλογή

Σπύρο,

σε ευχαριστώ για τις επικοδομητικές παρατηρήσεις σου στην απάντησή μου.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Εμφάνιση και εικόνας από αναζήτηση περιγραφής. Mitsos Excel - Ερωτήσεις / Απαντήσεις 3 22-11-12 11:50
[Συναρτήσεις] Αντιστοίχιση περιγραφής με κωδικό. gr8styl Excel - Ερωτήσεις / Απαντήσεις 7 16-07-11 22:27


Η ώρα είναι 12:11.