Ｐａｇｅ 603 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セルが空白なら斜線を引きたいんだけど。 たかお 03/1/24(金) 0:23 ┗Re:セルが空白なら斜線を引きたいんだけど... ポンタ 03/1/24(金) 12:47 ─────────────────────────────────────── ■題名 ： セルが空白なら斜線を引きたいんだけど。 ■名前 ： たかお ■日付 ： 03/1/24(金) 0:23 -------------------------------------------------------------------------
| シート１のセルＡ２にシート２のセルＢ２の文や値を表示させるように関数を使いました。それが空欄だった場合にシート１のセルＡ２に斜線が入るようにしたいんだけど、 何かいい方法はないでしょうか。なお、シート１には、シート３，４等のセルのデータも別セルに入るようにしてあるのですが、それらについても同様でしょうか。 |
| 対象のシートモジュールに貼り付けて、 お試しください。 ※とりあえず、A2:A4を対象にしてあります。 Private Sub Worksheet_Calculate() Dim MyTarget As Range, c As Range Set MyTarget = Range("A2:A4") For Each c In MyTarget If c.Value = "" Then c.Borders(xlDiagonalDown).LineStyle = xlContinuous Else c.Borders(xlDiagonalDown).LineStyle = xlNone End If Next End Sub |