質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

2006閲覧

VBAのオートフィルタについて

lq_hm_165912

総合スコア18

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2019/02/08 10:47

すみません、調べてもわからないため初歩的な質問を失礼します。
見出しのみしたコピーされないので、おそらくCriteria1の部分がおかしいのだと思いますが。。。

VBA コード Sub 抽出作業() '===========================================  抽出処理作業 Dim sh1 As Worksheet, SH2 As Worksheet Set sh1 = Worksheets("集計画面") Set SH2 = Worksheets("集計結果") SH2.Range("A5").CurrentRegion.Offset(1, 0).ClearContents msBox = "SH2.Range(A2)" With sh1.Range("A1") .AutoFilter Field:=5, _ Criteria1:="SH2.Range(A2)", _ Operator:=xlFilterValues .CurrentRegion.Copy SH2.Range("A5") .AutoFilter End With End Sub

初歩的で大変申し訳ないのですが、msgBoxで確認しても欲しいデータが得られない状態です。よろしくお願いします。。。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

Criteria1:="SH2.Range(A2)"

↑だと、
「SH2.Range(A2)」という文字列データを検索する条件になってしまうので、
ヒットするデータが0件になってしまうという事でしょう。

A2セルの「値」を抽出するのなら、
Criteria1:=SH2.Range(A2).Value
としましょう。

投稿2019/02/08 23:07

mattuwan

総合スコア2136

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

lq_hm_165912

2019/02/11 08:59

火曜まで出張なので、水曜日に試してみます!
lq_hm_165912

2019/02/13 00:02

.AutoFilter Field:=5, _ Criteria1:=SH2.Range(A2).Value, _ Operator:=xlFilterValues ここが黄色になってエラーになってしまいます。 Rangeメソッドは失敗しました Worksheetオブジェクト とでます。
torisan

2019/02/13 00:19

Criteria1:=SH2.Range(A2).Value ↓ Criteria1:=SH2.Range("A2").Value
lq_hm_165912

2019/02/13 00:36

エラーは出ませんが、出力されなくなりました。。。 シート1のA1から広がる表を抽出して、集計結果としてA5に貼りたいのですが、同じA1にしか貼れませんか?
atsunofu

2019/02/13 01:26

貼る処理の記載が無いのでは?
lq_hm_165912

2019/02/13 01:32

.CurrentRegion.Copy SH2.Range("A5") ここで抽出した結果をA5に貼れると認識していましたが間違いでしょうか? (他の同じ文句のマクロは正常に作動しています) 他のはA1→A1に貼っているため、上記のような質問をしています
atsunofu

2019/02/13 02:28

失礼しました。 当方の環境では Operator:=xlFilterValues を削除して .AutoFilter Field:=5, Criteria1:=SH2.Range("A2").Value .CurrentRegion.Copy SH2.Range("A5") .AutoFilter で行けました
lq_hm_165912

2019/02/13 03:28

やってみて出来なかったのですが、文字列の前に'がついているためのようです(手打ちで消したら出力しました。 頭の'を取るVBAを組み込んでもう一度やってみます!
atsunofu

2019/02/13 03:34

頑張って下さい
mattuwan

2019/02/13 05:21

>やってみて出来なかったのですが、文字列の前に'がついているためのようです 同じデータで試したいので、入力したい文字列と、実際のデータの実際の文字列を教えてください。
lq_hm_165912

2019/02/13 06:45

mattuwanさま 格闘したところ、無事にデータが完成出来ました! ~~項目を抽出する部分(別の集計マクロ内)~~ '------「'」を取り外します Dim r As Range Dim LastRow As Long '準備 LastRow = Cells(Rows.Count, "E").End(xlUp).Row Range("E2:E" & LastRow).Select For Each r In Selection If Not r.HasFormula Then r = r Next r ~~今回教えていただいた部分~~ Sub 抽出作業() '===========================================  抽出処理作業 Dim sh1 As Worksheet, SH2 As Worksheet Set sh1 = Worksheets("集計画面") Set SH2 = Worksheets("集計結果") SH2.Range("A5").CurrentRegion.Offset(1, 0).ClearContents With sh1.Range("A1") .AutoFilter Field:=5, _ Criteria1:=SH2.Range("A2").Value .CurrentRegion.Copy SH2.Range("A5") .AutoFilter End With End Sub
guest

0

VBA

1Option Explicit 2 3Sub 抽出作業() 4 Const c_Col As Long = 5 '検索列番号 5 Dim rngFrom As Range '元データセル範囲 6 Dim rngTo As Range '結果出力先セル 7 Dim rngKeyWord As Range '検索ワード入力欄 8 9 'セル範囲の定義 10 Set rngFrom = Worksheets("集計画面").Range("A1").CurrentRegion 11 With Worksheets("集計結果") 12 Set rngTo = .Range("A5").CurrentRegion 13 Set rngKeyWord = .Range("A2") 14 End With 15 '入力欄初期化 16 rngTo.ClearContents 17 18 With rngFrom 19 '既にフィルターが掛かっているかチェック(掛かっていたらいったん解除) 20 If .Worksheet.AutoFilterMode = True Then .AutoFilter 21 22 .AutoFilter Field:=c_Col, Criteria1:=rngKeyWord.Value 23 24 '抽出結果が1件以上かチェック 25 If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then 26 .Copy rngTo 27 MsgBox "データが見つかりません。" 28 End If 29 30 .AutoFilter 31 End With 32End Sub

こちらのテストでは「'」が問題になることはありませんでしたが、
「’」こっちですか?
フィルター系は見た目の文字列で動作するはずなのですが。。。。
もしまだ見てたら、現象を再現できる情報の提供をお願いします。
こちらも、勉強してるので。

投稿2019/02/13 13:01

mattuwan

総合スコア2136

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問