Indholdsfortegnelse
Standardfunktionen i Excel “Kolonne” returnerer tallet frem for bogstavet i kolonnen, f.eks .:
Kolonne (E4) - returnerer tallet 5 frem for bogstavet E
Kolonne (AD12) returnerer tallet 30 frem for AD.
Følgende funktion returnerer bogstavet i stedet for kolonnens nummer. Så i de to ovenstående eksempler har vi bogstaverne E og AD. Rutinen returnerer blank, hvis der refereres til mere end en enkelt celle:
Funktion Alpha_Column (Cell_Add As Range) Som 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) or (No_of_ "" 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 Hvis slutfunktion
