コードをうまくまとめられることが
できないんでしょぅか。
折角、プログラムをやっているのに
プログラム自体がアナログコード
になりはずかしいです。
Sub test31()
Dim i, l As Long
For i = 15 To 17
Cells(i, 12).Value = Application. _
SumIfs(Range("g15:g22"), Range("e15:e22"), Range("k" & i), Range("f15:f22"), ">=2017/5/1", Range("f15:f22"), "<=2017/5/31")
Cells(i, 13).Value = Application. _
SumIfs(Range("g15:g22"), Range("e15:e22"), Range("k" & i), Range("f15:f22"), ">=2017/6/1", Range("f15:f22"), "<=2017/6/30")
Cells(i, 14).Value = Application. _
SumIfs(Range("g15:g22"), Range("e15:e22"), Range("k" & i), Range("f15:f22"), ">=2017/7/1", Range("f15:f22"), "<=2017/7/31")
Cells(i, 15).Value = Application. _
SumIfs(Range("g15:g22"), Range("e15:e22"), Range("k" & i), Range("f15:f22"), ">=2017/8/1", Range("f15:f22"), "<=2017/8/31")
Range("l15:o17").NumberFormatLocal = "#,##0"
Next
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは!
VBAでもそのままワークシート関数が使えますので、
そのままワークシート関数を使ってみました。
Sub Sample1()
Dim myRng As Range
With Range("L15:O17")
.NumberFormatLocal = "#,##0"
.Formula = "=SUMIFS($G$15:$G$22,$E$15:$E$22,$K15,$F$15:$F$22,"">""&EOMONTH(DATE(2017,COLUMN(E1),0),0),$F$15:$F$22,""<=""&EOMONTH(DATE(2017,COLUMN(E1),1),0))"
.Value = .Value
End With
End Sub
こんな感じでも同様の結果になると思います。
※ 大勢に影響はないと思いますが・・・
お示しのコードの変数の宣言の部分で
>Dim i, l As Long
は一つずつ
>Dim i As Long, l As Long
と宣言するコトをおススメします。
>Dim i, l As Long
とすると「i」はVariant型になります。m(_ _)m
有難うございます。
同じコードでもなんかレベルが違いますね。
EOMONTH(DATE(2017,COLUMN(E1),0),0),$F$15:$F$22,""<=""&EOMONTH(DATE(2017,COLUMN(E1),1),0))"
.Value = .Value
恥ずかしながらこのコードがわかりませんが
調べて自分なりに解決します。
貴重な時間有難うございました。
No.2
- 回答日時:
No.1です。
投稿後きづきました。
前回のコード内の
>Dim myRng As Range
は不要でしたね。
消去してください。
どうも失礼しました。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) VBAで列を削除 3 2023/02/01 11:00
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vba SelStart、SelLen教えてく...
-
現在のブックを閉じないで、マ...
-
ExcelVBA シート名を複数セルか...
-
ユーザーフォームに別シートか...
-
【VBA】マクロの入ったファイル...
-
VBA listBoxから
-
VBAコンボボックスで選択した値...
-
VBA初心者 Ctrl+での操作、ボタ...
-
VBA実行後に元のセルに戻りたい
-
Excel-VBAのmsgBox()の不思議
-
エクセルのマクロについて教え...
-
FileCopy時のエラー
-
Excelのマクロでワードのテキス...
-
【ExcelVBA】インデックスが有...
-
Outlookの「受信日時」「送信者...
-
VBAで各列の"+"と"o"の合計数を...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのコードを教えてください
-
【ExcelVBA】インデックスが有...
-
ExcelVBA シート名を複数セルか...
-
エクセルvbaについて
-
エクセルのマクロについて教え...
-
【VBA】マクロの入ったファイル...
-
VBA UserFormからの転記で
-
エクセルVBAの配列について
-
Excelで「Ctrl+c」、「Ctrl+v...
-
VBAコードについて教えてくださ...
-
ExcelのVBAコードについて教え...
-
Excel マクロについての相談
-
VBAで質問があります
-
VBAコードについて
-
【ExcelVBA】VBA実行でダイアロ...
-
Excel関数またはVBAでの質問に...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
ExcelのVBAコードについて教え...
-
Outlookの「受信日時」「件名」...
おすすめ情報