Sommario
La funzione standard "Colonna" di Excel restituisce il numero anziché la lettera della colonna, ad esempio:
Colonna (E4): restituisce il numero 5 anziché la lettera E
La colonna (AD12) restituisce il numero 30 anziché AD.
La seguente funzione restituisce la lettera anziché il numero della colonna. Quindi nei due esempi precedenti abbiamo rispettivamente le lettere E e AD. La routine restituirà vuoto se si fa riferimento a più di una singola cella:
Funzione 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 Then ((No_of_Rows_Cols 1) Or "" Exit Function 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
