立即注册 登录
库管易 返回首页

花生壳的个人空间 https://home.kuguanyi.com/?60051 [收藏] [复制] [分享] [RSS]

日志

使用VBA将Excel的列数字转换为列名

已有 49 次阅读2019-5-28 15:30

在Excel表格的VBA编程中,非常实用的一个函数,可以把数字转换为对应的列名。
'*****************************************************************************
'将Excel中列数转换为列名(如27列--->AA列)
'参数:var 列数
'返回:列名 string
'*****************************************************************************
Public Function NumToLei(ByVal var As Integer) As String
    Dim res As String
    Dim remainder As Integer '余数
    Dim quotient As Integer    '商
    remainder = var Mod 26
    If remainder = 0 Then
        var = var - 26
        remainder = 26
    End If
    quotient = var \ 26
    If quotient <> 0 Then
        res = NumToLei(quotient)
    End If
    NumToLei = res & Chr(remainder + 65 - 1)
End Function

路过

鸡蛋

鲜花

握手

雷人

评论 (0 个评论)

facelist

您需要登录后才可以评论 登录 | 立即注册

手机版|仓库管理网| 渝ICP备18009661号-1|beian渝公网安备50010102000613号

GMT+8, 2019-6-18 09:57

Powered by 库管易

KuGuanYi.Com

返回顶部