(XD::Excel:i2ColNo)整数转EXCEL的列编号

newer · 发表于 2013-7-11 09:19:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2013-7-11 09:21 编辑

;|
整数转EXCEL的列编号
|;
(defun XD::Excel:i2ColNo (a)
(cond
((< a 0)
""
)
((>= a 0)
(strcat (XD::Excel:i2ColNo (1- (fix (/ a 26)))) (chr (+ 65
(rem a 26)
)
)
)
)
(t
nil
)
)
)

st788796 · 发表于 2014-12-18 08:19:02

上述函数支持列数有限制,修订如下

理论上支持Autolisp支持的最大正整数, 但是
excel 2003 工作表最大有2^16=65536行,2^8=256列
excel 2007 - 2013 最大有2^20=1048576行,2^14=16384列

;|整数转EXCEL的列编号|;
(defun XD::Excel:i2ColNo (a / l _i2ColNo)
(defun _i2ColNo (num / lst)
(cond
((<= 1 num 26)
(setq lst (cons num lst))
)
((> num 26)
(setq lst (append (_i2ColNo (/ num 26)) (list (rem num 26))))
)
(t lst)
)
lst
)
(if (and (>= (setq a (fix (abs a))) 1)
(setq l (_i2ColNo a))
)
(apply 'strcat
(mapcar '(lambda (x) (chr (+ 64 x))) l)
)
)
)

_$ (XD::EXCEL:I2COLNO 16384)
"XFD"
_$

守仁格竹GM · 发表于 2014-12-18 14:02:55

本帖最后由守仁格竹GM 于 2014-12-18 14:07 编辑

两个函数支持的上限一样
(XD::Excel:i2ColNo 2147483647)
"FXSHRXX" new版主的结果
"FXSHRXW" ST版主的结果
结果不一样
(XD::Excel:i2ColNo 27)
"AB" new版主的结果
"AA" ST版主的结果

st788796 · 发表于 2014-12-18 14:10:03

守仁格竹GM 发表于 2014-12-18 14:02
两个函数支持的上限一样
(XD::Excel:i2ColNo 2147483647)
"FXSHRXX" new版主的结果

哪个对呢？

守仁格竹GM · 发表于 2014-12-18 14:32:45

st788796 发表于 2014-12-18 14:10
哪个对呢？

上面又补充了一下，看起来应该是你这个结果正确

Lispboy · 发表于 2014-12-18 14:41:24

守仁格竹GM 发表于 2014-12-18 14:02
两个函数支持的上限一样
(XD::Excel:i2ColNo 2147483647)
"FXSHRXX" new版主的结果

从0开始算， 27 是 AB,
从1开始算， 27是AA

st788796 · 发表于 2014-12-18 14:52:10

本帖最后由 st788796 于 2014-12-18 14:54 编辑

Lispboy 发表于 2014-12-18 14:41
从0开始算， 27 是 AB,
从1开始算， 27是AA

不同解析库的计算不一样，XdEx是由0列起始，Excel中由1 (A)起始
N 版的对应XdEx解析库

Lispboy · 发表于 2014-12-18 15:47:55

st788796 发表于 2014-12-18 14:52
不同解析库的计算不一样，XdEx是由0列起始，Excel中由1 (A)起始
N 版的对应XdEx解析库

主要的还是对应ACAD的TABLE，不能到ACAD下了，在费遍事做个-1操作。

wenyish · 发表于 2016-11-25 09:01:51

慢慢看，还是看不懂。

账号		自动登录	找回密码
密码			立即注册

[EXCEL] (XD::Excel:i2ColNo)整数转EXCEL的列编号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评