मैं कैसे एक सेल के स्तंभ पत्र प्राप्त कर सकते हैं (, यह अतीत में इस तरह के ए.ए. के रूप में जेड स्तंभ काम करने की जरूरत है एबी)

Question

संभव डुप्लिकेट:
VBA function to convert column number to letter?

मैं करना चाहते हैं ज़ेड कॉलम के पीछे कॉलम अक्षर हैं, ज़ेड कॉलम से पहले इसे प्राप्त करने के लिए कई तकनीकें हैं लेकिन ज़ेड के बाद, कुछ भी काम नहीं करता क्या ऐसा करने का कोई तरीका है?

Answer 1

एक अन्य विधि:

Public Function ColumnLettersFromRange(rInput As Range) As String 

    ColumnLettersFromRange = Split(rInput.Address, "$")(1) 

End Function 

Answer 2

यह काम करना चाहिए:

 
Function ColumnName(rng As Range) As String 
    Dim s As String 
    s = rng.Address(False, False) 
    ColumnName = Left(s, Len(s) - Len(Format(rng.Row, "0"))) 
End Function 

Answer 3

वर्कशीट कार्यों का उपयोग करते हुए स्तंभ अक्षर गणना करने के लिए वास्तव में एक अच्छी योजना नहीं है। पीटर अल्बर्ट की वीबीए विधि का उपयोग करना इसे करने का एक बहुत अच्छा तरीका है!

मैं एक बना कार्यपत्रक फ़ंक्शन का उपयोग पर एक जाना था, सिर्फ मनोरंजन के लिए:/

ए-ZZ

=IF(A1<27,CHAR(64+A1),IF(A1<703,CHAR(64+INT(A1/26))&CHAR(A1-INT(A1/26)+64),"TOO BIG!")) 

ए-XFD (काम नहीं करता है)

=IF(A1<27,CHAR(64+A1),IF(A1<703,CHAR(64+INT(A1/26))&CHAR(A1-(INT(A1/26)*26)+64),CHAR(64+INT(A1/676))&CHAR(64+(INT(A1-(INT(A1/676)*676))/26))&CHAR(64+INT(A1-((INT(A1-(INT(A1/676)*676))/26)*26))))) 

अंतिम व्यक्ति पते में तीसरे चरित्र को काम करने की कोशिश करने पर पड़ता है, मैं इसे इस्तेमाल करने के रूप में परेशान नहीं किया जा सकता है यह एक अच्छी योजना नहीं है!