![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
マクロの処理内容が不明ですが、・・・
※繰り返し処理の中で、毎回、クリップアートの再表示を行っていませんか?
処理中の画面更新を off にしてみては?
※処理終了後、一回だけ、画面更新をする。
この回答への補足
コードを載せます
Declare Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)
Sub ROULETTE_GAME4()
'ビジュアルルーレット
Dim slpTime As Integer
Dim myRandSpan As Integer
Dim rt As Integer
Dim i As Integer
Dim bc As Integer
Dim hc As Integer
Dim myNum As Integer
'抽選範囲
myRandSpan = 10
'円グラフ範囲再設定
Range("A:A").ClearContents
For i = 1 To myRandSpan
Cells(i, 1).Value = 1
Next i
'回転数
rt = 4
'切替間隔増分
slpTime = 2
'myRandSpanが大きい場合は rt, slpTime は小さい
'値にしてください
'ベースカラー
bc = 2
'ハイライトカラー
hc = 3
'抽選
Randomize
myNum = Int(Rnd() * myRandSpan)
With ActiveSheet.ChartObjects("グラフ 2").Chart
.SetSourceData Source:=Sheets("Sheet1"). _
Range("A1:A" & myRandSpan), PlotBy:=xlColumns
.SeriesCollection(1).Interior.ColorIndex = bc
'開始位置までのハイライト移動
If myNum > 2 Then
For i = 1 To myNum - 1
Sleep slpTime
With .SeriesCollection(1)
.Points(i + 1).Interior.ColorIndex = hc
.Points(i).Interior.ColorIndex = bc
End With
DoEvents
Next i
End If
'メインルーレット
For i = 1 To rt * myRandSpan + 1
Sleep i * slpTime
With .SeriesCollection(1)
.Points(myNum + 1).Interior.ColorIndex = hc
If myNum = 0 Then
.Points(myRandSpan).Interior.ColorIndex = bc
Else
.Points(myNum).Interior.ColorIndex = bc
End If
End With
myNum = myNum + 1
myNum = myNum Mod myRandSpan
DoEvents
Next i
End With
End Sub
ありがとうございます。
自宅のPCにマクロが存在するので、帰宅次第、コードを載せます。画面更新の命令ってSCREENUPDATINGでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて 重複したものがあれば行を削除するとい 1 2023/02/27 18:49
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
一つのTeratermのマクロで複数...
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
Excel2010でエンターキーにマク...
-
ExcelVBAでPDFを閉じるソース
-
VBAマクロ非表示が遅いので早く...
-
別シートに順番で貼り付け
-
Excelのマクロボタンをダブルク...
-
ExcelのVBA。public変数の値が...
-
MSアクセスのマクロ・モジュー...
-
アクセス マクロ クリップボ...
-
vba マクロでファイル名をつけ...
-
秀丸エディタでgrepを行うと前...
-
マクロで空白セルを詰めて別シ...
-
マクロ実行時、ユーザーフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報