شماره ستون اکسل

Function b(mxyz)
    xyz = UCase(mxyz)
    m = 0
    strl = Len(xyz)
    For i = 1 To strl
        chars = Mid(xyz, strl - (i - 1), 1)
        char_code = Asc(chars)
        If char_code < 65 Or char_code > 90 Then
            Err.Raise 15635
        Else
            m = m + 26 ^ (i - 1) * (char_code - 64)
        End If
    Next
    b = m
End Function