Lang L: none (table-of-contents)
Tavaline Exceli veerufunktsioon tagastab veeru numbri asemel tähe, nt:
Veerg (E4) - tagastab numbri 5, mitte tähe E
Veerg (AD12) tagastab numbri 30, mitte AD.
Järgmine funktsioon tagastab veeru numbri asemel tähe. Nii et ülaltoodud kahes näites on meil vastavalt tähed E ja AD. Rutiin tagastatakse tühjaks, kui viidatakse rohkem kui ühele lahtrile:
Funktsioon Alpha_Column (Cell_Add As Range) String Dim Dim___Rows Nagu täisarv Dim No_of_Cols Nagu täisarv Dim Num_Column As Integer No_of_Rows = Cell_Add.Rows.Count No_of_Cols = Cell_Add.Columns.Count If ((No_of_Ross 1C Orpha) "" Välju funktsioonist Kui If Num_Column = Cell_Add.Column Kui Num_Column <26 Siis Alpha_Column = Chr (64 + Num_Column) Else Alpha_Column = Chr (Int (Num_Column / 26) + 64) & Chr ((Num_Column Mod 26) + 64) End Kui funktsioon Lõpp
