Πώς να μετατρέψετε αριθμούς στηλών του Excel σε αλφαβητικούς χαρακτήρες

ΕΙΣΑΓΩΓΗ

Αυτό το άρθρο περιγράφει τον τρόπο χρήσης της Microsoft Visual Basic για εφαρμογές (VBA) συνάρτηση στο Microsoft Excel για να μετατρέψετε αριθμούς στηλών σε τους αντίστοιχο γράμμα της αλφαβήτου προσδιοριστικό για την ίδια στήλη.

Για παράδειγμα, ο αριθμός στήλης 30 μετατρέπεται σε το ισοδύναμη αλφαβητικούς χαρακτήρες "AD".

Περισσότερες πληροφορίες

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Η συνάρτηση ConvertToLetter λειτουργεί, χρησιμοποιώντας τον ακόλουθο αλγόριθμο:
  1. Διαιρέστε τον αριθμό στήλης με 27 και, στη συνέχεια, τοποθετήστε τον ακέραιο αριθμό που προκύπτουν στη μεταβλητή "i".
  2. Αφαίρεση του αριθμού στήλης από το "i" πολλαπλασιασμένη με 26, και, στη συνέχεια, να τοποθετήσετε το αποτέλεσμα στη μεταβλητή "j".
  3. Μετατρέψτε τις ακέραιες τιμές σε τα αντίστοιχα αλφαβητικούς χαρακτήρες, "i" και "j" θα κυμαίνονται από 0 έως 26 αντίστοιχα.
Για παράδειγμα: Ο αριθμός της στήλης είναι 30.
  1. Ο αριθμός στήλης που διαιρείται με 27:30 / 27 = 1.1111, στρογγυλοποίηση προς τα κάτω από τη συνάρτηση Int σε "1".
    i = 1
  2. Επόμενος αριθμός στηλών - (i * 26) = 30-(1 * 26) = 30-26 = 4.

    j = 4
  3. Μετατροπή τιμών σε αλφαβητικούς χαρακτήρες ξεχωριστά,

    i = 1 = "A"
    j = 4 = "D"
  4. Να συνδυαστούν, σχηματίζουν το προσδιοριστικό στήλης "AD".
Η παρακάτω συνάρτηση VBA είναι απλώς ένας τρόπος για να μετατρέψετε αριθμητικές τιμές στήλης σε τους αλφαβητικούς χαρακτήρες ισοδύναμα:
Function ConvertToLetter(iCol As Integer) As String   Dim iAlpha As Integer
Dim iRemainder As Integer
iAlpha = Int(iCol / 27)
iRemainder = iCol - (iAlpha * 26)
If iAlpha > 0 Then
ConvertToLetter = Chr(iAlpha + 64)
End If
If iRemainder > 0 Then
ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
End If
End Function

Σημείωση Αυτή η συνάρτηση μετατρέπει μόνο ακέραιοι αριθμοί που μεταβιβάζονται στο τους χαρακτήρα ισοδύναμου αλφαριθμητικό κείμενο. Δεν αλλάζει την εμφάνιση η στήλη ή οι κεφαλίδες γραμμών του φύλλου εργασίας φυσική.
Ιδιότητες

Αναγνωριστικό άρθρου: 833402 - Τελευταία αναθεώρηση: 17 Ιαν 2017 - Αναθεώρηση: 1

Σχόλια