前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループできないか下記コードで試したところエラーにはなりませんが、最上段のセルL3に「0」が入って終わってしまいました。全ての品名のカウントを変数cで指定したL列のぶどうDまで入力するにはどのようにしたらよいか教えてください。
Sub 抽出()
'品名呼び出し
Dim i
For i = 3 To 22
Call 指定品名抽出(Worksheets("Sheet2").Cells(i, "B").Value)
Next i
End Sub
Sub 指定品名抽出(ByVal hinmei As String)
'オートフィルターで抽出
Dim Count As Long
With Worksheets("Sheet3")
'抽出条件1
Range("B4").AutoFilter 2, Array("五個入り", "10個入り", "ケース ", "1個, xlFilterValues
'抽出条件2
Range("B4").AutoFilter 6, hinmei
Count = WorksheetFunction.Subtotal(3, Range("B4").CurrentRegion.Columns(1))
End With
'処理月へ転記
Dim c As Long
Dim d As Long
With Worksheets("Sheet1")
For c = 3 To 14 '4月~3月の範囲
For d = 3 To 22
If .Cells(2, c).Value = Worksheets("Sheet1").Range("A2").Value Then
Worksheets("Sheet2").Cells(3, c) = Count - 1
Exit For
End If
Next d
Next c '該当月の指定
End With
Application.CutCopyMode = False
End Sub
No.6ベストアンサー
- 回答日時:
こんなことひょっとしたら…できたらいいな!と毎回質問させていただいていますが、イメージどおりの答えを用意していただき感謝です。今回は、プロシージャのタイトルについている()の意味とByVal:値渡しについて勉強させていただきました。ありがとうございます。
No.5
- 回答日時:
シート2の2行目って昨年値を入れたのなら、1月~3月って2022年になっていたりはしませんよね?(フィルコピーしたとしたらならないかもですが)
でもL3に 0 が入っている?のもおかしいですし。
やっぱ人の作成したコード解析は難しいですね。
⇒回答者間でもあり得る事です。
考え方がそれぞれに違いますので。
作成されたベテラン様にお任せするしかないかも?
私の場合だと4~3月の年度方式でも、○○年は無視して『月』で列を決め打ちしますし。(1~12月でもそうですけど)
No.4
- 回答日時:
'抽出条件1
.Range("B4").AutoFilter 2, Array("五個入り", "10個入り", "ケース ", "1個", xlFilterValues '★
ミスりました。
'抽出条件1
.Range("B4").AutoFilter 2, Array("五個入り", "10個入り", "ケース ", "1個"), xlFilterValues '★
こちらです。
No.3
- 回答日時:
Sub 指定品名抽出(ByVal hinmei As String)
'オートフィルターで抽出
Dim Count As Long
With Worksheets("Sheet3")
'抽出条件1
Range("B4").AutoFilter 2, Array("五個入り", "10個入り", "ケース ", "1個, xlFilterValues
'抽出条件2
Range("B4").AutoFilter 6, hinmei
Count = WorksheetFunction.Subtotal(3, Range("B4").CurrentRegion.Columns(1))
End With
↓
Sub 指定品名抽出(ByVal hinmei As String)
'オートフィルターで抽出
Dim Count As Long
With Worksheets("Sheet3")
'抽出条件1
.Range("B4").AutoFilter 2, Array("五個入り", "10個入り", "ケース ", "1個", xlFilterValues '★
'抽出条件2
.Range("B4").AutoFilter 6, hinmei '★
Count = WorksheetFunction.Subtotal(3, .Range("B4").CurrentRegion.Columns(1)) '★
End With
ありがちな with~end with を使った際に該当するシートに対するオブジェクトを関連させる『先頭の "."』をつけ忘れているからとか?
たまたまそのシートがアクティブ状態ならエラーにはならないでしょう。
あと画像では昨年12月のデータみたいですが今年1月のデータありますか?
それと試しに手作業でのフィルタにて1月のデータが抽出されるか確認すべきかも。
No.2
- 回答日時:
>品名りんごAから順に20回for nextでループできないか
これは
Sub 抽出()
'品名呼び出し
Dim i
For i = 3 To 22
Call 指定品名抽出(Worksheets("Sheet2").Cells(i, "B").Value)
Next i
End Sub
ここでやっていることですよね?
そうすると
>For d = 3 To 22
>Next d
っていらないのでは?
中のIf文は必要ですけど、変数:dは何もしていないようですし。
あと
>Application.CutCopyMode = False
これも。
ただ原因は違うかもですね。
まさかですけど2023/1/?のデータはまだ入っていないとか?
すいません。Range("B4").AutoFilter 2, Array("五個入り", "10個入り", "ケース", "1個"), xlFilterValues
でした。
No.1
- 回答日時:
提示されたマクロをコピペして、こちらで表示すると、
抽出条件1の
Range("B4").AutoFilter 2, Array("五個入り", "10個入り", "ケース ", "1個, xlFilterValues
がエラー表示されます。
添付図参照。(赤線で囲んだ箇所です)
本当にこれで、実行できたのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- 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ランキング
-
SQLで特定の項目の重複のみを排...
-
DataViewで複数条件の...
-
バッチでcsvファイルの指定のカ...
-
php mysql で WHERE句内に変数...
-
C# リストビューの値を取得
-
FormulaR1C1でSUMIF変数指定
-
google formsを使ったタスク依...
-
初心者)DataGridViewの入力桁...
-
fgetcsvでCSVを取得した際のnul...
-
COBOLについて
-
CSSが突然部分的に効かなくなり...
-
swift初心者です。swiftでの質...
-
ActiveReportの書き方
-
SELECT 文 GROUP での1件目を...
-
フィルターかけた後、重複を除...
-
差し込み後、元データを変更し...
-
エクセルで最後の文字だけ置き...
-
外部参照してるキーを主キーに...
-
INSERT文でフィールドの1つだ...
-
副問合せの書き方について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQLで特定の項目の重複のみを排...
-
バッチでcsvファイルの指定のカ...
-
リストビューの項目の内容を変...
-
php mysql で WHERE句内に変数...
-
COBOLについて
-
fgetcsvでCSVを取得した際のnul...
-
DataGridView 右詰め
-
DataViewで複数条件の...
-
FormulaR1C1でSUMIF変数指定
-
初心者)DataGridViewの入力桁...
-
Sheet3から2つの条件でオートフ...
-
COBOL プログラミング
-
Access2000 の更新クエリでカウ...
-
ListView
-
ListViewのカラムの色の変更
-
[WHS]定数宣言の際にリテラル文...
-
google formsを使ったタスク依...
-
投稿 表示・非表示設定
-
VB2008 コンボボックスとテキ...
-
テキスト幅にあわせた表の作り...
おすすめ情報
説明不足で申し訳ございません。Sheet1、Sheet2、Sheet3について補足させていただきます。
・「Sheet1セルA2」の日付は、Sheet2の2行目の月と一致させるために使います。
・「Sheet2」は「Sheet3」の集計結果を取りまとめるのに使います。
補足の図を追加させていただきます。
ご指南いただいた下記コードで抽出を実行したところ、エラーにはなりませんでしたがSheet2のL列への転記ができませんでした。Sheet3を見たところ、2つの条件で最終行の項目ぶどうDが抽出されていました。(画像参照)
End With以下のコード'処理月へ転記でSheet2各項目りんごAからぶどうDまで、Sheet3から2条件で抽出した件数を転記するイメージなのですが...画像のように最後に抽出したぶどうDの個数は8個なので、Sheet2セルL22には8が入るイメージです。しかしL列は、全ての項目が空白です。
'処理月へ転記
Dim c d
With Worksheets("Sheet1")
For c = 3 To 14 '4月~3月の範囲
For d = 3 To 22
If .Cells(2, c).Value = Worksheets("Sheet1").Range("A2").Value Then
Worksheets("Sheet2").Cells(d, c) = Count - 1
Exit For
End If
Next d
Next c '該当月の指定
End With
End Sub