Excel数字列号转换为字母列号

wdmzslw

• [sell=2];;说明:Excel数字列号转换为字母列号的函数
  ;;参数:num:整数。理论取值范围为1-18278，但Excel2007以后版本最大列数为16384（XFD），超过此值没有意义。
  ;;返回:字母字符串
  ;;作者：wdmzslw
  (defun Excel::COLnum2alph(num / v1 v2 v3)
          (setq v1 (/ num 676)
                      v2 (/ (rem num 676) 26)
                      v3 (rem (rem num 676) 26)
          )
          (if (= 0 v3)
                  (if (= 0 v2)
                          (setq v1 (- v1 1)
                                      v2 25
                                      v3 26
                          )
                          (setq v2 (- v2 1)
                                      v3 26
                          )
                  )
          )
          (if (and(/= v1 0 )(= 0 v2))
                          (setq v1 (- v1 1)
                                v2 26
                  )
          )
          (vl-list->string(mapcar '(lambda(x)(+ x 64))(vl-remove-if '(lambda(x)(= x 0) )(list v1 v2 v3))))
  )[/sell]
  

(defun c:t1 (/ num)         (while (setq num (getint"\n输入一个整数："))                 (if (and (> num 0)(<= num 16384))                         (princ (Excel::COLnum2alph num))                 )                 (princ"\n")         ) ) 输入一个整数：26 Z 输入一个整数：27 AA 输入一个整数：702 ZZ 输入一个整数：703 AAA 输入一个整数：16384 XFD (defun c:t2 ( / n f)         (setq n 0)         (setq f (open "c:\\1.txt" "w"))         (repeat 18278                 (write-line (vl-princ-to-string(Excel::COLnum2alph (setq n (1+ n)))) f)         )         (close f) )

wdmzslw

(defun c:t1 (/ num)
        (while (setq num (getint"\n输入一个整数："))
                (if (and (> num 0)(<= num 16384))
                        (princ (Excel::COLnum2alph num))
                )
                (princ"\n")
        )
)
输入一个整数：26
Z
输入一个整数：27
AA
输入一个整数：702
ZZ
输入一个整数：703
AAA
输入一个整数：16384
XFD

(defun c:t2 ( / n f)
        (setq n 0)
        (setq f (open "c:\\1.txt" "w"))
        (repeat 18278
                (write-line (vl-princ-to-string(Excel::COLnum2alph (setq n (1+ n)))) f)
        )
        (close f)
)

newer

wdmzslw 发表于 2017-5-28 10:16

欢迎多发，共同提高。