Αυτήν τη στιγμή είστε εκτός σύνδεσης, σε αναμονή για επανασύνδεση στο Internet

Το πρόγραμμα περιήγησής σας δεν υποστηρίζεται

Πρέπει να ενημερώσετε το πρόγραμμα περιήγησης για να χρησιμοποιήσετε την τοποθεσία.

Κάντε ενημέρωση στην πιο πρόσφατη έκδοση του Internet Explorer

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

ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.

Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:833402
ΕΙΣΑΓΩΓΉ
Αυτό το άρθρο περιγράφει τον τρόπο χρήσης της Microsoft Visual Basic για τη συνάρτηση Applications (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 IfEnd Function
Σημείωση Αυτή η συνάρτηση μετατρέπει μόνο ακέραιοι αριθμοί που μεταβιβάζονται στο τους χαρακτήρα ισοδύναμου αλφαριθμητικό κείμενο. Δεν αλλάζει την εμφάνιση η στήλη ή οι κεφαλίδες γραμμών του φύλλου εργασίας φυσική.
Xl2007 xl xl97 xl2000 xl2002 xl2003

Προειδοποίηση: Αυτό το άρθρο έχει μεταφραστεί με μηχανική μετάφραση

Ιδιότητες

Αναγνωριστικό άρθρου: 833402 - Τελευταία αναθεώρηση: 09/19/2011 22:57:00 - Αναθεώρηση: 7.0

  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • kbcodesnippet kbcode kbhowto kbmt KB833402 KbMtel
Σχόλια