Съдържание
Стандартната функция „колона“ на 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.Count If (No_Com_Cool 1 "" Изход от функцията 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) Ако прекрати функцията
