实现最后活动单元格在最后输入的单元格上

半夜星星 · 发表于 2018-2-27 17:03

本帖最后由半夜星星于 2018-2-28 08:35 编辑

;;;;;;;;;该处如何实现excel行内换行呢？？激活到最后一行，下次再用的时候可以继续往下一行写，而不是到EXCEL中换行再输入了
(defun c:tt1( / );在当前活动单元格中输出单行文本
(setq AAAA (cdr(assoc 1 (entget(car(entsel))))))
(setq i 1)
  (repeat 3
      (setq range (vlax-variant-value (vlax-get-property (Vlax-Get (Vlax-Get-Or-Create-Object "Excel.Application" ) 'ActiveCell ) 'Item i)))
      (Vlax-Put-Property range 'Value2 AAAA )  ;;;;;;;;;该处如何实现excel行内换行呢？？
      (setq i (1+ i))
  )
)

半夜星星 · 发表于 2018-2-27 20:05

就是EXCEL换行如何弄啊

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

[提问] 实现最后活动单元格在最后输入的单元格上