[VBA] Excel VBA

[ggreg75]

Καλησπέρα σας,

Θα ήθελα την βοήθεια σας στο πως μπορώ να εισάγω έναν κώδικα στο excel.
Τον κάτωθι κώδικα τον χρησιμοποιώ σε access με τον οποίο μπορώ να κάνω διαχωρισμό των δεδομένων με κάποιον χαρακτήρα οριοθέτησης (σε αυτήν την περίπτωση ο οριοθέτης είναι το pipe).

Θα μπορούσατε να μου πείτε τα βήματα προκειμένου να εισάγω αυτόν το κώδικά στο VBA του Excel και μετά να το βλέπει ως συνάρτηση μέσα από την οποία να μπορώ να έχω αυτήν την δυνατότητα και σε excel;

Φυσικά ο παρακάτω κώδικας είναι πολύ χρήσιμος και ας τον κρατήσει όποιος χρησιμοποιεί και access.

-----------------------------------------------------------------------------------------------------------
Public Function SplitPipes(str As String, i As Long) As String

Dim arSplit As Variant

arSplit = Split(str, "|")
' Check that arSplit has enough elements
If i - 1 <= UBound(arSplit) Then
' Split creates a 0-based array, but it is easier to start with index 1 in the query
SplitPipes = arSplit(i - 1)
Else
' out of elements -> return empty string
SplitPipes = ""
End If

End Function
--------------------------------------------------------------------------

Ευχαριστώ εκ των προτέρων

Γρηγόρης

[Spirosgr]

Καλησπέρα
Έστω σε κελί a1, ένα string, πχ: text|string|value|2 το οποίο έχει Χ στοιχεία, διαχωρισμένα με "|".
Θα θέλαμε, κατ' επιλογήν, να έχουμε στο b1 κελί,
κάποιο από τα στοιχεία του πχ το 2ο = string ή το 3ο = value.

*Βλέπε εικ. VBA ed
Πατάμε τον συνδιασμό πλήκτρων Alt + F11 και μεταφερόμαστε σε περιβάλλον VBA editor.
Προσθέτουμε μια module και αντιγράφουμε τον κώδικα.
Η συνάρτηση, έχει καταχωρηθεί, μαζί με όλες τις άλλες Excel συναρτήσεις ως UDF συνάρτηση.
*Αποθήκευση βιβλίου ως .xlsm

*Βλέπε εικ. UDF
Στο κελί b1, εισάγουμε την συνάρτηση =SplitPipes()
Η συνάρτηση έχει δύο ορίσματα:
1. κελί = βάζουμε-επιλέγουμε a1
2. αριθμός = βάζουμε τον αριθμό σειράς του στοιχείου που θέλουμε να εμφανιστεί (πχ 2 για string)

Χρησιμοποιούμε την συνάρτηση, όπως οποιαδήποτε άλλη συνάρτηση Excel...
πχ «τραβάμε» κάτω όσο χρειαστεί.
Αν θέλουμε διαφορετικό διαχωριστικό, τότε αντικαθιστούμε στην γραμμή του κώδικα:
arSplit = Split (str, "|") το διαχωριστικό της επιλογής μας
πχ arSplit = Split (str, "-") για διαχωριστικό «παύλα».

[ggreg75]

Ευχαριστώ πολύ Σπύρο!

[Spirosgr]

Να 'σαι καλά!