Tartalomjegyzék
A szabványos Excel „Oszlop” függvény az oszlop betűje helyett a számot adja vissza, például:
Oszlop (E4) - az E betű helyett az 5 -ös számot adja vissza
Az oszlop (AD12) az 30 helyett a 30 -at adja vissza.
A következő függvény a betűt adja vissza, nem pedig az oszlop számát. Tehát a fenti két példában az E és az AD betű szerepel. A rutin üresen tér vissza, ha egynél több cellára hivatkozik:
Függvény Alpha_Column (Cell_Add As Range) Mint 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_Rov 1) oszlopok "" Kilépési függvény vége Ha Num_Column = Cell_Add.Column Ha Num_Column <26 Akkor Alpha_Column = Chr (64 + Num_Column) Egyéb Alpha_Column = Chr (Int (Num_Column / 26) + 64) & Chr ((26. szám) oszlop + 64) vége Ha a funkció befejezése
