こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

投稿日時 - 2016-11-06 20:17:31

QNo.9252443

困ってます

質問者が選んだベストアンサー

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

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

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

投稿日時 - 2016-11-06 21:23:53

お礼

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

投稿日時 - 2016-11-07 09:06:05

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

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

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

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

投稿日時 - 2016-11-06 20:49:42

お礼

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

投稿日時 - 2016-11-07 09:13:49

あなたにオススメの質問