Excel2010 目標売上に達した日の自動抽出

質問

Ｂ９：Ｂ３９セルに、日付が自動表示されます。
Ｗ９：Ｗ３９セルに、Ｂ９：Ｂ３９セルの日付の売上が自動表示されます。
＊Ｂ９：Ｂ３９は日付自動表示関数が入力されています。
＊Ｗ９：Ｗ３９はSUM関数が入力されています。
＊オプションでは「ゼロ値のセルにゼロ表示をする」のチェックを外してゼロ表示しない設定にしてます。

Ｄ４５、Ｇ４５、Ｊ４５、Ｍ４５、Ｐ４５、Ｓ４５、Ｖ４５、Ｙ４５、ＡＢ４５、ＡＥ４５、ＡＨ４５、ＡＫ４５のセルに
Ｗ９：Ｗ３９セルの売上が￥200000以上の日付を抽出して自動表示したいです。
＊日にちの自動抽出表示は、Ｄ４５セルから順に日づけの小さい数値から表示するようにしたいです。
＊日にちの自動抽出表示は、Ｄ４５からＡＫ４５までの合計１２日数を上限して１３日めからは表示しません。

例）Ｗ１０セルに￥1000000が自動表示、Ｗ１２セルに￥1200000が自動表示された場合、
Ｄ４５セルに２が表示、Ｇ４５セルに４が表示される。

よろしくお願いいたします。

回答No.1

imogasi · ベストアンサー

質問の書き方がごたごたして、読みずらい。
関数でやるのか、VBAでもよいのかもはっきりしない。
ーー
VBAでやったが、
200000円以上の日の行をフィルター下結果を残せばよいのだろう。
例データ
B1:D31　C列は空白（データがあってもさ同じ）
日付 　　売上
2021/4/1 345
2021/4/2 321
2021/4/3 245
2021/4/4 342
2021/4/5 561
2021/4/6 432
2021/4/7 651
2021/4/8 234
2021/4/9 541
2021/4/10 661
以下中間略
2021/4/20 325
2021/4/21 224
2021/4/22 158
2021/4/23 658
2021/4/24 513
2021/4/25 625
2021/4/26 129
2021/4/27 335
2021/4/28 421
2021/4/29 448
2021/4/30 124
このデータで売上３００以上のデータ行を残す。
標準モジュールで
Sub FilterRows200()
ActiveSheet.Range("b1:D31").AutoFilter Field:=3, Criteria1:=">=300"
End Sub
ーー
結果は長くなるので掲載略。
実行結果を見てください。
列や金額は質問の実情で修正のこと。
質問ではB列から、W列などに飛んでいるので、C列も飛ばした例を作った。
ーー
Top20の場合は、VBAでは、（解説記事が少なく苦労する）
Sub FilterRowsTop10()
ActiveSheet.Range("b1:D31").AutoFilter Field:=3, Criteria1:="20", Operator:=xlTop10Items
End Sub
２０番までーー＞Criteria1:="20"
D列はB列から３番目ーー＞Field:=3
Operator:=xlTop10Itemsーー＞希望は、Topの１０ではないが、こう書くようだ。

お礼

ありがとうございました