Excel VBA質問箱 IV

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

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


7434 / 13644 ツリー ←次へ | 前へ→

【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してみます。

7434 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free