![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
いつもお世話になっております
Range("C2:C4")に値を入力すると
C6に合計がでます。
'① '② '③ の部分を一つにまとめることはできますでしょうか
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rngs As Range, Rng As Range
Set Rng = Intersect(Target, Range("C2:C4"))
If Rng Is Nothing Then Exit Sub
For Each Rngs In Rng
Select Case Rngs.Address(False, False)
Case Is = "C2" '①
Range("C6").Value = WorksheetFunction.Sum(Range("C2:C4"))
Case Is = "C3" '②
Range("C6").Value = WorksheetFunction.Sum(Range("C2:C4"))
Case Is = "C4" '③
Range("C6").Value = WorksheetFunction.Sum(Range("C2:C4"))
End Select
Next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) ワークシート内 検索 HITしたら すべて選択する 6 2021/11/11 22:50
- Visual Basic(VBA) シートモジュールを複数作成することはできるのでしょうか? 2 2023/08/30 18:48
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- Visual Basic(VBA) Excelでセル内の一部のみ同じセルを検索し、そのセルと同じ行で任意の列のセルを選択する方法 2 2021/12/17 11:01
- Visual Basic(VBA) シートごとに 個数と集計 2 2021/10/25 22:00
- Visual Basic(VBA) ワークシートチェンジ 1 2022/02/01 11:19
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) Worksheet_Change 4 2023/03/12 21:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
ListBox 複数選択 で オートフ...
-
VBA Dir関数でファイルをループ...
-
VBAでの一時停止と再開の方法
-
DOSコマンドのループ内のTIMEコ...
-
DoEventsが必要な理由について
-
再帰関数のインライン展開
-
vb.netからエクセル関数書き込み
-
vb.netです。2次元配列の要素を...
-
vbscriptでIE自動入力(途中で...
-
UWSCの終了の仕方
-
For文を使った九九表の作成
-
C言語でファクト関数を使わずに...
-
ループフリー
-
ExcelVBA FindNextを使用して条...
-
プログラミングの勉強をしてい...
-
フラグについて
-
pythonでファイルのコメント行...
-
Escキーを押すと、中断する時と...
-
スプレッドシート GASの繰り返...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
VBAで3秒だけ時間を止めたい
-
範囲指定したセルを1つずつ飛...
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
vbscriptでIE自動入力(途中で...
-
乱数の桁数指定、または範囲指定。
-
GIFアニメをループさせたくない
-
プログラミングについて。 1つ...
-
テキストボックスの名前に変数...
-
エクセルの当番表を作っていま...
-
vb.netからエクセル関数書き込み
-
ループフリー
-
CSVファイルの特定の行だけを読...
-
VBA for i=1 to lastrow
-
どなたかこのプログラミングを...
-
Do whileでExitせず、ループの...
おすすめ情報