Excel Maniacs

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

べべちゃんは記録マクロを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

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

（続く）

セル空欄時には斜線（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

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

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

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

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

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(続く）