セル空欄時には斜線（５）

べべちゃんは記録マクロをONにして

C3に斜線を引き、そして消去しました。

出来たコードが下です。

（●｀ε´●）：おれがべべちゃんだ！！よろしく！！

! ! マクロ記録 : 2007/04/02 06:35:05
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　..LineStyle = snsLineThinSolid
　　　..Color = RGB(0, 0, 0)
end with
with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　 ..LineStyle = snsNone
end with

これを前回のIf文（下）と

  　　      If Range("C3") = "" Then

　　　　　　　　　　C3に斜線を引くコード

　　　　  Else

                            C3から斜線を消去するコード

　　　　  End If

と組み合わせると・・・

　If Range("C3") = "" Then

　　　　　with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　　　　　　..LineStyle = snsLineThinSolid
　　　　　　　　..Color = RGB(0, 0, 0)
　　　　　end with
　Else

           with Worksheet.Diagonals.Add(Range("C3"), Range("D4"))
　　　 　　　　　..LineStyle = snsNone
　　　　end with

　  End If

（●｀ε´●）：どれうまくいくか試してみよう！！

（続く）