Obsah
Standardní funkce Excel „Sloupec“ vrací číslo namísto písmene sloupce, například:
Sloupec (E4) - vrací číslo 5 spíše než písmeno E
Sloupec (AD12) vrací číslo 30 namísto AD.
Následující funkce vrací spíše písmeno než číslo sloupce. Takže ve výše uvedených dvou příkladech máme písmena E a AD. Pokud je odkazováno na více než jednu buňku, rutina se vrátí prázdná:
Funkce 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 (When_of_Rows 1) Or ( "" Konec Funkce Konec Pokud 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
