Αυτό είναι καλό αν σας αρέσει να χρησιμοποιείτε δηλώσεις όπως Εύρος ("A1") αντί για κελιά (1,1).
Έτσι, για παράδειγμα ColLetter (1) = A, ColLetter (2) = b,…, ColLetter (100) = CV κ.λπ.
3) ColLetter (αριθμός στήλης) => περνάει πίσω στήλη Letter.
Δημόσια λειτουργία ColLetter (colNumber As Long) As String
Αν colNumber <27 Τότε
Αν colNumber = 0 Τότε
ColLetter = "Z"
Αλλού
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", colNumber, 1)
Τέλος εαν
Αλλού
Αν colNumber <26 2 + 27 Τότε
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ΔΑΠΕΔΟ (colNumber / 26), 1)
ColLetter = ColLetter & ColLetter (colNumber Mod 26)
Αλλού
ColLetter = Mid ("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ΠΑΤΩΜΑ ((αριθμός Αριθμός - 26) / 676), 1)
ColLetter = ColLetter & ColLetter (colNumber - FLOOR ((colNumber - 26) / 676) * 676)
Τέλος εαν
Τέλος εαν
Λειτουργία Τέλους