4

以下に表示されるすべてのソリューションを使用しています。

VBAですべてのセルをリフレッシュする方法

Excel で VBA 内からシートのデータを更新する

ActiveSheet.EnableCalculation = False  
ActiveSheet.EnableCalculation = True

また

Application.Calculate

また

Application.CalculateFull

Excel 2010ではどれも機能しません。セルに移動して右クリックして更新すると機能します。VBA 内で更新するにはどうすればよいですか?

Sheets("Name_of_sheet").Range("D424").Refreshを発生させます

例外 438

質問:

  1. スクリプトが Excel 2003、2007、2010 をサポートするようにするにはどうすればよいですか?
  2. VBA を使用して更新するソース ファイルを選択するにはどうすればよいですか?

編集：

  1. マウスの右クリックをシミュレートし、 のメニューで更新を選択しますworksheet 3。それが全体の話です。

  2. 10 年前に作成された Excel ファイルで作業しています。Excel 2010 で開くと、セルに移動して右クリックし、[更新] を選択してから、更新元の .txt ファイルを選択できます。VBA内で自動的に実行しようとしています。

4

6 に答える 6

2

あなたは使用してみることができますApplication.Calculation

Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic
于 2012-11-22T13:42:32.700 に答える
2

個々のセルには、次のものを使用できます。

Range("D13").Calculate

また

Cells(13, "D").Calculate
于 2012-11-22T13:46:11.287 に答える
1

最後に、マウスイベントとキーストロークを使用してそれを行いました:

Sheets("worksheet34").Select
Range("D15").Select
Application.WindowState = xlMaximized
SetCursorPos 200, 600 'set mouse position at 200, 600
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0) 'click left mouse
Application.SendKeys ("R")
于 2012-11-29T05:52:22.317 に答える
1

リマインダーです。

使用するときは注意してください

Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic

これにより、数式を自動または手動で計算するように Excel アプリケーション全体が設定されます。使用する場合

Application.Calculation = xlCalculationManual

自動数式が機能しなくなっていることに気付くでしょう。

乾杯

于 2016-02-16T17:53:45.200 に答える