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

　調査書などの書類を作成しているときにセルが

空欄の時には斜線を引きたいのだがどうしたらよいでしょう

とよく尋ねられます。理由を尋ねると空欄のままにしていると

書き忘れと区別がつかないから・・・ということです。

そこで苦肉の策でIf関数と「／（スラッシュ記号）」を使って

下のようにしているものを見たことがあります。

      =IF(A1="", "／","何かの所見")

いやあ、本当にご苦労様という感じです。そんなことを

するくらいならば「特記事項無し」などの文言を表示させた方が

よっぽどスマートだと思うのですが・・・(-_-;)

ま、仕方がないのでマクロを組んでみましょう。

どういうコードを書けばよいのか取りあえず記録マクロを

使って調べてみましょうか・・・

A1あたりに実際に右上がりの斜線を

引いてみると・・・

!! マクロ記録 : 2007/03/31 21:52:09
with Worksheet.Diagonals.Add(Range("A2"), Range("B1"))
　　　　..LineStyle = snsLineThinSolid
　　　　..Color = RGB(0, 0, 0)
end with

(･_･)......ﾝ?

A1に引いたのにA2だのB1だのと言ってるぞ？！

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）