Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13650 / 76732

←次へ　｜　前へ→


	【68585】シェイプの色を一定時間毎に変えたい

crow - 11/3/28(月) 1:41 -


	引用なし

	パスワード

Sub Wait(Wait2 As Single)
　Dim Time As Double

　Time = Now + Wait2 / 86400

　Do
　Loop Until Now >= Time

End Sub

Sub NanaSeg()

Dim Seg(8) As Shape
Dim Deta As String
Dim 文字数 As Long
Dim 抽出 As Long
Dim Ransuu As Long
Dim i As Long

Set Seg(1) = ActiveSheet.Shapes("フォーム 1")
Set Seg(2) = ActiveSheet.Shapes("フォーム 2")
Set Seg(3) = ActiveSheet.Shapes("フォーム 3")
Set Seg(4) = ActiveSheet.Shapes("フォーム 4")
Set Seg(5) = ActiveSheet.Shapes("フォーム 5")
Set Seg(6) = ActiveSheet.Shapes("フォーム 6")
Set Seg(7) = ActiveSheet.Shapes("フォーム 7")
Set Seg(8) = ActiveSheet.Shapes("フォーム 8")

For i = 1 To 8 Step 1
　　Seg(i).Fill.ForeColor.SchemeColor = 63
Next

Wait 5

Randomize
Ransuu = Int(77 * Rnd + 1)
Deta = Worksheets("セグデータ").Range("A" & Ransuu).Value

.
.
.

「For i = 1 To 8 Step 1
　　Seg(i).Fill.ForeColor.SchemeColor = 63
Next」
の部分を処理してから5秒経った後に次の処理に移りたいのですが実際は5秒のウエイトの後にまとめて処理されてしまいます。
セルに文字を表示させるのを試しにやってみたらちゃんとウエイト前に処理できました。
シェイプは別扱いなのでしょうか？？

どなたか解決方法を教えて下さい。

1 hits

▼

【68585】シェイプの色を一定時間毎に変えたい crow 11/3/28(月) 1:41

≪