薰衣草-花语 发表于 2024-7-22 17:01:23

(setq excel-x(vlax-get-property(vlax-get-property excel 'Selection)"row"))
(setq excel-y(vlax-get-property(vlax-get-property excel 'Selection)"COLUMN"))
(setq sy-sheet(member excel-name ecxel-sheet))
(setq excel-djg(+ 1(-(length ecxel-sheet)(length sy-sheet))))
(setq cells (vlax-get-property (vlax-get-property shts "item" excel-djg) "cells"))
(setq excel-y2 (+ excel-y 1))
(setq excel-y3 (+ excel-y 3))
页: 1 [2]
查看完整版本: EXCEL单元格赋值后跳转