रिटर्न सेल कॉलम लेटर - वीबीए कोड उदाहरण

मानक एक्सेल "कॉलम" फ़ंक्शन कॉलम के अक्षर के बजाय संख्या देता है जैसे:

स्तम्भ(E4) - E . अक्षर के बजाय संख्या 5 देता है
कॉलम (AD12) AD के बजाय 30 नंबर देता है।

निम्नलिखित फ़ंक्शन कॉलम की संख्या के बजाय अक्षर लौटाता है। तो उपरोक्त दो उदाहरणों में हमारे पास क्रमशः E और AD अक्षर हैं। यदि एक से अधिक सेल का संदर्भ दिया जाता है तो रूटीन खाली हो जाएगा:

फ़ंक्शन Alpha_Column(Cell_Add as Range) स्ट्रिंग डिम No_of_Rows के रूप में इंटीजर डिम No_of_Cols के रूप में Integer Dim Num_Column Integer No_of_Rows = Cell_Add.Rows.Count No_of_Cols = Cell_Add.Columns.Count if ((No_of_Rows 1) या (No_of_Cols) "" एक्ज़िट फंक्शन एंड अगर Num_Column = Cell_Add.Column अगर Num_Column <26 है तो Alpha_Column = Chr (64 + Num_Column) Else Alpha_Column = Chr (Int (Num_Column / 26) + 64) और Chr ((Num_Column Mod 26) + 64) End अगर अंत समारोह