[已解决]不规择区域怎么加边框

huweifvba

1、比如说：A8:k65536这个区域中有时候只有两行、有时候会有10，总之这个行数不定，那么如果出现两行时我要把这两行的边框加上，同样，出现几行就自动把这几行加上边框。
2、set rg = sheets("g").range("A:A").find(cells(X,1)
     IF not rg is nothing then cells(X,Y)=rg.offset(0,y-1)
如果我的G 这张表是放在共享盘里，\\192.168.40.223\Medical\3id\6pd\新建文件夹\bok1.xls  应该怎么加？

最佳答案

月排行榜 / 总排行榜

liyh67

2011-8-16 13:31

Sub t()
    Set rng = Range("A8:K" & Range("A65536").End(xlUp).Row)
    rng.Borders(xlEdgeLeft).LineStyle = xlContinuous
    rng.Borders(xlEdgeTop).LineStyle = xlContinuous
    rng.Borders(xlEdgeBottom).LineStyle = xlContinuous
    rng.Borders(xlEdgeRight).LineStyle = xlContinuous
    rng.Borders(xlInsideVertical).LineStyle = xlContinuous
    rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End Sub

跳转到最佳答案楼层

liyh67

Sub t()
    Set rng = Range("A8:K" & Range("A65536").End(xlUp).Row)
    rng.Borders(xlEdgeLeft).LineStyle = xlContinuous
    rng.Borders(xlEdgeTop).LineStyle = xlContinuous
    rng.Borders(xlEdgeBottom).LineStyle = xlContinuous
    rng.Borders(xlEdgeRight).LineStyle = xlContinuous
    rng.Borders(xlInsideVertical).LineStyle = xlContinuous
    rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End Sub

huweifvba

谢谢了