特定の値のセルに罫線を引くマクロ

質問

Excelのマクロの質問です。
セルの値が特定の値の時に太枠の罫線でそのセルのみを囲むマクロを作りたいのですが、どのように記述したらよいのでしょうか？
10×30ぐらいの範囲に複数個該当セルがあります。
値は「休」、「土」などの漢字です。

回答No.5

imogasi

こんなのはマクロの記録でほぼできるではないですか。
丸投げする前にマクロの記録をとって勉強すること。
Sub Macro3()
For Each cl In Range("A1:c10")
If cl > 10 Then
cl.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End If
Next
End Sub
ーー
（ＦｏｒＥａｃｈ）
For Each cl In Range("A1:c10")
対の最後のＮｅｘｔ
（条件判定部）
If cl > 10 Then
対の最後のＥｎｄＩＦ
(対象セル範囲）
Range("A1:c10")
以外はマクロの記録です。
条件部分はＩＦステートメントで思い通りつくること。
上記は２０以上の例。

お礼

どうもありがとうございました
1行ずつ勉強させていただきます。