Pismo stolpca vrnjene celice - primeri kode VBA

Kazalo

Standardna Excelova funkcija »stolpec« vrne številko in ne črko stolpca, na primer:

Stolpec (E4) - vrne številko 5 in ne črko E
Stolpec (AD12) vrne številko 30 in ne AD.

Naslednja funkcija vrne črko in ne številko stolpca. Torej v zgornjih dveh primerih imamo črki E oziroma AD. Rutina se vrne prazna, če se sklicuje na več kot eno celico:

Funkcija 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_Col_Cool 1 "" Izhod funkcije End, če je Num_Column = Cell_Add.Column Če je Num_Column <26 Potem je Alpha_Column = Chr (64 + Num_Column) Sicer Alpha_Column = Chr (Int (Num_Column / 26) + 64) & Chr ((Num_Column Mod 26) + 64) End Če končate funkcijo

Vam bo pomagal razvoj spletnega mesta, ki si delijo stran s svojimi prijatelji

wave wave wave wave wave