|
こんにちは。
ゆうさん、ボケボケな回答しちゃってすみませんでした。
クウガさん、フォローありがとうございました。
(石鹸箱に書いたけど)
私も、クウガさんの回答を見てやってみました。
ちゃんと動いてちょっと感動(当たり前やけど(笑))
それで、時間の情報をセルに入れないで、
変数に入れて、ループの中で更新していくやり方は出来ないか?と
ちょっくら試行錯誤してみました。
普通に 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さん♪
|
|