Spisie treści
Standardowa funkcja „Kolumna” programu Excel zwraca liczbę, a nie literę kolumny, np.:
Kolumna(E4) - zwraca liczbę 5 zamiast litery E
Kolumna(AD12) zwraca liczbę 30 zamiast AD.
Poniższa funkcja zwraca literę, a nie numer kolumny. Tak więc w powyższych dwóch przykładach mamy odpowiednio litery E i AD. Procedura zwróci wartość pustą, jeśli istnieje odwołanie do więcej niż jednej komórki:
Function 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 ((liczba_1)_kolumn (1) "" Wyjście z funkcji End If 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 Jeśli funkcja końcowa
