いつもお世話になっております
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ランキング
-
範囲指定したセルを1つずつ飛...
-
画面を強制的に再描画させる方法
-
GIFアニメをループさせたくない
-
ループの後判断どんな時使うの
-
CSVファイルの特定の行だけを読...
-
スリザーリンクの問題をランダ...
-
ループフリー
-
エクセルの当番表を作っていま...
-
一巡伝達関数と開ループ伝達関数
-
vb.netです。2次元配列の要素を...
-
ネットワークループとルーティ...
-
Do文を使い方について
-
乱数の桁数指定、または範囲指定。
-
VB2010でCSVファイルの読み込み
-
VBAでの一時停止と再開の方法
-
「偶数・奇数の和」のフローチ...
-
ListBox 複数選択 で オートフ...
-
ダイアログのテキストにマウス...
-
UWSCのスクリプトで行き詰って...
-
Delphi for文
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
Escキーを押すと、中断する時と...
-
UWSCの終了の仕方
-
流れ図(フローチャート)が分か...
-
CSVファイルの特定の行だけを読...
-
範囲指定したセルを1つずつ飛...
-
VBAでの一時停止と再開の方法
-
乱数の桁数指定、または範囲指定。
-
VBA for i=1 to lastrow
-
VBAで3秒だけ時間を止めたい
-
vb.netです。2次元配列の要素を...
-
エクセルの当番表を作っていま...
-
vb.netからエクセル関数書き込み
-
DOSコマンドのループ内のTIMEコ...
-
「偶数・奇数の和」のフローチ...
-
GIFアニメをループさせたくない
-
Do whileでExitせず、ループの...
-
VB2010でCSVファイルの読み込み
-
【VBA】全て空白のセルの列の非...
-
アクティブセルから、A列最終行...
おすすめ情報

