Зміст
Стандартна функція "Колонка" Excel повертає число, а не букву стовпця, наприклад:
Стовпець (E4) - повертає цифру 5, а не букву E
Стовпець (AD12) повертає число 30, а не AD.
Наступна функція повертає літеру, а не номер стовпця. Отже, у двох наведених вище прикладах ми маємо літери E та AD відповідно. Підпрограма поверне порожнє значення, якщо посилається на більше однієї комірки:
Функція Alpha_Column (Cell_Add As Range) As String Dim No_of_Rows As Integer Dim No_of_Cols As Integer Dim Num_Column As Integer No_of_Rows = Cell_Add.Rows.Count No_of_Cols = Cell_Add.Columns. "" Вихід із функції End, якщо Num_Column = Cell_Add.Column Якщо Num_Column <26 Тоді Alpha_Column = Chr (64 + Num_Column) Ще Alpha_Column = Chr (Int (Num_Column / 26) + 64) & Chr ((Num_Column Mod 26) + 64) End Якщо функція завершення
