Índice
A função de “coluna” padrão do Excel retorna o número em vez da letra da coluna, por exemplo:
Coluna (E4) - retorna o número 5 em vez da letra E
A coluna (AD12) retorna o número 30 em vez de AD.
A função a seguir retorna a letra em vez do número da coluna. Portanto, nos dois exemplos acima, temos as letras E e AD, respectivamente. A rotina retornará em branco se mais de uma única célula for referenciada:
Função 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_Rows 1) Ou (No_of_Rows 1) Ou (No_of_Rows 1) "" Sair da função 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 If End Function