Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
417 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80457】EXCEL2010 VBA オートフィルタ りょうた 19/2/16(土) 21:51 質問[未読]
【80458】Re:EXCEL2010 VBA オートフィルタ マナ 19/2/16(土) 22:13 発言[未読]
【80460】Re:EXCEL2010 VBA オートフィルタ りょうた 19/2/16(土) 22:42 発言[未読]
【80462】Re:EXCEL2010 VBA オートフィルタ マナ 19/2/16(土) 23:17 発言[未読]
【80465】Re:EXCEL2010 VBA オートフィルタ りょうた 19/2/17(日) 4:56 発言[未読]
【80471】Re:EXCEL2010 VBA オートフィルタ マナ 19/2/17(日) 10:39 発言[未読]
【80478】Re:EXCEL2010 VBA オートフィルタ ピンク 19/2/17(日) 19:31 回答[未読]
【80481】Re:EXCEL2010 VBA オートフィルタ りょうた 19/2/17(日) 21:38 発言[未読]
【80482】Re:EXCEL2010 VBA オートフィルタ マナ 19/2/17(日) 21:50 発言[未読]
【80483】Re:EXCEL2010 VBA オートフィルタ りょうた 19/2/18(月) 5:49 お礼[未読]
【80457】EXCEL2010 VBA オートフィルタ
質問  りょうた  - 19/2/16(土) 21:51 -
引用なし
パスワード
   Sub macro1()

Dim MaxDay As Long
Dim MinDay As Long

Dim LastRow As Long
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
MaxDay = WorksheetFunction.Max(Range("C:C"))
MinDay = WorksheetFunction.Min(Range("C:C"))

With ActiveSheet.Range("$A$1:$AW" & LastRow)

'※１
.AutoFilter Field:=3, Criteria1:=MaxDay
.AutoFilter Field:=43, Criteria1:="ABC"

'※２
.AutoFilter Field:=3
.AutoFilter Field:=43, Criteria1:="AEWQ"


End With

End Sub

AからAWまでのデータがあります

C列に、年月日（YYYYMMDD形式）の文字があります
AQ列に、商品名があります

オートフィルタを2度実行して、シートに2度実行した結果を
表示したく思います

上記のコードで、オートフィルタを2度実施して、
シートに結果を表示しようとしているのですが
※１、※２共にデータがあるにも関わらず※２だけ表示されます

※１だけのコードなら、※１のデータが表示され、
※２だけのコードなら、※2のデータが表示されます

※１と※２のデータをシートに一度で表示するには
どのようにしたらよいでしょうか？

ご教示ください
【80458】Re:EXCEL2010 VBA オートフィルタ
発言  マナ  - 19/2/16(土) 22:13 -
引用なし
パスワード
   ▼りょうた さん：


>※１と※２のデータをシートに一度で表示するには
>どのようにしたらよいでしょうか？

最終的に表示したい条件を日本語で説明できますか
【80460】Re:EXCEL2010 VBA オートフィルタ
発言  りょうた  - 19/2/16(土) 22:42 -
引用なし
パスワード
   マナ様

失礼しました

ありがとうございます

オートフィルタを2度行います

1つ目はC列の年月日が大きくて、AQ列のABCを選択してデータを表示

2つ目はC列の年月日とAQ列のAEWQを選択してデータを表示

したいと思っています

C列ですが、年月日の大きいものと小さいものの２種類があります
例えば、20190215と20190217　がありましたら
1つ目のオートフィルタのC列の年月日は20190217になります
（大きいものだけを選択）

2つ目のオートフィルタのC列の年月日は20190217と20190215になります
（大きいものと小さいものを選択）
【80462】Re:EXCEL2010 VBA オートフィルタ
発言  マナ  - 19/2/16(土) 23:17 -
引用なし
パスワード
   ▼りょうた さん：

>C列ですが、年月日の大きいものと小さいものの２種類があります
>例えば、20190215と20190217　がありましたら
>1つ目のオートフィルタのC列の年月日は20190217になります
>（大きいものだけを選択）
>
>2つ目のオートフィルタのC列の年月日は20190217と20190215になります
>（大きいものと小さいものを選択）

そこまでは理解しています。
２回のオートフィルタの結果を一度で表示したいのですよね。

１つ目または２つ目の条件で抽出ということでしょうか。
そうであれば、オートフィルタではなく
フィルタオプションを使うとよいです。


　　
【80465】Re:EXCEL2010 VBA オートフィルタ
発言  りょうた  - 19/2/17(日) 4:56 -
引用なし
パスワード
   マナ様

ありがとうございます

１つ目と２つ目の条件で、抽出したいです
２回のオートフィルタの結果を一度で表示したいです
【80471】Re:EXCEL2010 VBA オートフィルタ
発言  マナ  - 19/2/17(日) 10:39 -
引用なし
パスワード
   ▼りょうた さん：

ですから、フィルタオプションを使用するとよいです。
オートフィルタの高機能版です。

手作業で実行できますので試してみてください。
ネット検索で、操作方法を説明したものが簡単にみつかります。

実行できたら、それをマクロ記録するとコードが得られますので
それを修正して仕上げることになります。
【80478】Re:EXCEL2010 VBA オートフィルタ
回答  ピンク  - 19/2/17(日) 19:31 -
引用なし
パスワード
   >※１と※２のデータをシートに一度で表示するには
>どのようにしたらよいでしょうか？

With ActiveSheet.Range("$A$1:$AW" & LastRow)
　　.AutoFilter Field:=3, Criteria1:=MaxDay, Operator:=xlOr, Criteria2:=MinDay
　　.AutoFilter Field:=43, Criteria1:="ABC", Operator:=xlOr, Criteria2:="AEWQ"
End With
【80481】Re:EXCEL2010 VBA オートフィルタ
発言  りょうた  - 19/2/17(日) 21:38 -
引用なし
パスワード
   ピンク様

ありがとうございます


1つ目はC列の年月日が大きくて、
AQ列のABCを選択してデータを表示

2つ目はC列の年月日とAQ列のAEWQを選択して
データを表示

したいのですが
ABCはmaxdayだけが、対象になり
AEWQはmindayとmaxdayが、対象になるのですか？
【80482】Re:EXCEL2010 VBA オートフィルタ
発言  マナ  - 19/2/17(日) 21:50 -
引用なし
パスワード
   ▼りょうた さん：

手作業で抽出できないものは、マクロでもできません。
オートフィルタでなく、
フィルタオプションを使用してください。
（これで３回めです）
【80483】Re:EXCEL2010 VBA オートフィルタ
お礼  りょうた  - 19/2/18(月) 5:49 -
引用なし
パスワード
   ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
417 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free