excel2000 vba 罫線の描写

質問

下記相談内容で、うまくできずに相談させて頂きました。記述を教えて頂けると助かります。

【前提条件】
開始時間（Ｃ列）、終了時間（Ｄ列）に、時間を入力します。
時間は0時～23:45まで、15分刻みで選べるように入力規則が設定されています。
Ｅ列～CV列までは、0:00～23:45まで15分刻みで時間タイトルがあります。

【相談内容】
開始時間と入力時間を選ぶと、写真のように罫線が描写されるようにしたいです。
但し、No5のように、開始時間と終了時間が逆転されている場合は、エラーメッセージを出して、罫線が描写されないようにしたいです。
また、開始時間か終了時間、どちらかのセルをクリヤすると、罫線が自動で消えるようにしたいです。

教えていただけると幸いです。よろしくお願いいたします。

回答No.1

tsubuyuki · ベストアンサー

ひとまず、お望みの処理は「罫線」ではなく「直線」ですね。
罫線と直線の違いはここでは割愛するとして、それを踏まえて・・
こう言うのはマクロを使うとそれなりにやりやすいのですが、
失礼ながら、マクロまではいかないのかなぁ、と拝読させて頂きました。

なので、直線を引くのではなく、セルの色を変える方法を提案させていただきます。
次善の策としてお納めください。

条件付書式を使っています（全て、書式→条件付書式「式が」を使います）。
まず、開始・終了時間の因果関係から。

開始時間が入力されたが、終了時間が入力されていない時、黄色く塗る設定を入れました。
Ｃ４セルの条件付書式の式に「=OR(AND($C4>0,$D4=0),AND($D4>0,$C4=0))」と設定します。
Ｄ４セルにも同様の設定をしてやります。

次に、開始時間と終了時間が逆転しているケースは、赤く塗りつぶします。
Ｃ４セルの条件付書式の条件を追加、式に「=$C4>$D4」としてやります。
Ｄ４セルも同様です。

続いて、本題の時間表部分。
これは「３行目の"時間"がＣ４セルの時間以上」且つ「Ｄ４セル未満」
且つ「Ｃ４が空白以外（０を超える）」且つ「Ｄ４が空白以外（０を超える）」
と言うのが条件ですから
Ｅ４セルの条件付書式には「=AND($C4>0,$D4>0,E$3>=$C4,E$3<$D4)」としてやります。
ここには水色を塗っておきました。

あとは、必要分コピーしてやれば完成です。
コピーするときは絶対参照（＄付）にするのか、相対参照（＄無）にするのか、
ちょっとだけ考えないといけませんね。

どうしても「直線を引きたい」のであれば、マクロの勉強をオススメします。

お礼

ご返事遅くなり、申し訳ございません。

教えてくださった条件付書式で、過剰になり過ぎずに対応できました。

勉強になりました。ありがとうございました。