Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim j As Long
Dim i As Long
Dim la As Long
With Sheets(3)
la = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 To 4
For j = 4 To 7
Sheets(4).Cells(i, j).Value = Application.SumIfs(.Range("d4:d" & la), _
.Range("a4:a" & la), Sheets(4).Cells(i, 3), _
.Range("c4:c" & la), Sheets(4).Cells(2, j))
Next j
Next i
For i = 6 To 9
For j = 5 To 8
Sheets(4).Cells(i, j).Value = Application.SumIfs(.Range("j4:j" & la), _
.Range("g4:g" & la), Sheets(4).Cells(i, 4), _
.Range("i4:i" & la), Sheets(4).Cells(5, j))
Next j
Next i
End With
End Sub
このコードは自分おもったとおり
動作致しますが問題ないでしよぅか
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルのマクロについて教え...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
Excel・Word リサーチ機能を無...
-
エクセル VBA実行中のApplicati...
-
ファイルが見つからない時、ス...
-
ユーザーフォームを起動しなが...
-
エクセル マクロの同時実行に...
-
ExcelのVBAを使ってタイトル行...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
Excel VBAからAccessマクロを実...
-
ExcelVBAでPDFを閉じるソース
-
VBAマクロ非表示が遅いので早く...
-
非表示の列をすべて削除するマクロ
-
一つのTeratermのマクロで複数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報