Excel Maniacs

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

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

上の記録マクロから、あれこれ調べてみました。

（１）1行目で斜線を引くセルを特定しているようです。

　　これは左下から右上に斜線を引く場合と左上から右下に

　　引く場合で位置の指定が少し違うようです。

　　★左下から右上

　　　with Worksheet.Diagonals.Add(Range("下のセル番地"), Range("右のセル番地"))

　　★左上から右下

　　　with Worksheet.Diagonals.Add(Range("斜線を引くセル番地"), Range("右下のセル番地"))

（２）2行目は線種です。ちなみにsnsLineThinSolidは

　　細実線を示す文字定数です。

　　参考までに下の一覧をどうぞ。

　　snsLineThinSolid                1     細実線
　　snsLineSolid                        2     実線
　　snsLineThickSolid               3     太実線
　　snsLineThinDot                    4     細点線
　　snsLineDot                           5     点線
　　snsLineThickDot                  6     太点線
　　snsLineDoubleSolid            7     二重線
　　snsLineThinDashDot           8     細一点鎖線
　　snsLineDashDot                  9     一点鎖線
　　snsLineThinDashDotDot   10     細二点鎖線
　　snsLineDashDotDot          11 　  二点鎖線
　　 snsLineThinWave               12     細波線
　　snsLineWave                      13     波線
　　snsLineThinDoubleWave  14     二重波線
　　snsLineSlant                       15     飾り罫線

（３）３行目は線の色です。

　　ちなみにRGBは光の３原色を示しています。

　　R･･･Red(赤）, G･･･Green（緑）, B･･･Blue（青）,

　　各色の度合いを０～２５５の整数値で現し、全て０だと

　　黒、全て２５５だと白になります。

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

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

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

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

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

そこで苦肉の策で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だのと言ってるぞ？！

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）