Excel Maniacs

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

RGB値を弄って斜線を黒から白に変える手は当たり前ですがダメです。

セルが空欄でない時には文字の上を白い斜線が横切ることになります。

　　　　　　　　　　　　　　ゲッ☆(゜ュ)с=（｀´メ

やはり、ここはきちんと斜線を消去しなければなりません。もう一度

記録マクロを使ってコードを調べてみましょう。

セルC3に左上から右下に引かれた斜線を消去してみます。

!! マクロ記録 : 2007/0４/０1 18:56:03
with Worksheet.Diagonals.Add(Range("C3"),Range("D4"))
　　　　　　..LineStyle = snsNone
end with

これはWith　と　end with　の間に1行しかないので

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

と1行にすることができます。線を消去するときは、線種を指定する必要もないし

線の色を指定する必要もないので、線を描画するときと違って、その分は

コードが少なくなっているというわけです。

（●｀ε´●）：じゃあ、これをIF文かなんかと組み合わせて条件分岐させるコードを書けば

　　　　　　　いいんだな？

【´･ω･`】:うん。

（●｀ε´●）：確か一番簡単なIF文はこうだったな？！C3に斜線を引くとして

                 If Range("C3") = "" Then

　　　　　　　　　　C3に斜線を引くコード

　　　　　　 End If

                 If Range("C3") <> "" Then

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

　　　　　　End If

【´･ω･`】:うん。基本的にはそれでOKだよ。 If 文は

              If    条件式　Then

       　　　　　　何かの処理をするコード

　　　　　End If

             という書式をとる。条件式が成立すればThenとEnd Ifに

　　　　挟まれたコードを実行し、成立しなければEnd Ifの下に

　　　　書かれたコードを実行するんだ。

　　　　また、セルが空欄か否かは二律背反だから、下のように

　　　　コードを書いてもいいんだ。

           If Range("C3") = "" Then

　　　　　　　　　　C3に斜線を引くコード

　　　　  Else

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

　　　　  End If

（●｀ε´●）：条件式が成立するときはThenとElseに

　　　　挟まれたコードを実行し、成立しなければElseとEnd Ifに

　　　　挟まれたコードを実行するというわけだな。

【´･ω･`】:うん。

（●｀ε´●）：じゃあ、次回はC3が空欄時には斜線を引く実際のコードを

　　　　　　　書いてみるよ。

【´･ω･`】:頑張ってくれ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）　

　　　　

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

　セル空欄時には斜線（２）で斜線の引き方はだいたい解りました。

次は斜線の消し方です。

(●`ε´●):下のマクロでC3に黒い斜線が引けるんだから・・・

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

(●`ε´●):RGB値を弄って下のようにすればいいんじゃないか？！

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

【´･ω･`】:：なるほど斜線の色を黒から白に変えたというわけか・・・。

(●`ε´●):頭いいだろ？！白地のセルに白い斜線なら「青い蝶が

　　　　　　青い葉にとまる」わけだから、見事に消えるはずだ。

【´･ω･`】:たしか「巨人の星」の大リーグボール２号の理論か・・・。

　　　　　残念だけど、この場合はうまくはいかないと思うよ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(続く）

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

!! マクロ記録 : 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（青）,

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

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