yhly555 发表于 2016-6-7 17:36:30

excel单元格自动换行问题

如果用lisp设置excel单元格自动换行？谢谢！

819534890 发表于 2016-6-8 10:33:16

(defun zdhh () ;A1单元格设置为自动换行
(setq ExcelApp (vlax-get-object "Excel.Application"))
        (setq range (vlax-get-property ExcelApp "range" "A1"))
        (vlax-put-property range "WrapText" :Vlax-true)
        )

yhly555 发表于 2016-6-8 10:55:39

819534890 发表于 2016-6-8 10:33 static/image/common/back.gif


非常感谢！好人一生平安，今年必定发大财。

yhly555 发表于 2016-6-8 11:12:26

819534890 发表于 2016-6-8 10:33 static/image/common/back.gif


可以再问一个问题吗？如何用lisp设置多个单元的外侧框线（非所有框线），如图所示，谢谢！

819534890 发表于 2016-6-8 12:56:47

yhly555 发表于 2016-6-8 11:12 static/image/common/back.gif
可以再问一个问题吗？如何用lisp设置多个单元的外侧框线（非所有框线），如图所示，谢谢！

(defun bk () ;设置区域B2:F5区域的外框
(setq ExcelApp (vlax-get-object "Excel.Application"))
        (setq range (vlax-get-property ExcelApp "range" "B2:F5"))
        (setq range_B (vlax-get-property range "Borders"))
        (setq range_l (vlax-get-property range_B 'item 7))
        (vlax-put-property range_l "LineStyle" 1)
        (vlax-put-property range_l "ColorIndex" -4105)
                (vlax-put-property range_l "TintAndShade" 0)
                (vlax-put-property range_l "Weight" 2)
                       
                (setq range_t (vlax-get-property range_B 'item 8))
        (vlax-put-property range_t "LineStyle" 1)
        (vlax-put-property range_t "ColorIndex" -4105)
                (vlax-put-property range_t "TintAndShade" 0)
                (vlax-put-property range_t "Weight" 2)
               
                                        (setq range_bt (vlax-get-property range_B 'item 9))
        (vlax-put-property range_bt "LineStyle" 1)
        (vlax-put-property range_bt "ColorIndex" -4105)
                (vlax-put-property range_bt "TintAndShade" 0)
                (vlax-put-property range_bt "Weight" 2)
               
                (setq range_r (vlax-get-property range_B 'item 10))
        (vlax-put-property range_r "LineStyle" 1)
        (vlax-put-property range_r "ColorIndex" -4105)
                (vlax-put-property range_r "TintAndShade" 0)
                (vlax-put-property range_r "Weight" 2)
               
                                                (setq range_iv (vlax-get-property range_B 'item 11))
        (vlax-put-property range_iv "LineStyle" -4142)
       
                                                (setq range_ih (vlax-get-property range_B 'item 12))
        (vlax-put-property range_ih "LineStyle" -4142)
               
       
)

yhly555 发表于 2016-6-8 15:03:14

819534890 发表于 2016-6-8 12:56 static/image/common/back.gif


谢谢！高手啊，太帅了，设置单元格保留小数点位数如何实现？

clh521 发表于 2016-6-8 16:10:05

不错收藏了

yoyoho 发表于 2016-6-8 16:28:38

感谢 819534890 分享程序,学习了!

llsheng_73 发表于 2016-6-9 09:44:33

yhly555 发表于 2016-6-8 15:03 static/image/common/back.gif
谢谢！高手啊，太帅了，设置单元格保留小数点位数如何实现？

有了前边两个作为基础，在EXCEL的VBA里边把前两个手动做一下录制成宏，对照一下
再把你最后这个在EXCEL里边手动做出来录制所宏，差不多就知道该怎么写了

yhly555 发表于 2016-6-11 10:58:39

llsheng_73 发表于 2016-6-9 09:44 static/image/common/back.gif
有了前边两个作为基础，在EXCEL的VBA里边把前两个手动做一下录制成宏，对照一下
再把你最后这个在EXCEL里 ...

谢谢提示，解决了，感谢大家的帮助，谢谢！
页: [1] 2
查看完整版本: excel单元格自动换行问题