| |
EXCEL2000で開発したもので、
application.calcurationが設定できない事象があります。
worksheetチェンジイベントで下記を記載
コード的には下記のとおり
With Application
If strFG Then
'イベント抑制解除
.EnableEvents = True
.ScreenUpdating = True
If cgCalcMode <> "" Then
'計算方法を戻す
.Calculation = cgCalcMode
cgCalcMode = ""
End If
Else
If cgCalcMode = "" Then
'計算方法（手動or自動）の保持
cgCalcMode = .Calculation
End If
'イベント抑制
.EnableEvents = False
.ScreenUpdating = False 'falseにならない！
.Calculation = xlCalculationManual '自動のまま変わらない！
End If
End With
後半２行の画面更新と計算のプロパティが設定できていません。
ウォッチしても変化なし。イミディエントで再現しても、
設定できません。
セルの更新対象が、他のセルから関数で参照されている場合に
発生します。予めシートの計算方法を手動にしておくと
発生しません（素直に変更される）
どなたか理由や、似たような事象と対処方法をご存知であれば
ご教示願います
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
