Excel VBA質問箱 IV

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

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


52198 / 76732 ←次へ | 前へ→

【29375】Re:自動の演算について
発言  ponpon  - 05/10/3(月) 22:54 -

引用なし
パスワード
   こんばんは。
よく意味が分からないのですが、
普通に D2のセルに「=B2*C2」としていれば、
ツール→オプション→計算→自動 としていれば、
特にマクロを記述しなくても、自動計算すると思うのですが・・・
計算を手動としていて、値入力の時だけ自動としたいのなら、

>  If Target.Address(0, 0) = "B2" Then
>    Application.Calculation = xlCalculationAutomatic
>  End If

これで、一度 自動にしてしまうと後はずっと自動だと思うのですが・・・

手動→入力後→計算→手動とするなら、手動に戻さなければならないと思います。

こんな感じではどうでしょうか?

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
   If .Count > 1 Then Exit Sub
   If IsEmpty(.Value) Then Exit Sub
   If Not IsNumeric(.Value) Then Exit Sub
   If Not Application.Intersect(Target, Range("B2:C2")) Is Nothing Then
    Application.Calculation = xlCalculationAutomatic
    Application.Calculation = xlCalculationManual
   End If
  End With

End Sub
2 hits

【29373】自動の演算について MokoMoko 05/10/3(月) 22:06 質問
【29375】Re:自動の演算について ponpon 05/10/3(月) 22:54 発言
【29386】Re:自動の演算について Jaka 05/10/4(火) 9:55 発言
【29388】Re:自動の演算について Jaka 05/10/4(火) 10:24 発言
【29431】Re:自動の演算について ponpon 05/10/4(火) 19:27 発言
【29432】Re:自動の演算について MokoMoko 05/10/4(火) 20:12 お礼

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