エクセル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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルのセルや文字を点滅表示できますか?
Excel(エクセル)
-
Excelで文字の点滅方法
Excel(エクセル)
-
エクセルVBA 指定のセル背景色を点滅させたい
Excel(エクセル)
-
-
4
セル背景や文字を点滅させる方法
Word(ワード)
-
5
一定時間間隔でセルを点滅させたい
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
ExcelVBA 図形をクリックした際のイベントを拾うには
Visual Basic(VBA)
-
8
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
9
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
10
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
11
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
12
【EXCEL VBA】オートシェイプをクリックした時にそのオートシェイプの名前を取得したい
Visual Basic(VBA)
-
13
Excelのシート上のShapeにイベントは設定できる?
Excel(エクセル)
-
14
VBAでの一時停止と再開の方法
その他(プログラミング・Web制作)
-
15
指定したシート名以外を非表示にするには?VBA
Excel(エクセル)
-
16
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
17
エクセルのVBA 特定のセルでエンターキーでマクロ実行
Excel(エクセル)
-
18
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
19
エクセルVBAリストボックスに表示された検索結果をクリックして、該当するセルをアクティブセルにしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで文字の点滅方法
-
PS3コントローラーが充電できな...
-
左ウィンカー点滅が早い。
-
スマートキーの赤い点滅ランプ...
-
黄色の点滅信号と赤の点滅信号...
-
EAのゲームで画面が点滅する
-
ELECOMのワイヤレス充電器(W-Q...
-
オーディオインターフェースのU...
-
ガラホの青い点滅は何が来てい...
-
Audi TTの時計の合わせ方。
-
ポケットモンスター プラチナで
-
ODランプの点滅
-
子供用デジタル時計設定
-
CBR954の時計
-
CPUクーラーが赤く点滅している...
-
LED ウインカーが点滅しません
-
ダミーセキュリティの赤点滅は...
-
3秒間点滅するウィンカーの機能
-
登山用ヘッドライトの点滅はな...
-
PS3のランプが緑点滅したまま終...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スマートキーの赤い点滅ランプ...
-
Excelで文字の点滅方法
-
ダイアグとは・・・?
-
オーディオインターフェースのU...
-
PS3コントローラーが充電できな...
-
黄色の点滅信号と赤の点滅信号...
-
エクセルで、セル内の文字を点...
-
社外品のシーケンシャルウィン...
-
時計 アルミフレーム インテリ...
-
UR22mk2がある日突然、白ランプ...
-
SwitchJoy-Con
-
Audi TTの時計の合わせ方。
-
EAのゲームで画面が点滅する
-
左ウィンカー点滅が早い。
-
エクセルVBA 指定のセル背...
-
ガラホの青い点滅は何が来てい...
-
一定時間間隔でセルを点滅させたい
-
LANケーブルの接続部分が点滅し...
-
CBR954の時計
-
180SXの自己診断
おすすめ情報