如何对框框加粗

	x	y	z
a
t
b
t
c
t

如何在excel或者word中 ，  用vba实现上面的框框加粗，  第一行下面的线加粗  但是比上面的线稍微细一些    t下面的框线加粗，粗细   框最下面的线也加粗  
对这些理解有限，说的很不标准，大家意会一下吧

小鳄鱼a 发表于 2014-10-31 08:22
我再word中操作的    word中的也是vba语句吗

word里也能录宏，你可以自己试试。
下面是操作word，excel的差不多，但excel没有设置磅数

1. Sub Bd()
   
2.     Dim i&
   
3.     With ActiveDocument.Tables(1)   '表格1
   
4. 
   
5.         .Borders(wdBorderTop).LineStyle = 1                         '表格添加上边框
   
6.         .Borders(wdBorderTop).LineWidth = wdLineWidth150pt          '磅数为1.5
   
7. 
   
8.         .Borders(wdBorderBottom).LineStyle = 1                      '表格添加下边框
   
9.         .Borders(wdBorderBottom).LineWidth = wdLineWidth150pt       '磅数为1.5
   
10. 
    
11.         .Rows(2).Cells.Borders(wdBorderTop).LineStyle = 1                      '第2行表格添加上边框
    
12.         .Rows(2).Cells.Borders(wdBorderTop).LineWidth = wdLineWidth075pt       '磅数为0.75
    
13. 
    
14.         For i = 4 To .Rows.Count Step 2
    
15.             With .Rows(i).Cells.Borders(wdBorderTop)
    
16.                 .LineStyle = 1                    '第i行添加上边框
    
17.                 .LineWidth = wdLineWidth050pt     '磅数为0.5
    
18.             End With
    
19.         Next
    
20.     End With
    
21. End Sub

复制代码

中间的线保持比较细的，    两边的框线去掉

小鳄鱼a 发表于 2014-10-30 16:17
中间的线保持比较细的，    两边的框线去掉

最好上传一个设置前，和设置后的图，这样方便理解

芐雨 发表于 2014-10-30 16:32
最好上传一个设置前，和设置后的图，这样方便理解

请看，谢谢

把你操作的过程录制成宏，再查看代码就可以了

罗浮山混球 发表于 2014-10-31 02:41
把你操作的过程录制成宏，再查看代码就可以了

我再word中操作的    word中的也是vba语句吗

Sub TEST()
Dim i%, j%
For i = 1 To Sheets.Count
For j = 7 To 10
    With Sheets(i).Range("c3:i" & [l3].Value).Borders(j)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
Next
Next
End Sub