いつもお世話になっております
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級建築士の福島昌彦さんに伺った。
-
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
Windows 11 Pro での、VBAのCode書き換えで、1点お教え願います。
Visual Basic(VBA)
-
VBAのコードを教えてください
Visual Basic(VBA)
-
-
4
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
5
VBA コード
Visual Basic(VBA)
-
6
お世話になります。 Excel VBAのプログラムについてご教授をお願いいたします。 添付した写真よ
Visual Basic(VBA)
-
7
列の順番を入れ替えて吐き出
Visual Basic(VBA)
-
8
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
9
Cellsのコードが打てません
Visual Basic(VBA)
-
10
excelのVBAで画像の動作をさせるため、プログラムを教えてください。
Visual Basic(VBA)
-
11
エクセルVBAでデータ転記
Visual Basic(VBA)
-
12
引数に数値、文字列の混在
Visual Basic(VBA)
-
13
VBA実行後に元のセルに戻りたい
Visual Basic(VBA)
-
14
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
15
マクロについて質問です。 セルの内容をクリアするコマンドボタン(AX) を作成しました。 指定範囲が
Visual Basic(VBA)
-
16
VBA エクセルで1列で表示したい。
Visual Basic(VBA)
-
17
エクセルファイルのデータ転記について
Visual Basic(VBA)
-
18
【マクロ】プルダウンが設定してあるセルにコピペできますか?
Visual Basic(VBA)
-
19
VBAで特定のシート以外のシート名を変更したい
Visual Basic(VBA)
-
20
VBA ファイル名取得
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画面を強制的に再描画させる方法
-
VBAでの一時停止と再開の方法
-
DoEventsが必要な理由について
-
VBAで3秒だけ時間を止めたい
-
GIFアニメをループさせたくない
-
VBA for i=1 to lastrow
-
C#で別のフォームのprogress ba...
-
「偶数・奇数の和」のフローチ...
-
VBA for文が止まらない
-
エクセル関数で1〜12の数字がル...
-
動きっぱなしです。止め方とプ...
-
VB.NETで素因数分解のプログラ...
-
エクセルの当番表を作っていま...
-
For文を使った九九表の作成
-
ループからの抜け出し方
-
ループフリー
-
Excel vba でコンボボックスの...
-
ネットワークループとルーティ...
-
アクティブセルから、A列最終行...
-
無限ループの防ぐ方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プログラミングについて。 1つ...
-
画面を強制的に再描画させる方法
-
どなたかこのプログラミングを...
-
VBAでの一時停止と再開の方法
-
VBA for i=1 to lastrow
-
UWSCの終了の仕方
-
DoEventsが必要な理由について
-
エクセルの当番表を作っていま...
-
VBAで3秒だけ時間を止めたい
-
GIFアニメをループさせたくない
-
Escキーを押すと、中断する時と...
-
DOSコマンドのループ内のTIMEコ...
-
CSVファイルの特定の行だけを読...
-
アクティブセルから、A列最終行...
-
vb.netからエクセル関数書き込み
-
テキストボックスの名前に変数...
-
範囲指定したセルを1つずつ飛...
-
乱数の桁数指定、または範囲指定。
-
「偶数・奇数の和」のフローチ...
-
vbscriptでIE自動入力(途中で...
おすすめ情報