Innehållsförteckning
Standard Excel -kolumnfunktion returnerar siffran snarare än bokstaven i kolumnen, t.ex.
Kolumn (E4) - returnerar siffran 5 snarare än bokstaven E
Kolumn (AD12) returnerar talet 30 i stället för AD.
Följande funktion returnerar bokstaven snarare än kolumnens nummer. Så i de två exemplen ovan har vi bokstäverna E respektive AD. Rutinen returnerar tom om mer än en enda cell refereras:
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 Om slutfunktion
