将数值转换为表示A -Z的类似EXCEL的字母串

时　间:2015-10-06 11:47:34
作　者:Victor Duane   ID：70  城市：闵行
摘　要:可以用A-Z，AZ，BZ，AB，这类字母串来表示从1开始的整数数值
正　文:

'将数值转换为表示A -Z的类似EXCEL的字母串
Function NumToAlphabet(Number As Integer) As String
    Dim dblNum As Long
    Dim digit As Long
    Const conStrList As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    
    dblNum = Number
    Do Until dblNum = 0
        digit = dblNum Mod 26
        If digit = 0 Then digit = 26
        NumToAlphabet = NumToAlphabet & Mid(conStrList, digit, 1)
        Debug.Print NumToAlphabet, digit
        If digit = 26 Then
            dblNum = (dblNum \ 26) - 1
        Else
            dblNum = dblNum \ 26
        End If
        Debug.Print dblNum
    Loop
    NumToAlphabet = StrReverse(NumToAlphabet)
End Function


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店