No.2ベストアンサー
- 回答日時:
こんばんは!
SUM関数が一番簡単ですが、どうしてもVBAでやりたいというコトであれば
ワークシート関数をそのまま使うのが手っ取り早いと思います。
Sub 合計() '←「合計」は好みのマクロ名に!
With Range("B6:E6") '←B6~E6セルの
.Formula = "=SUM(B2:B5)"
.Value = .Value
End With
End Sub
といったような感じで・・・
いかにもマクロらしいやり方といえば
Sub 合計2()
Dim i As Long, j As Long
For j = 2 To 5 '←B列~E列
For i = 2 To 5 '←2行目~5行目
Cells(6, j) = Cells(6, j) + Cells(i, j)
Next i
Next j
End Sub
のような方法もありますが、データ量が多い場合はなるべくループさせない方が良いと思います。
※ もちろん他にも色々書き方はあります。m(_ _)m
No.4
- 回答日時:
No3です。
冗長なところがありました。Range(c.Address).Value = WorksheetFunction.Sum(Range(Cells(2, c.Column), Cells(5, c.Column)))
↓に変更
c.Value = WorksheetFunction.Sum(Range(Cells(2, c.Column), Cells(5, c.Column)))
No.3
- 回答日時:
B6に
=SUM(B2:B5)
とかで右方向に必要なだけコピーしたほうが簡単だと思いますが、マクロでしたら
Sub MySum()
Dim c As Range
For Each c In Range("B6:E6")
Range(c.Address).Value = WorksheetFunction.Sum(Range(Cells(2, c.Column), Cells(5, c.Column)))
Next
End Sub
などという手もあります。
No.1
- 回答日時:
どちらでもいいです
sub Macro1()
Range("B6")=Range("B2")+Range("B3")+Range("B4")+Range("B5")
end sub
sub Macro2()
Dim i As Long
Range("B6")=0
For i=2 To 5
Range("B6")=Range("B6")+Cells(i,"B")
next i
end sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセル VBA実行中のApplication.ScreenUpdatingについて 3 2023/07/13 21:06
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
EXCEL:同じセルへどんどん足していく方法
Excel(エクセル)
-
A2からA16までの足し算マクロ
Excel(エクセル)
-
列の足し算(Z+1=AA)について教えてください。
Excel(エクセル)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
エクセルについて-同一セルに何回も入力したい
Excel(エクセル)
-
6
エクセルで、1つのセルで上書き足し算できますか?
Excel(エクセル)
-
7
【vba】該当するセルに別ブックのセル値の合計を反映する
Visual Basic(VBA)
-
8
VBA Rangeの足し算
Access(アクセス)
-
9
別のシートを参照して計算する方法
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
エクセルで、同一セル内に自動的に足し算をすることはできますか?
その他(Microsoft Office)
-
12
Cellsのかっこの中はどっちが行と列なの?
Visual Basic(VBA)
-
13
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
14
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
15
未記入がある場合はマクロを実行させない方法
その他(Microsoft Office)
-
16
VBAで配列の計算
Excel(エクセル)
-
17
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
18
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
19
エクセルで行の一番上にセルに移動させるVBA
Excel(エクセル)
-
20
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelで連続印刷をするマクロ
-
Excel(VBA)データ入力に応じて...
-
Excel2007で、太字にした行のみ...
-
エクセル VBA 小数点を含む数字...
-
「マクロ」の足し算の式を教え...
-
Excel にて非表示行を探すワー...
-
Excelでセル内の数式は残し値だ...
-
エクセル2003でマクロをおこな...
-
excelのデータ転写(マクロ)
-
エクセルでの書式ー下付きショ...
-
エクセルで全ての数字間にカン...
-
Excel2007 セルを右方向に削除...
-
エクセルで、行ごとの並び替え...
-
yyyy/mm/ddの日付に一括変換す...
-
任意の1行を選択していないと...
-
マクロまたは他の方法でで自動転記
-
値貼り付けをしても書式も貼り...
-
Excelで同じシートのコピーを一...
-
エクセルVBAでパスの¥マークに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excelでセル内の数式は残し値だ...
-
Excel2007で、太字にした行のみ...
-
Excelで連続印刷をするマクロ
-
「マクロ」の足し算の式を教え...
-
エクセル VBA 小数点を含む数字...
-
エクセルで全ての数字間にカン...
-
(Excel2003)すぐ左の最後の行...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
エクセルで、行ごとの並び替え...
-
エクセル2003でマクロをおこな...
-
excel ある部分だけをコピペし...
-
行の入れ替えってどうするの?
-
Excelで周期的に列を削除する方法
-
整数行を残し小数点の行を削除...
-
EXCEL マクロで「キーワード入...
-
VBA コピーを有効行までループ...
-
Excel2007 セルを右方向に削除...
-
wordのvbaでハイパーリンク設定...
おすすめ情報