Seçili Hücrenin Sütun Harfini Bulma

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 ((No_of_Rows <> 1) Or (No_of_Cols <> 1)) Then
    Alpha_Column = ""
    Exit Function
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 If
End Function