excelvbaで表示の時刻について

質問

今下記のコードを教えていただき、時計（デジタル）表示ができて時刻を刻んでいます。
sub test01()
with sheets("sheet1").range("g5")
.value=time
.numberformatlocal="h:mm:ss"
end with
application.ontime now + timevalue("0:00:01"),"test01"
end sub

このコードに、次のような動作が追加できますか。

同じシートのセルＡ1：Ａ5に、例えばＡ1に10：05：00、Ａ2に12：10：30というように指定しておき
その時刻になったら、メッセージを「時間が来ました」等表示し、ビープ音を２回鳴らす、３０秒間表示
を継続した後、また時刻を刻む表示に戻る。
というような動作はできませんか。
どなたか教えていただけませんか。かなりの基礎知識がないとできないでしょうか。

回答No.2

FEX2053 · ベストアンサー

このコードの1行1行が何をやってるか読めれば、別に難しい
処理じゃないですよ。要は、事前にセル内容を変数で受け取り
IF文でチェックすればいいってだけの話です。

IF文の基礎がわかっていれば、悩む必要はないです。

逆に言えば、悩んでいるなら基礎の基礎ができてないって話
です。プログラムは他人のコードを丸写しにすると、何かの
エラーが出た時に修復できません。このコードでも、ワーク
シートの名前を変えると途端に動かなくなりますけど、それ
直せますか？

お礼

早速ご回答いただき有難うございました。
ＩＦ文で対処できるとのことですので勉強します。
今後ともご指導の程よろしくお願いいたします。
有難うございました。

回答No.1

akauntook

普通に出来ると思いますよ。
基本的に、考えられるものは実現できるんで。
そのために必要なのは、必要な基礎のみで、やりたいことも単純なので、ちょっと調べたら誰でもできそうです。

私、技術者なので請負なら金が要ります。
努力してわからないところを教えて欲しいと言う話なら、努力が見えれば教えます。

まぁ、丸投げをタダではやりたくないし、努力を感じられない人も助けたくないってことですね。
ここではお金のやり取りや、顧客を集めることも出来ませんから、解決のためにはあなたが努力してその努力を見せると良いですね。

お礼

早速のご回答いただき有難うございました。
至極簡単なことで解決できるとのことですので、もう少し勉強してみます。
投稿の態度がお気に障ったとしましたら本当に申し訳ありませんでした。
今後ともご指導の程よろしくお願いいたします。
有難うございました、