No.1ベストアンサー
- 回答日時:
""の中は文字列であることに注意
ActiveCell.FormulaR1C1 = "=sum(RC[" & -i & "]:RC[-1])"
VBA初心者1週間目でこの場合の&がどういう役目を果たすのかがまだわかりませんが、この通りやってみると、まさしく求めていたように機能してくれました。
本当に助かりました。有難うございました。今回初めて質問させてもらって、こんなに早く回答頂いて驚きと感謝でいっぱいです。本当に助かりました。ありがとうございました。
No.2
- 回答日時:
他の方法を提案します。
Function lgyou(a)
lgyou = Cells(30, a).End(xlUp).Row
End Function
Sub test01()
For j = 1 To 3
MsgBox WorksheetFunction.Sum(Range(Cells(1, j), Cells(lgyou(j), j)))
Next j
End Sub
データは30行まで、その下には別のデータや合計があるとします。
上記例では、A-C列の合計をそれぞれ出しています。
R1C1形式はおさらばしましょう。
多にも方法はありますが、SUMを使ってみました。
列合計は、
式を埋め込む(質問の例)
上の行から、空白セルまで順次足していく
上の行から最下行まで足していく
など考えましたが。
今回初めて質問させてもらって早速の回答を頂き本当にありがとうございました。記念すべき第1号回答をいただきました。VBA初心者1週間なのでいただいた回答をこれからじっくりさせていただきます。本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 会計ソフト・業務用ソフト ExcelのSUM関数と+の違い 2 2022/07/12 18:32
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- その他(データベース) 「1004:アプリケーション定義またはオブジェクト定義のエラー」への解消方法に関して 1 2023/07/09 11:47
- Excel(エクセル) A列が指定数値以上になったらD列の計算式を変更 3 2022/07/11 11:03
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) VBA SUM関数を入力したい 6 2022/08/20 20:10
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- C言語・C++・C# C言語階乗の総和を求める 2 2023/03/04 23:31
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) VBAでWorkbook.addの使い方 3 2023/02/01 11:58
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
VBAで変数に関数式の結果をセットする場合
Excel(エクセル)
-
VBA SUM関数に変数を入れた計算式の書き方
その他(Microsoft Office)
-
-
4
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
5
Excelでマクロ実行中に画面を固定する方法
Visual Basic(VBA)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
8
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
9
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
12
End Sub が必要です。
Access(アクセス)
-
13
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
14
VBA セルにSUM関数を相対参照で埋め込む時に変数を使用したい
その他(Microsoft Office)
-
15
Excelでフィルターのかかっているときの最終行の取り方。
Excel(エクセル)
-
16
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
17
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
18
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
19
VBA SUM関数を入力したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
マクロ 最終列をコピーして最終...
-
vba 2つの条件が一致したら...
-
Worksheets メソッドは失敗しま...
-
VBAを使って検索したセルをコピ...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
Excelで、あるセルの値に応じて...
-
IIF関数の使い方
-
rowsとcolsの意味
-
targetをA列のセルに限定するに...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
vba 重複データ合算
-
エクセルVBAで『A列』に新...
-
データグリッドビューの一番最...
-
重複データの合算(VBA)
-
URLのリンク切れをマクロを使っ...
-
VB.NETのDataGridで、選択行の...
-
VBAのFind関数で結合セルを検索...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報