Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66319 / 76807

←次へ　｜　前へ→


	【15053】変数 = [Now()]・・・って

つん

- 04/6/14(月) 15:56 -


	引用なし

	パスワード

こんにちは。

ゆうさん、ボケボケな回答しちゃってすみませんでした。
クウガさん、フォローありがとうございました。
（石鹸箱に書いたけど）

私も、クウガさんの回答を見てやってみました。
ちゃんと動いてちょっと感動（当たり前やけど(笑)）
それで、時間の情報をセルに入れないで、
変数に入れて、ループの中で更新していくやり方は出来ないか？と
ちょっくら試行錯誤してみました。

普通に t = Now()
　　　t = t + 0.0000015

では、当然駄目で、ネットで色々調べてみました。
そしたら、ichinoseさんの過去の回答で、

変数= [Now()]

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=14857;id=excel

というのを発見！
それで、

　　Dim r As Long
　　Dim t As Double
　　
　　t = [Now()]
　　
　　For r = 1 To 15
　　　　If r Mod 2 = 0 Then
　　　　　　Image1.Visible = True
　　　　　　Image2.Visible = False
　　　　　　Image1.Left = Image2.Left + 10
　　　　Else
　　　　　　Image2.Visible = True
　　　　　　Image1.Visible = False
　　　　　　Image2.Left = Image1.Left + 10
　　　　End If
　　　　t = t + 0.0000015
　　　　Application.Wait t
　　　　
　　Next r

で、同じように動きました。

Now()を［］でくくるとシリアル値（？）になるんですね？
で、セルに入ってる値って、書式は「○○時○○分」とかでも、
実際はシリアル値なんですね・・・やって、セルを使ってやってるときは
普通に=Now()やったもんなあ・・・・
（何を今更言うとんねん！とか言われそうですが（＾＾;）

他にも、 = [Now()]　みたいな技あるんでしょうか？
ね、ichinoseさん♪

1 hits

▼

【15011】UserForm上のイメージを動かす ゆう 04/6/13(日) 13:35