エクセルの条件付き書式設定マクロについて

質問

エクセルの条件付き書式設定マクロについて

Ａ列からＨ列まで文字や数字が投入されています。
データが5,000行くらいあって、50行に１回くらい不定期で空白の行が出てきます。

データが入っている全ての範囲において、「Ｃ列が空白以外の場合に、
同じ行のＡ列からＨ列のセルの上と下を破線？（.Weight = xlHairline）左も右も縦線は実線？
（.Weight = xlThin）にする」という条件付き書式を設定したいのですが、マクロが
上手く組めません。

ひとつのセルの条件付き書式の設定はマクロを組めるのですが、
A1:H5000というような広範囲で条件付き書式の設定を組むのが上手くいきません。

教えていただけないでしょうか。

回答No.1

tom04 · ベストアンサー

こんばんは！
こんな感じでよいのですかね？
5000行という範囲は指定せずにとりあえず、最終行までという具合でやってみました。

Sub test()
Dim i, j As Long
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To 8
If Cells(i, 3) <> "" Then
With Cells(i, j)
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlDot
.Borders(xlEdgeBottom).LineStyle = xlDot
End With
End If
Next j
Next i
End Sub

行数を指定するのであれば、コード内の
To ActiveSheet.UsedRange.Rows.Count
の部分を好みの数値に変更してみてください。

上記のコードは線の太さを指定していませんけど
質問にある　Weight = xlThin　と同じ太さになると思います。

余計なお世話かも知れませんが、

Sub test2()
Dim i, j As Long
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To 8
If Cells(i, 3) <> "" Then
With Cells(i, j).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Cells(i, j).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Cells(i, j).Borders(xlEdgeTop)
.LineStyle = xlDot
.Weight = xlThin
End With
With Cells(i, j).Borders(xlBottom)
.LineStyle = xlDot
.Weight = xlThin
End With
End If
Next j
Next i
End Sub

でも同じ結果が得られると思います。

どうも長々と失礼しました。m(__)m

お礼

思っていた操作が出来ました！！

ありがとうございました。