Obsah
Štandardná funkcia stĺpca v Exceli vracia číslo namiesto písmena stĺpca, napríklad:
Stĺpec (E4) - vracia číslo 5 namiesto písmena E
Stĺpec (AD12) vracia číslo 30 namiesto AD.
Nasledujúca funkcia vracia písmeno a nie číslo stĺpca. Takže vo vyššie uvedených dvoch príkladoch máme písmená E a AD. Rutina sa vráti prázdna, ak sa odkazuje na viac ako jednu bunku:
Funkcia 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) Or (1_Out_Cow_ 1) Or "" Ukončiť funkciu Koniec Ak 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
