Inhoudsopgave
De standaard Excel "Kolom"-functie retourneert het nummer in plaats van de letter van de kolom, bijvoorbeeld:
Kolom (E4) - geeft het getal 5 terug in plaats van de letter E
Kolom (AD12) retourneert het getal 30 in plaats van AD.
De volgende functie retourneert de letter in plaats van het nummer van de kolom. Dus in de bovenstaande twee voorbeelden hebben we respectievelijk de letters E en AD. De routine retourneert blanco als er naar meer dan één cel wordt verwezen:
Functie 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 1) (Counts_Now) "" Functie verlaten 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 Als Eindfunctie
