Excel VBA質問箱 IV

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

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


66281 / 76734 ←次へ | 前へ→

【15018】Re:UserForm上のイメージを動かす
回答  クウガ WEB  - 04/6/13(日) 15:58 -

引用なし
パスワード
   ゆうさん、こんにちは。
つんさん、ご無沙汰しております。

つんさんが書かれたように、IF文で切り替えながら、
Leftプロパティ等を変えていったらいかがでしょうか。
しかしながら、そのままでは初めの位置から、最後の位置まで
いきなり飛んでいってしまうので、
Application.Wait で、時間を止めながら動かした方がよいと思います。

私が、以前こんな風にしたらそれらしく動きました。

まず、15回の動きがあるとして、
A1〜A15 までのセルの表示形式を、h"時"mm"分"ss.00"秒"とします。
そして、A1のセルを =NOW() とし、
A2のセルを =A1+0.0000015
A3のセルを =A2+0.0000015
A4のセルを =A3+0.0000015
  ・
  ・
  ・
A15のセルを =A14+0.0000015
とします。(0.0000015 は大体0.13秒ぐらいです。)

あとは、
 Cells(1, 1)="=Now()" で時間の更新
 For r = 2 To 15
  IF文で、 r が偶数だったら、
  Image1.Visible=True
  Image2.Visible=False
  Image1.Left=Image2.Left+10
  等とします。
  Application.Wait Cells(r, 1) で時間を停止
 Next r

まだ、いい方法があるかもしれませんが、こんな感じでいかがでしょうか。
4 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 発言

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