Satura rādītājs
Standarta Excel kolonnas funkcija atgriež skaitli, nevis kolonnas burtu, piemēram:
Kolonna (E4) - atgriež skaitli 5, nevis burtu E
Kolonna (AD12) atgriež skaitli 30, nevis AD.
Šī funkcija atgriež burtu, nevis kolonnas numuru. Tātad iepriekš minētajos divos piemēros mums ir attiecīgi burti E un AD. Rutīna atgriezīsies tukša, ja ir atsauce uz vairāk nekā vienu šūnu:
Funkcija Alpha_Column (Cell_Add As Range) Kā virkne Dim Dimension__Rows Kā vesels skaitlis Dim No_of_Cols Kā vesels skaitlis Dim Num_Column Kā vesels skaitlis No_of_Rows = Cell_Add.Rows.Count No_of_Cols = Cell_Add.Columns.Count If ((No_of_Rof 1Column) "" Iziet funkcijas beigas Ja 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 Ja beigu funkcija
