excel单元格自动换行问题

yhly555

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

819534890

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

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

yhly555

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

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

yhly555

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

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

819534890

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

2. (defun bk () ;设置区域B2:F5区域的外框
   
3.   (setq ExcelApp (vlax-get-object "Excel.Application"))
   
4.         (setq range (vlax-get-property ExcelApp "range" "B2:F5"))
   
5.         (setq range_B (vlax-get-property range "Borders"))
   
6.         (setq range_l (vlax-get-property range_B 'item 7))
   
7.         (vlax-put-property range_l "LineStyle" 1)
   
8.         (vlax-put-property range_l "ColorIndex" -4105)
   
9.                 (vlax-put-property range_l "TintAndShade" 0)
   
10.                 (vlax-put-property range_l "Weight" 2)
    
11.                        
    
12.                 (setq range_t (vlax-get-property range_B 'item 8))
    
13.         (vlax-put-property range_t "LineStyle" 1)
    
14.         (vlax-put-property range_t "ColorIndex" -4105)
    
15.                 (vlax-put-property range_t "TintAndShade" 0)
    
16.                 (vlax-put-property range_t "Weight" 2)
    
17.                
    
18.                                         (setq range_bt (vlax-get-property range_B 'item 9))
    
19.         (vlax-put-property range_bt "LineStyle" 1)
    
20.         (vlax-put-property range_bt "ColorIndex" -4105)
    
21.                 (vlax-put-property range_bt "TintAndShade" 0)
    
22.                 (vlax-put-property range_bt "Weight" 2)
    
23.                
    
24.                 (setq range_r (vlax-get-property range_B 'item 10))
    
25.         (vlax-put-property range_r "LineStyle" 1)
    
26.         (vlax-put-property range_r "ColorIndex" -4105)
    
27.                 (vlax-put-property range_r "TintAndShade" 0)
    
28.                 (vlax-put-property range_r "Weight" 2)
    
29.                
    
30.                                                 (setq range_iv (vlax-get-property range_B 'item 11))
    
31.         (vlax-put-property range_iv "LineStyle" -4142)
    
32.        
    
33.                                                 (setq range_ih (vlax-get-property range_B 'item 12))
    
34.         (vlax-put-property range_ih "LineStyle" -4142)
    
35.                
    
36.        
    
37. )
    
38. 
    

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

yhly555

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

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

clh521

不错收藏了

yoyoho

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

llsheng_73

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

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

yhly555

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

谢谢提示，解决了，感谢大家的帮助，谢谢！