質問: if文に時間(何時から何時まで)の条件文を付けたい vbaの知識が無いので本を脇に置きながら作業をしております。 図のような画面を作成しようとしておりますが、2つ質問があります。 (1)図右上のようにパソコンに設定されている時間を画面上に 表示する方法を教えて下さい (2)図右上に表示された時間を基にif文の処理を行ないたい 例えば、現在の時刻が13:00だったら、 「12:00~14:00」、「14:00~16:00」、「16:00~18:00」 の処理を行なう としたいのですが、 分からないのが、if文で 『現在時刻が12:00~14:00までの間だったら、処理aを行なう』の 命令文が分かりません。 どのように作成すれば良いのか、お教え願います。
回答: 通りがかりです。 >分からないのが、if文で > 『現在時刻が12:00~14:00までの間だったら、処理aを行なう』の > 命令文が分かりません。 この場合は select caseで分岐したほうが便利でしょう select case range("c1").value case is < timeserial(12, 0, 0) msgbox "処理a" case is < timeserial(14, 0, 0) msgbox "処理b" case is < timeserial(16, 0, 0) msgbox "処理c" case is < timeserial(18, 0, 0) msgbox "処理d" end select といった具合で考えてみてください。