26进制

'26进制转换，也就是由数字列转换为字母列
Public Function Num2Col(ByVal dNum As Long) As String
Dim Tstr As String
Dim dtime As Long
Const TBety  As Integer = 26

If dNum <= 0 Then
    Num2Col = "A"
    Exit Function
End If

If dNum <= 26 Then

Tstr = Chr(Asc("A") + dNum - 1)

Else

'dtime = Tirmfraction(dNum / TBety)

'dtime = dNum / TBety
Tstr = Num2Col(dtime)

dNum = dNum - dtime * TBety
Tstr = Tstr & Num2Col(dNum)

End If

Num2Col = Tstr

End Function