Excel列数字转换成字母的VBA递归算法

wanao2008

dcanoe 发表于 2023-2-5 21:08
楼主已经很厉害了，赞一个

感谢支持！还在学习。

今铭昔

我也写个尾递归的方式，VBA和JSA

zldccmx

So easy!

wanao2008

zldccmx 发表于 2023-2-6 11:10
So easy!

主要是为了学习递归，你的方法也非常好！

wanao2008

今铭昔 发表于 2023-2-6 07:52
我也写个尾递归的方式，VBA和JSA

虽然看不懂，但觉得非常棒！不明觉棒，哈哈！

飞天篮球猪

供参考：

1. ' 给定一个正整数,根据EXCEL列名规则(26进制)返回对应的字母
   
2. ' 1->A...Z->26...AA->27...ZY->701...FXSHRXW->2147483647
   
3. Sub ColAddr()
   
4. Const ColNum = 2147483647
   
5. Debug.Print ToColAddr(ColNum)
   
6. End Sub
   
7. 
   
8. Function ToColAddr$(n&, Optional Addr$)   ' Tail_Recursion
   
9. Dim m&
   
10. m = n Mod 26
    
11. If CBool(n) Then
    
12.     ToColAddr = ToColAddr(n \ 26 + CLng(m = 0), Chr(64 + IIf(m, m, 26)) & Addr)
    
13. Else
    
14.     ToColAddr = Addr
    
15. End If
    
16. End Function
    

复制代码

今铭昔

wanao2008 发表于 2023-2-6 11:30
虽然看不懂，但觉得非常棒！不明觉棒，哈哈！

计算方法都是一样的，这里只是用一个参数保存每次的递归结果，当递归停止条件成立时，返回这个参数就可以了。尾递归是递归的一种形式，编译器会针对这种情况进行优化，递归都会有内存栈开销，如果递归深度太大，性能会越来越差，并伴随着爆栈的风险。但是尾递归却只会有一个栈帧，尾递归与普通循环的效率差不了多少。

cui26896

wodewan 发表于 2023-2-5 20:49

看了老师的代码，有一个不理解的地方，1 mod 26为什么要取1？如果是2 mod 26,这时2/26是无限循环小数，这时该怎样取余数呢？

wodewan

cui26896 发表于 2023-3-22 19:02
看了老师的代码，有一个不理解的地方，1 mod 26为什么要取1？如果是2 mod 26,这时2/26是无限循环小数，这 ...

1.首先, 所有人的代码都是反斜线：“\”，不是“/",也就是整除，忽略小数,这两个是不同的。所以--> 2 \ 26=0 ， 27 \ 26 = 1。
2.另外，取余是相对于整数除法来说的，只有能整除或不能整除两种情况，不能整除时，就有余数。所以--> 2 mod 26=2，28 mod 26 = 2。
3.至于原理和10进制转2进制一样，都是辗转相除法（或者叫欧几里得算法，如果不清楚可以搜一下），只不过这里相当于26进制。

义龙

wanao2008 发表于 2023-2-5 23:23
躺在床上睡不着，优化一下代码：
Function GetColumnStr(n&) As String
    If n > 26 Then

能写个把数据转成128条形码的函数，与一个宏代码