将数值转换为表示A -Z的类似EXCEL的字母串-Victor Duane
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2015/10/6 11:47:34 评论(0) 浏览(1526)  评论 | 加入收藏 | 复制
   
摘 要:可以用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群(群号:198465573)
 
 相关文章
递增A-Z  【UMVSOFT整理  2007/11/10】
a-z自动编号  【victorduane  2007/11/20】
[access查询]关于按“甲、乙、丙、丁”顺序排序问题,按甲乙丙...  【江羽  2009/8/26】
[access查询]如何自定义排序规则?以上午/下午/晚上三个字段...  【何必见戴  2011/12/29】
关于按“甲、乙、丙、丁”顺序排序问题  【在水一方  2014/8/22】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

Victor Duane

文章分类

文章存档

友情链接