[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
--------------------------------------------------------------------------

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

Γρηγόρης