<原创>两个数字列号转字母列名的小程序

标签：http   img   数字   编写   字母   生成   nbsp   font   ring   

　　我在工作中遇到一个问题，在编写excel宏代码的时候，有时候，某一个数据需要定位放在某一个单元格中，但是这个单元格并不是本身就存在的单元格，而是在程序执行过程中，一步一步填写数据之后生成出来的单元格，只知道应该是第几列，却不知道列名字母是什么，所以，我就编写了下面的小程序，两个小程序的效果一样，只不过在编写思路上有差别。

这两个小程序都采用了函数的方式，方便在其他的程序中调用。

  Function ColNoToColName1(ColNo As Integer) As String  ‘列号转为列名

     If ColNo > 26 Then

       ColName = Chr(Int((ColNo - 1) / 26) + 64) & Chr(((ColNo - 1) Mod 26) + 65)

     Else

       ColName = Chr(ColNo + 64)

     End If

       ColNoToColName1 = ColName

   End Function

  Function ColNoToColName2(ColNo As Integer) As String  ‘列号转为列名

     ColName = ""

     LeftWord = ""

     RightWord = ""

     If ColNo <= 26 Then

        ColName = Chr(Asc("A") + ColNo - 1) ‘单字母列

     Else

        If Int(ColNo / 26) = (ColNo / 26) Then

           LeftWord = Chr(Asc("A") + Int(ColNo / 26) - 2) ‘双字母列

           RightWord = Chr(Asc("A") + Int(ColNo - (Int(ColNo / 26) - 1) * 26) - 1)

        Else

           LeftWord = Chr(Asc("A") + Int(ColNo / 26) - 1) ‘双字母列

           RightWord = Chr(Asc("A") + Int(ColNo - Int(ColNo / 26) * 26) - 1)

        End If

        ColName = LeftWord & RightWord

     End If

        ColNoToColName2 = ColName

   End Function

<原创>两个数字列号转字母列名的小程序

标签：http   img   数字   编写   字母   生成   nbsp   font   ring   

原文地址：http://www.cnblogs.com/Wind-Rain-Pavilion/p/6693986.html