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 SUM関数に変数を入れた計算式の書き方
その他(Microsoft Office)
-
VBAで変数に関数式の結果をセットする場合
Excel(エクセル)
-
-
4
VBA セルにSUM関数を相対参照で埋め込む時に変数を使用したい
その他(Microsoft Office)
-
5
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
6
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
7
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
11
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
12
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
13
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
14
ActiveCell.FormulaR1C1の変数
Visual Basic(VBA)
-
15
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
16
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
17
VBA SUM関数を入力したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
Excel(M365) Vlookup/セル反転(...
-
vba 2つの条件が一致したら...
-
B列の最終行までA列をオート...
-
【Excel VBA】 B列に特定の文字...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
マクロ 最終列をコピーして最終...
-
Excel マクロ VBA 別シートのセ...
-
【VBA】2つのシートの値を比較...
-
データーの変化点を高速に検索...
-
VBAを使って検索したセルをコピ...
-
VBAの構文 3列置きにコピーし...
-
VBAで指定範囲内の空白セルを左...
-
SUM関数の範囲を変数を代入して...
-
1から9までの数値をランダムに...
-
IIF関数の使い方
-
最終列の右へSUM関数を作成する...
-
VBA 列が空白なら別のマクロへ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報