Excel VBA質問箱 IV

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

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


66246 / 76734 ←次へ | 前へ→

【15053】変数 = [Now()]・・・って
発言  つん E-MAIL  - 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 質問
【15012】Re:UserForm上のイメージを動かす つん 04/6/13(日) 14:05 回答
【15013】Re:UserForm上のイメージを動かす ゆう 04/6/13(日) 14:33 質問
【15018】Re:UserForm上のイメージを動かす クウガ 04/6/13(日) 15:58 回答
【15028】Re:UserForm上のイメージを動かす ゆう 04/6/13(日) 20:57 お礼
【15053】変数 = [Now()]・・・って つん 04/6/14(月) 15:56 発言
【15057】Re:変数 = [Now()]・・・って ichinose 04/6/14(月) 16:31 発言
【15059】Re:変数 = [Now()]・・・って つん 04/6/14(月) 17:06 発言
【15064】Re:変数 = [Now()]・・・って ichinose 04/6/14(月) 18:10 発言
【15076】Re:変数 = [Now()]・・・って つん 04/6/15(火) 10:46 お礼
【15079】Re:変数 = [Now()]・・・って クウガ 04/6/15(火) 11:31 発言

66246 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free