Cuprins
Funcția standard „Coloană” Excel returnează numărul, mai degrabă decât litera coloanei, de exemplu:
Coloana (E4) - returnează numărul 5 mai degrabă decât litera E
Coloana (AD12) returnează numărul 30 mai degrabă decât AD.
Următoarea funcție returnează litera mai degrabă decât numărul coloanei. Deci, în cele două exemple de mai sus avem literele E și respectiv AD. Rutina va reveni necompletată dacă se face referință la mai mult de o singură celulă:
Funcția 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) Alfa (1) "" Ieșire funcție Sfârșit Dacă Num_Column = Cell_Add.Column Dacă Num_Column <26 Apoi Alpha_Column = Chr (64 + Num_Column) Else Alpha_Column = Chr (Int (Num_Column / 26) + 64) & Chr ((Num_Column Mod 26) + 64) End Dacă funcția de sfârșit
