Содержание
Стандартная функция 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_of_Cols) Or "" Завершить функцию End If Num_Column = Cell_Add.Column If Num_Column <26 Then Alpha_Column = Chr (64 + Num_Column) Else Alpha_Column = Chr (Int (Num_Column / 26) + 64) & Chr ((Num_Column Mod 26) + 64) End Если конечная функция
