No.5ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Option Explicit
Sub 当月累計加算()
Dim ws As Worksheet '当月累計
Dim ps As Worksheet '前月累計
Dim maxrow As Long
Dim col1 As Long '当月累計の処理列
Dim col2 As Long '前月累計の処理列
Dim i As Long
Set ws = Worksheets("当月累計")
Set ps = Worksheets(ws.Index + 1)
maxrow = ps.Cells(Rows.Count, 1).End(xlUp).row 'sheetの最大行取得
For i = 1 To 14
col1 = 1 + i
col2 = (i - 1) * 2 + 3
ws.Cells(3, col1).Value = ws.Cells(3, col1).Value + ps.Cells(maxrow, col2).Value
Next
MsgBox ("完了")
End Sub
この回答へのお礼
お礼日時:2021/03/16 23:08
お考えいただきありがとうございます。
ws.Index + 1
col2 = (i - 1) * 2 + 3
勉強になります、助かりました。
No.4
- 回答日時:
No.3です。
With~End With いらなかったですね。
Sub megu_2()
Dim r1 As Range, r2 As Range
Set r1 = Worksheets(Worksheets.Count - 1).Range("B3")
Set r2 = Worksheets(Worksheets.Count).Cells(Rows.Count, "A").End(xlUp)
r2.Range("C1,E1,G1,I1,K1,M1,O1,Q1,S1,U1,W1,Y1,AA1,AC1").Copy
r1.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Application.CutCopyMode = False
Set r1 = Nothing
Set r2 = Nothing
End Sub
No.3
- 回答日時:
勘違いであればスル~してください。
Sub megu()
Dim r1 As Range, r2 As Range
Set r1 = Worksheets(Worksheets.Count - 1).Range("B3")
With Worksheets(Worksheets.Count)
Set r2 = .Cells(Rows.Count, "A").End(xlUp)
r2.Range("C1,E1,G1,I1,K1,M1,O1,Q1,S1,U1,W1,Y1,AA1,AC1").Copy
r1.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
Application.CutCopyMode = False
End With
Set r1 = Nothing
Set r2 = Nothing
End Sub
No.2
- 回答日時:
補足ありがとうございました。
念のための確認です。
1.来月になれば、当月累計は4月分なので、「3月(前月)」のシートの累計を、当月累計に加算することになりますが、その「3月(前月)」のシートは、必ず、当月累計シートの右側にあるという前提で良いのでしょうか。
2.
>実行後、「当月累計」シートのB3セルの値「64」へ「2月(前月)」シートのC4セルの値「7」を足した結果「71」を
>「当月累計」シートのB3セルへ上書きを繰り返すイメージで試行錯誤していますができません?
とありますが、そもそも質問は
「右隣の「2月(前月)」シート最終行にある各項目累計の値を加算したいができません?」となっています。
これは、最終行なら、2月26日分(C12)を当月累計のB3に加算かと思いますが、いかがでしょうか。
(「2月(前月)」シートのC4セルの値を加算するのはおかしいという意味です)
No.1
- 回答日時:
画像が不鮮明で良くわかりません。
gyazo.comを利用すると、下記URLのような鮮明な画像がアップできます。
https://gyazo.com/08cff98fc198e0abe6613a99d0239e31
gyazo.comに画像をアップしていただけると助かります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) vba シートの並び替え 1 2023/04/19 13:44
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) 列を自動で追加したい 3 2022/07/11 12:58
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
- Excel(エクセル) エクセル VBAでセル内容を別の列の最下行に転記したい 2 2022/11/29 08:47
- Visual Basic(VBA) VBAを使いシート間で貼り付け 3 2023/03/14 20:53
- Excel(エクセル) エクセルの日報作成について 3 2023/07/05 12:49
- Excel(エクセル) 別シートに毎回異なるデータをコピーする 7 2022/06/24 09:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
実行時エラー'1004': WorkSheet...
-
excelのマクロで該当処理できな...
-
VBA 存在しないシートを選...
-
エクセルVBA Ifでシート名が合...
-
ExcelのVBAのマクロで他のシー...
-
ユーザーフォームに入力したデ...
-
コマンドボタンをクリックでシ...
-
特定の文字を含むシートだけマ...
-
【ExcelVBA】全シートのセルの...
-
ブック名、シート名を他のモジ...
-
EXCEL VBAで複数シート内のセル...
-
実行時エラー1004「Select メソ...
-
VBA 入力月で該当シートを選択...
-
【VBA】特定の文字で改行(次の...
-
XL:BeforeDoubleClickが動かない
-
エクセルのシート名変更で重複...
-
IFステートの中にWithステート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報
https://gyazo.com/1bd3d15c0b9833f89b9afda41a128a70
画像をアップしてみました。
よろしくお願いします。
実行後、「当月累計」シートのB3セルの値「64」へ「2月(前月)」シートのC4セルの値「7」を足した結果「71」を
「当月累計」シートのB3セルへ上書きを繰り返すイメージで試行錯誤していますができません?
すみませんご指摘通りです。
加算する値は、最終行に当たる「47」になります。
また来月になったら3月(前月)シートは4月の当月累計シートの右となりで変わりありません。
よろしくお願いします。