Excel VBA質問箱 IV

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

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


21925 / 76738 ←次へ | 前へ→

【60200】calcurationが変更できない
発言  [名前なし]  - 09/2/4(水) 3:37 -

引用なし
パスワード
   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
後半2行の画面更新と計算のプロパティが設定できていません。
ウォッチしても変化なし。イミディエントで再現しても、
設定できません。

セルの更新対象が、他のセルから関数で参照されている場合に
発生します。予めシートの計算方法を手動にしておくと
発生しません(素直に変更される)

どなたか理由や、似たような事象と対処方法をご存知であれば
ご教示願います
0 hits

【60200】calcurationが変更できない [名前なし] 09/2/4(水) 3:37 発言
【60210】Re:calcurationが変更できない Jaka 09/2/4(水) 15:29 発言

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