Excel VBA質問箱 IV

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

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


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

43079 / 76807

←次へ　｜　前へ→


	【38789】Re:セルの罫線を認識して、色をつける方法

ぱっせんじゃー - 06/6/10(土) 11:29 -


	引用なし

	パスワード

とりあえず、セルのTopに罫線が設定されていたら
背景色を青にするサンプルです。

Sub test()
Dim c As Range
Dim r As Range
　For Each c In ActiveSheet.UsedRange
　　If c.Borders(xlEdgeTop).LineStyle <> xlNone Then
　　　 c.Interior.ColorIndex = 5
　　End If
　Next
End Sub

2 hits

▼

【38787】セルの罫線を認識して、色をつける方法 九州男児 06/6/10(土) 10:55