Innholdsfortegnelse
Standard Excel "kolonne" -funksjon returnerer tallet i stedet for bokstaven i kolonnen, for eksempel:
Kolonne (E4) - returnerer tallet 5 i stedet for bokstaven E
Kolonne (AD12) returnerer tallet 30 i stedet for AD.
Følgende funksjon returnerer bokstaven i stedet for nummeret på kolonnen. Så i de to eksemplene ovenfor har vi bokstavene E og AD. Rutinen returnerer blank hvis det refereres til mer enn en enkelt celle:
Funksjon 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_Col__ "" Avslutt funksjon End hvis 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 Sluttfunksjon
