'###############################################################
'函数作用:字符地址转换为数值
'###############################################################
Public Function CtoN(Strings As String) As Integer
Dim Sl As Long, S1 As String, S2 As String
Strings = UCase(Strings)
Sl = Len(Strings)
If Sl = 0 Then
CtoN = 0
ElseIf Sl = 1 Then
CtoN = Asc(Strings) ‐ 64
ElseIf Sl > 1 Then
S1 = Mid(Strings, 1, 1)
S2 = Mid(Strings, 2, 1)
CtoN = (Asc(S1) ‐ 64) * 26 + Asc(S2) ‐ 64
End If
End Function
联系客服