Excel VBA質問箱 IV

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

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


65763 / 76734 ←次へ | 前へ→

【15542】高速描画について
質問  じじ  - 04/6/28(月) 22:16 -

引用なし
パスワード
   こんにちは

エクセルのグラフを使ってアニメーションをやっているのですが
動きがぎこちなくなってしまいます。
コードはこんな感じです。

sub Anime

Dim data as Integer
Dim mn as Integer
Dim D1(i, j) as Double
Dim D1(i, j) as Double
Dim L1(i, j) as Double
Dim T1(j) as Double
Dim IA(i, j) as Double
Dim RA(i, j) as Double

'(ここでデータの格納などを必要な処理をしてます)

'DATA = 32000
'MN = 1〜10ぐらい
'Skip = 10

For j = 1 To data
  total = total + 1
  For i = 1 To MN
   Cells(i + 1, 1) = D1(i, j)
   Cells(2 + j, 8) = D1(i, j)
   Cells(2 + j, 9) = L1(i, j)
   Cells(2 + j, 10) = T1(j)
   Cells(2 + j, 11) = IA(i, j)
   Cells(2 + j, 12) = RA(i, j)
  Next i
  
  If (total = skip) Then
  DoEvents
  total = 0
  End If
 
Next j

end sub
またグラフ(散布図3つ、バブル3D1つ)は
計4つ同時に処理させています。(させすぎかもしれませんが・・・)


アドバイスよろしくお願いします。

1 hits

【15542】高速描画について じじ 04/6/28(月) 22:16 質問

65763 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free