| |
質問（煮詰まった） さん、おはようございます。
> 上記の方法で罫線を引いているのですが、
> 太い線が出たり、１行目の箇所から罫線が引かれていたり
> しているので、この解決方法を教えて下さい。
Sub test()
Dim Ad As String, r1 As Range
Cells.Borders.LineStyle = xlNone
'B4から連続で右による
With Range("B4")
Rmax& = .End(xlDown).Row
Cmax& = .End(xlToRight).Column
End With
'範囲
Set r1 = Range(Range("B4"), Cells(Rmax&, Cmax&))
'CurrentRegionからはずれているところは無視
Set r1 = Application.Intersect(r1, Range("B4").CurrentRegion)
'
With r1
.Borders.Weight = xlThin '格子の太さ
.Borders.LineStyle = xlContinuous '格子の線種
.BorderAround Weight:=xlThick '囲いの太さ
.Rows(1).Borders(xlEdgeBottom).Weight = xlMedium '１行目の下の太さ
Ad = .Address '何かにつかうのかな？
End With
End Sub
こんな感じです。
もしも、4行目とB列がそれぞれB4から必ず連続で入っているなら、Intersectはいらないです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/4/4(水) 7:16 -
