早速ですが。シートは ORＧDATA と 計算 の２枚 ORGDATA は WEB経由で 秒単位で ７セルほどのデータを受信します。 それを、５分単位で データを集約し ７セルほどのデータとして、計算シートに コピーで 送ります。 計算シートは、生データは ７セルの ２万行 Ｉ列から ＢＵ列 ５０行？位数式が 埋まっています。 基本 ORGDATAシートは Worksheet_Calculate() で 受信しますので、計算を止められません。 で、計算シートの 再計算を止めて、データが送り込まれたとき（５分ピッチ）のみ 再計算させたい。 が リクエストです。 下記が やってみたことの要約です。 Workbook_Open() ５分タイマーセット Application.Calculation = xlCalculationAutomatic Me.Worksheets("計算").Select Me.Worksheets("計算").Activate ActiveSheet.EnableCalculation = False これが機能してないような？タスクバーに再計算してる％表示が出ている。 Me.Worksheets("orgdata").Select データ受信、５分後のタイマーで endsisu = keisan.Cells(1000, 2).End(xlDown).Row + 1 orgdata.Range("a4:ｇ4").Copy Destination:=keisan.Range("b" & endsisu) keisan.Range("i" & endsisu - 2 & ":bu" & endsisu - 2).Copy keisan.Range("i" & endsisu & ":bu" & endsisu).PasteSpecial Paste:=xlPasteFormulas ここまでは 実行される。 下記のどちらかで ＶＢエラー400（タイマーで 実行しているから） keisan.Range("i" & endsisu - 2 & ":bu" & endsisu).Select Selection.Calculate 要は OREGDATAは 常時再計算ＯＮ 計算シートは 常時再計算ＯＦＦで データが送り込まれた時だけ 再計算で 済んだら ＯＦＦ が希望なのですが。 ご教示願えれば助かります。
↧