Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26360 / 76732

←次へ　｜　前へ→


	【55703】Re:Find検索からFindNext　が作動できない

yukio - 08/5/16(金) 11:10 -


	引用なし

	パスワード

▼kanabun さん：
　　　　
>　データ＞フィルタオプションの設定(AdvancedFilter)
>の機能を利用すると思いますが？

AdvancedFilter　利用のご提案有難うございました。
初めて目にするフィルタオプションですので早速コードを作ってみました。
データの少ないサンプルでコードを作り動かしてみたら問題がなかったので、現在使っているファイルに利用したところ、項目だけが横に並ぶのですがデータが抽出されてきません。いろいろいじったのですが原因が掴めません。アドバイスをお願いいたします。
　Sub ADF抽出()
　　 Dim MaxRows As Long
　　 Dim y As Integer
　　
　　　　Worksheets("CD目録").Range("T1").Value = "種別"
　　　　Worksheets("CD目録").Range("T2").Value = "交響曲"
　　　　Worksheets("CD目録").Range("U1").Value = "作曲者名"
　　　　Worksheets("CD目録").Range("U2").Value = "ハイドン"
　　
　　 MaxRows = Sheets("CD目録").UsedRange.Rows.Count
　　 y = MaxRows
　　
　　Worksheets("仮抽出").Range("A:E").Clear

　　Union(Range("E2:H2"), Range("K2")).Select
　　Application.CutCopyMode = xlCut
　　Selection.Copy
　　Sheets("仮抽出").Select
　　Range("A1").Select
　　ActiveSheet.Paste
　　
　　Worksheets("CD目録").Range("C2:K" & y).AdvancedFilter _
　　　　 Action:=xlFilterCopy, _
　　　　 CriteriaRange:=Worksheets("CD目録").Range("T1:U2"), _
　　　　 CopyToRange:=Worksheets("仮抽出").Range("A1:E1"), _
　　　　 Unique:=False
　End Sub
　　　無理な注文なのかコードに間違いがあるのか分かりません。
　　　よろしくご指導のほどお願いします。

0 hits

▼

【55513】Find検索からFindNext　が作動できない yukio 08/5/9(金) 10:20