Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1107 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76297】文字をブリンク（数回点滅）させる方法 T.Namba 14/10/29(水) 9:38 質問[未読]
【76299】Re:文字をブリンク（数回点滅）させる方法 カリーニン 14/10/29(水) 10:32 発言[未読]
【76301】Re:文字をブリンク（数回点滅）させる方法 T.Namba 14/10/29(水) 13:20 発言[未読]
【76303】Re:文字をブリンク（数回点滅）させる方法 カリーニン 14/10/29(水) 20:01 発言[未読]
【76313】Re:文字をブリンク（数回点滅）させる方法 T.Namba 14/10/30(木) 8:48 お礼[未読]
【76297】文字をブリンク（数回点滅）させる方法
質問  T.Namba E-MAIL  - 14/10/29(水) 9:38 -
引用なし
パスワード
   あるセルに文字を記入し、それを数回点滅表示させるにはどうしたらよいでしょうか？
【76299】Re:文字をブリンク（数回点滅）させる方法
発言  カリーニン  - 14/10/29(水) 10:32 -
引用なし
パスワード
   目的は何でしょう？

今までも同じような質問は沢山ありましたが他の方法で解決しているように思います。
【76301】Re:文字をブリンク（数回点滅）させる方法
発言  T.Namba E-MAIL  - 14/10/29(水) 13:20 -
引用なし
パスワード
   ▼カリーニン さん：
>目的は何でしょう？
>
>今までも同じような質問は沢山ありましたが他の方法で解決しているように思います。

「ビンゴゲーム番号スロットル」プログラムを作ったのですが、
新しい番号を表示したとき、その番号文字をブリンクさせたいのです。

For i=0 to 5
　文字の色を変える

　　For j=0 to 3000(?)
　　next '待機時間

　文字の色を戻す
Next i

これで巧く行かないのですが…
【76303】Re:文字をブリンク（数回点滅）させる方法
発言  カリーニン  - 14/10/29(水) 20:01 -
引用なし
パスワード
   APIのSleep関数を使います。
また、色を変えたら
DoEvents
を入れて画面の再描画を反映させます。


Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
Dim i As Integer
Dim iro As Integer
Dim c As Range
　Set c = ActiveCell
　iro = 3
　For i = 0 To 5
　 '文字の色を変える
　 c.Font.ColorIndex = iro
　 DoEvents
　 Sleep 500
　 '文字の色を戻す
　 c.Font.ColorIndex = xlAutomatic
　 DoEvents
　 Sleep 500
　Next i
　Set c = Nothing
End Sub
【76313】Re:文字をブリンク（数回点滅）させる方法
お礼  T.Namba  - 14/10/30(木) 8:48 -
引用なし
パスワード
   ▼カリーニン さん：
>APIのSleep関数を使います。
>また、色を変えたら
>DoEvents
>を入れて画面の再描画を反映させます。
>
>
>Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
>
>Sub test()
> Dim i As Integer
> Dim iro As Integer
> Dim c As Range
>　Set c = ActiveCell
>　iro = 3
>　For i = 0 To 5
>　 '文字の色を変える
>　 c.Font.ColorIndex = iro
>　 DoEvents
>　 Sleep 500
>　 '文字の色を戻す
>　 c.Font.ColorIndex = xlAutomatic
>　 DoEvents
>　 Sleep 500
>　Next i
>　Set c = Nothing
>End Sub

カリーニン様
ありがとうございました。
Sleepというのは初めて知りました。
大変勉強になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1107 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free