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(エクセル)
-
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
VBA SUM関数に変数を入れた計算式の書き方
その他(Microsoft Office)
-
-
4
VBAで変数に関数式の結果をセットする場合
Excel(エクセル)
-
5
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
6
VBA セルにSUM関数を相対参照で埋め込む時に変数を使用したい
その他(Microsoft Office)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
11
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
14
エクセル マクロで数値が変った時行挿入できますか
Excel(エクセル)
-
15
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
18
VBA SUM関数を入力したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba 2つの条件が一致したら...
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
【VBA】2つのシートの値を比較...
-
VBAでのリスト不一致抽出について
-
エクセル 2つの表の並べ替え
-
VBAを使って検索したセルをコピ...
-
VBAのFind関数で結合セルを検索...
-
エクセルVBA intersect colu...
-
マクロ 最終列をコピーして最終...
-
マクロについて。S列の途中から...
-
EXCEL VBA 条件に合致しない行...
-
エクセルVBAにて =A1=B1とすれ...
-
エラーコード1004
-
VBマクロ 色の付いたセルを...
-
【Excel VBA】カンマと改行コー...
-
URLのリンク切れをマクロを使っ...
-
VBAで指定範囲内の空白セルを左...
-
エクセルで最大列を増やす
-
vba 重複データ合算
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
VBAのコードを教えてください
-
VBAを使って検索したセルをコピ...
-
B列の最終行までA列をオート...
-
エクセルvbaについて
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
VBA UserFormからの転記で
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
エクセルVBAにて =A1=B1とすれ...
-
【VBA】2つのシートの値を比較...
-
データグリッドビューの一番最...
-
VBマクロ 色の付いたセルを...
-
VBAで指定範囲内の空白セルを左...
おすすめ情報