求教字母组合问题

盗梦

风中漫步 发表于 2016-5-9 15:09
好的,再次感谢.

给我了很好的启发

1. Public Function g26(lngNum As Long)
   
2.     Dim str26 As String
   
3.     Dim lngMod As Long, lngZro As Long
   
4.    
   
5.     Do
   
6.         lngZro = (lngNum - 1) \ 26 '整除26
   
7.         lngMod = (lngNum - 1) Mod 26 '求余
   
8.         
   
9.         str26 = Chr(65 + lngMod) & str26
   
10.         lngNum = lngZro
    
11.     Loop While lngNum > 0
    
12.    
    
13.     g26 = str26
    
14. End Function

复制代码

给你这个，比较完整的转换，702得到结果是ZZ，703得到结果是AAA

roych

盗梦 发表于 2016-5-9 15:17
给你这个，比较完整的转换，702得到结果是ZZ，703得到结果是AAA

一直没搞懂，这有什么好研究的
如果使用了Excel，直接用cells之类基本不必管列标的问题，再不济就用R1C1格式应该也不必管这个问题。甚至大不了用数组来transpos也行……

风中漫步

盗梦 发表于 2016-5-9 15:17
给你这个，比较完整的转换，702得到结果是ZZ，703得到结果是AAA

测试通过.再次感谢

盗梦

roych 发表于 2016-5-9 15:50
一直没搞懂，这有什么好研究的
如果使用了Excel，直接用cells之类基本不必管列标的问题，再不济就用R1 ...

忘记之前具体是什么情况。那次实在没办法，需要显示列名，就需要。这种情况极少出现

todaynew

参见：http://www.office-cn.net/thread-121738-1-1.html