Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33838 / 76734

←次へ　｜　前へ→


	【48112】Re:罫線を引きたいのですが。。

りん

- 07/4/4(水) 7:16 -


	引用なし

	パスワード

質問（煮詰まった）さん、おはようございます。

>　　上記の方法で罫線を引いているのですが、
>　　太い線が出たり、１行目の箇所から罫線が引かれていたり
>　　しているので、この解決方法を教えて下さい。

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はいらないです。

3 hits

▼

【48100】罫線を引きたいのですが。。 質問（煮詰まった） 07/4/3(火) 20:46