Πίνακας περιεχομένων
Η τυπική συνάρτηση Excel "Column" επιστρέφει τον αριθμό και όχι το γράμμα της στήλης, π.χ.
Στήλη (Ε4) - επιστρέφει τον αριθμό 5 και όχι το γράμμα Ε
Η στήλη (AD12) επιστρέφει τον αριθμό 30 και όχι μ.Χ.
Η ακόλουθη συνάρτηση επιστρέφει το γράμμα και όχι τον αριθμό της στήλης. Έτσι στα δύο παραπάνω παραδείγματα έχουμε τα γράμματα Ε και ΑΔ αντίστοιχα. Η ρουτίνα θα επιστρέψει κενή εάν αναφέρονται περισσότερα από ένα κελιά:
Συνάρτηση 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_Coll_Coll_Coll_Cols_Fount_Count_Cols_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Coll_Count_Off = "" Έξοδος από τη λειτουργία λήξης εάν Num_Column = Cell_Add.Column If Num_Column <26 Τότε Alpha_Column = Chr (64 + Num_Column) Else Alpha_Column = Chr (Int (Num_Column / 26) + 64) & Chr ((Num_Column Mod 26) + 64) End Αν η λειτουργία τερματισμού
