Tabla de contenido
La función estándar de "Columna" de Excel devuelve el número en lugar de la letra de la columna, por ejemplo:
Columna (E4): devuelve el número 5 en lugar de la letra E
La columna (AD12) devuelve el número 30 en lugar de AD.
La siguiente función devuelve la letra en lugar del número de la columna. Entonces, en los dos ejemplos anteriores, tenemos las letras E y AD respectivamente. La rutina volverá en blanco si se hace referencia a más de una celda:
Función 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_Cols_Cols 1) "" Salir de la función 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 Si finaliza la función
