Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7448 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39132】オートフィルタについて ME 06/6/18(日) 20:25 質問[未読]
【39133】Re:オートフィルタについて かみちゃん 06/6/18(日) 20:32 回答[未読]
【39135】Re:オートフィルタについて ME 06/6/18(日) 20:55 発言[未読]
【39140】Re:オートフィルタについて かみちゃん 06/6/19(月) 6:52 回答[未読]
【39180】Re:オートフィルタについて Kein 06/6/19(月) 15:58 回答[未読]
【39218】Re:オートフィルタについて ME 06/6/19(月) 22:43 お礼[未読]
【39132】オートフィルタについて
質問  ME  - 06/6/18(日) 20:25 -
引用なし
パスワード
   オートフィルタについて教えてください！

A列の何人かの中から佐藤さんだけをオートフィルタで抽出したいのですが
うまく実行しません。
どこを間違えているのでしょうか？
よろしくお願いします。

Private Sub 佐藤_Click()
With Worksheets(1).Range("A7")
　　 .AutoFilter Field:=1.Criteria1="佐藤"
End With
End Sub　
【39133】Re:オートフィルタについて
回答  かみちゃん  - 06/6/18(日) 20:32 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>A列の何人かの中から佐藤さんだけをオートフィルタで抽出したいのですが
>うまく実行しません。

どのようなシート内容でどのようにうまく実行しないのでしょうか？
エラーが出るなら、エラーメッセージも書きましょう。

ちなみに、標準モジュールに以下のように記述したら、うまく抽出されますよ。
Sub Macro2()
　Range("A7").AutoFilter Field:=1, Criteria1:="佐藤"
End Sub
【39135】Re:オートフィルタについて
発言  ME  - 06/6/18(日) 20:55 -
引用なし
パスワード
   かみちゃんさん、すぐの回答ありがとうございます。

エラーは　名前付き引数です。と出ます。

　　　 A　　　B
7　 佐藤　　140
8　 山田　　230
9　 佐藤　　450
10　田中　　200
11　竹下　　145
12　福田　　185
13　佐藤　　200
14　山田　　300

A列の佐藤さんの情報だけを抽出したいのです。
よろしくおねがいします。
【39140】Re:オートフィルタについて
回答  かみちゃん  - 06/6/19(月) 6:52 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>エラーは　名前付き引数です。と出ます。

[#39133]のコメントとよく比べてみてください。
（正）.AutoFilter Field:=1, Criteria1:="佐藤"
（誤）.AutoFilter Field:=1.Criteria1="佐藤"
【39180】Re:オートフィルタについて
回答  Kein  - 06/6/19(月) 15:58 -
引用なし
パスワード
   フィルターをかけるなら、項目行が必要です。それが無いなら数式で判定する方法で

Sub MyFilter()
　 On Error Resume Next
　 With Range("A7", Range("A65536").End(xlUp)).Offset(, 255)
　　　.EntireRow.Hidden = False
　　　.Formula = "=IF($A7=""佐藤"","""",1)"
　　　.SpecialCells(3, 1).EntireRow.Hidden = True
　　　.ClearContents
　 End Eith
End Sub
【39218】Re:オートフィルタについて
お礼  ME  - 06/6/19(月) 22:43 -
引用なし
パスワード
   すみません。
とても単純なミスでした。
ありがとうございました。

Keinさん、ご回答ありがとうございます。
こちらの方法でもtryしてみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7448 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free