下記の表から複数の条件で個数を求めたいがゴールにたどりつけません?
条件1B列 1月
条件2C列 空白
条件3D列 りんごorみかんorいちご(野菜以外の果物)
下記のコードを書いてみましたが、「りんご」しか書いてませんので個数は0となり、「みかん」「いちご」をどのように書いたら良いかわかりません?
Sub test1()
Dim date_1 As String
Dim date_2 As String
date1 = 2022 / 1 / 1
date2 = 2022 / 1 / 31
ThisWorkbook.Worksheets(1).Cells(1, "F") = WorksheetFunction.CountIfs(Range("B:B"), ">=" & date1, Range("C:C"), "<=" & date2, Range("C:C"), "<>" & "", Range("D:D"), "りんご")
End Sub
お解かりになる方教えてください。困ってます。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
あ、
日付の列はB列ですから、
>Range("C:C"), "<=" & date2
は
Range("B:B"), "<=" & date2
でしたね。
No.3
- 回答日時:
こんにちは
>りんごorみかんorいちご
Count系でORを求めたければ、それぞれを算出して合計すれば良いです。
あるいは、SUMPRODUCTなどでまとめて計算するとか。
WorksheetFunctionだと面倒くさいのなら、直接、関数式を設定しておいて(=計算をエクセルにやらせて)、
.Value = .Value
で、定数化するという方法も考えられます。
No.1
- 回答日時:
Sub test1_1()
Dim date_1 As String
Dim date_2 As String
Dim v As Variant
date1 = "2022/1/1"
date2 = "2022/1/31"
With ThisWorkbook.Worksheets(1).Cells(1, "F")
For Each v In Array("りんご", "みかん", "いちご")
.Value = .Value + WorksheetFunction.CountIfs(Range("B:B"), ">=" & date1, Range("C:C"), "<=" & date2, Range("C:C"), "<>" & "", Range("D:D"), v)
Next
End With
End Sub
かな?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) Sheet1の出荷日と品名が並んだ表からSheet2の品名別出荷日別の個数一覧表を作っています。 オ 3 2022/12/01 23:54
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
【VBA】2つのシートの値を比較...
-
Cellsのかっこの中はどっちが行...
-
vbaでシートより100より大きい...
-
データグリッドビューの一番最...
-
VBA 何かしら文字が入っていたら
-
VBAを使って検索したセルをコピ...
-
rowsとcolsの意味
-
vba 2つの条件が一致したら...
-
マクロで列を加えたら上手くい...
-
マクロ 最終列をコピーして最終...
-
VBA とびとびの列を結合させる
-
VBAで10行おきにセルの下に罫線...
-
エクセル VBA ユーザーフォー...
-
文字列の結合を空白行まで実行
-
複数処理 Worksheet_Change(ByV...
-
Changeイベントでの複数セルの...
-
エクセル 2つの表の並べ替え
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報