EXCEL是我们在工作和学习中经常要用到了，有些时候需要批量修改或者有规律的改动我们就可以用易语言编译一个简单的工作簿修改工具进行快速有效的修改。
那么就需要考虑到工作簿列的递增关系
比如说“A”的下一列就是“B”，“Z”之后是“AA”他们的递增关系怎么用易语言计算
按照下面的代码要想计算“Z”后面是什么只需要：【到字母 (到数 (“Z”) ＋ 1)】即可求得“AA”
[Asm] 纯文本查看 复制代码 .版本 2
.子程序 到字母, 文本型
.参数 数值, 整数型
.局部变量 变量, 整数型
.局部变量 代码, 文本型
.局部变量 反代码, 文本型
.局部变量 商, 整数型
.局部变量 余, 字节型
商 ＝ 数值 ÷ 26
余 ＝ 数值 ％ 26
.如果 (余 ＝ 0)
代码 ＝ “Z”
商 ＝ 商 － 1
.否则
代码 ＝ 返回字母 (余 － 1)
.如果结束
.判断循环首 (商 ≥ 26)
数值 ＝ 商
商 ＝ 数值 ÷ 26
余 ＝ 数值 ％ 26
.如果真 (余 ＝ 0)
代码 ＝ 代码 ＋ “Z”
.如果真结束
.判断循环尾 ()
.如果真 (商 ＞ 0)
代码 ＝ 代码 ＋ 返回字母 (商 － 1)
.如果真结束
.变量循环首 (取文本长度 (代码), 1, -1, 变量)
反代码 ＝ 反代码 ＋ 取文本中间 (代码, 变量, 1)
.变量循环尾 ()
返回 (反代码)
.子程序 到数, 整数型
.参数 代码, 文本型, 参考
.局部变量 变量, 整数型
.局部变量 数值, 整数型
.局部变量 长度, 字节型
长度 ＝ 取文本长度 (代码)
.计次循环首 (长度, 变量)
.如果真 (取代码 (代码, 变量) ≠ 48)
数值 ＝ 数值 ＋ (取代码 (代码, 变量) － 64) × 求次方 (26, 长度 － 变量)
.如果真结束
.计次循环尾 ()
返回 (数值)
.子程序 返回字母, 文本型
.参数 余, 整数型
.如果真 (余 ＝ 25)
返回 (“Z”)
.如果真结束
.如果真 (余 ＝ 0)
返回 (“A”)
.如果真结束
.如果真 (余 ＝ 1)
返回 (“B”)
.如果真结束
.如果真 (余 ＝ 2)
返回 (“C”)
.如果真结束
.如果真 (余 ＝ 3)
返回 (“D”)
.如果真结束
.如果真 (余 ＝ 4)
返回 (“E”)
.如果真结束
.如果真 (余 ＝ 5)
返回 (“F”)
.如果真结束
.如果真 (余 ＝ 6)
返回 (“G”)
.如果真结束
.如果真 (余 ＝ 7)
返回 (“H”)
.如果真结束
.如果真 (余 ＝ 8)
返回 (“I”)
.如果真结束
.如果真 (余 ＝ 9)
返回 (“J”)
.如果真结束
.如果真 (余 ＝ 10)
返回 (“K”)
.如果真结束
.如果真 (余 ＝ 11)
返回 (“L”)
.如果真结束
.如果真 (余 ＝ 12)
返回 (“M”)
.如果真结束
.如果真 (余 ＝ 13)
返回 (“N”)
.如果真结束
.如果真 (余 ＝ 14)
返回 (“O”)
.如果真结束
.如果真 (余 ＝ 15)
返回 (“P”)
.如果真结束
.如果真 (余 ＝ 16)
返回 (“Q”)
.如果真结束
.如果真 (余 ＝ 17)
返回 (“R”)
.如果真结束
.如果真 (余 ＝ 18)
返回 (“S”)
.如果真结束
.如果真 (余 ＝ 19)
返回 (“T”)
.如果真结束
.如果真 (余 ＝ 20)
返回 (“U”)
.如果真结束
.如果真 (余 ＝ 21)
返回 (“V”)
.如果真结束
.如果真 (余 ＝ 22)
返回 (“W”)
.如果真结束
.如果真 (余 ＝ 23)
返回 (“X”)
.如果真结束
.如果真 (余 ＝ 24)
返回 (“Y”)
.如果真结束
返回 (“Z”)
| 
发表于 2016-12-1 20:02
路过 围观
