エクセル 結合セル内に空白なら斜線を引くマクロ

【Excel VBA】指定範囲内の結合セル（B2:D2,B3:D3,B4:D4,E2:E4,F2:F4）に文字/数値が入力されているならそのままで、何も記載されていない（空白）なら斜線(右上から左下）が引かれるマクロを教えてください。マクロ初心者ですいません。初心者でも分かるよう教えて頂けたら有難いです。

No.1 ベストアンサー 回答者： tom04 回答日時： 2018/06/26 23:08

こんばんは！

すでにセル結合はしてあるのですね。
一例です。
ごく簡単に

Sub Sample1()
　Dim c As Range
　　For Each c In Range("B2:F4")
　　　With c
　　　　If .Value = "" Then
　　　　　.Borders(xlDiagonalUp).LineStyle = xlContinuous
　　　　Else
　　　　　.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　End If
　　　End With
　　Next c
End Sub

こんな感じではどうでしょうか？m(_ _)m

No.2 回答者： tom04 回答日時： 2018/06/26 23:38

No.1です。

投稿後思ったのですが、あまりに手抜きをしすぎていたようなので
結合セルというのを考慮すれば

Sub Sample2()
　Dim c As Range
　　For Each c In Range("B2:F4")
　　　If c.MergeCells Then '//←念のため（範囲内の結合セルのみ対象）//
　　　　If c.MergeArea(1) = "" Then
　　　　　c.MergeArea.Borders(xlDiagonalUp).LineStyle = xlContinuous
　　　　Else
　　　　　c.MergeArea.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　End If
　　　End If
　　Next c
End Sub

こちらの方が少しだけ丁寧かも・・・
どうも失礼しました。m(_ _)m

この回答へのお礼

tom04様
早速の回答有り難うございました。
出来ました！仕事に使えます。
本当に助かりました。

お礼日時：2018/06/27 08:23