エクセル2000です。
ワークシートに配置したオートシェープ(「矢印」と名前を付けてあります。)をチカチカさせたいのです。
Sub マーク点滅()
Dim i As Integer
i = 0
Do
i = i + 1
Loop Until i = 3
Sheets("AAAA").Shapes("矢印").Visible = True
Sheets("AAAA").Shapes("矢印").Visible = False
End Sub
とやってみましたがぜんぜんだめでした。
いい方法はないでしょうか?
No.2ベストアンサー
- 回答日時:
> Declare Sub Sleep Lib "kernel32" _
> (ByVal dwMilliseconds As Long)
> って何でしょうか?
これはkernel32ダイナミックリンクライブラリにある"SLEEP" WindowsAPI関数を使うための記述です。VBAだけでは1秒以下の処理停止ができないのでAPI関数を呼び出しています。以外と高度なテクですが、便利です。ちなみに、1000が1秒に相当しますが、微小時間はあまり正確ではありません。
> DoEventsを入れないと点滅しませんでしたがなぜでしょ> うか?
DoEvents は、OS に一時的に制御を渡すコマンドです。ここではループ中にオブジェクトを再描画させるために使っていますが、他のコードに強制的に処理を移すときに使います。
No.1
- 回答日時:
動作を繰り返す場合、そのコードをループ内に書かなければいけません。
また、処理後にオブジェクトを表示をさせるためにDoEvents
を入れてやるといいでしょう。
以下に例を示します。必ず標準モジュールに記述してください。
Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
Sub マーク点滅()
Dim i As Integer
Dim x As Integer '点滅回数
Dim slp As Integer '点滅速さ
x = 10
slp = 200
For i = 1 To x
Sleep slp
Sheets("AAAA").Shapes("矢印").Visible = False
DoEvents
Sleep slp
Sheets("AAAA").Shapes("矢印").Visible = True
DoEvents
Next i
End Sub
ありがとうございました!
ところで
Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
って何でしょうか?
DoEventsを入れないと点滅しませんでしたがなぜでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
準・究極の選択
「年収1000万円で一生カレーライス」か 「年収180万円で毎日何でも食べ放題」 あなたはどちらを選びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルのセルや文字を点滅表示できますか?
Excel(エクセル)
-
Excelで文字の点滅方法
Excel(エクセル)
-
セル背景や文字を点滅させる方法
Word(ワード)
-
-
4
一定時間間隔でセルを点滅させたい
Visual Basic(VBA)
-
5
Excelのシート上のShapeにイベントは設定できる?
Excel(エクセル)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
9
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
10
ExcelVBA 図形をクリックした際のイベントを拾うには
Visual Basic(VBA)
-
11
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
12
エクセルで、セル内の文字を点滅させるには。
その他(Microsoft Office)
-
13
指定したシート名以外を非表示にするには?VBA
Excel(エクセル)
-
14
vbaでmsgboxの位置を指定
PowerPoint(パワーポイント)
-
15
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
16
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
17
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
18
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで文字の点滅方法
-
スマートキーの赤い点滅ランプ...
-
エクセルで、セル内の文字を点...
-
ダイアグとは・・・?
-
スズキエブリDF51Vの自己診断の...
-
時計 アルミフレーム インテリ...
-
カーナビ: ストラーダFで表示さ...
-
ガラホの青い点滅は何が来てい...
-
UR22mk2がある日突然、白ランプ...
-
電子工作についてお尋ねしたい...
-
登山用ヘッドライトの点滅はな...
-
LANケーブルの接続部分が点滅し...
-
3秒間点滅するウィンカーの機能
-
ポケットモンスター プラチナで
-
駐車中の車で、車内に赤いラン...
-
EAのゲームで画面が点滅する
-
伊坂幸太郎『グラスホッパー』...
-
180SXの自己診断
-
TEPRA Lite LR30 が壊れた?
-
ディスクのアクセスランプ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで文字の点滅方法
-
スマートキーの赤い点滅ランプ...
-
ダイアグとは・・・?
-
PS3コントローラーが充電できな...
-
TEPRA Lite LR30 が壊れた?
-
オーディオインターフェースのU...
-
エクセルで、セル内の文字を点...
-
黄色の点滅信号と赤の点滅信号...
-
Audi TTの時計の合わせ方。
-
EAのゲームで画面が点滅する
-
UR22mk2がある日突然、白ランプ...
-
エクセルVBAでオートシェイ...
-
ガラホの青い点滅は何が来てい...
-
一定時間間隔でセルを点滅させたい
-
CPUクーラーが赤く点滅している...
-
エクセルVBA 指定のセル背...
-
ポケットモンスター プラチナで
-
登山用ヘッドライトの点滅はな...
-
LANケーブルの接続部分が点滅し...
-
スズキエブリDF51Vの自己診断の...
おすすめ情報