Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7631 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【37841】セル内に入力した文字の抽出 たまこ 06/5/20(土) 17:19 質問[未読]
【37844】Re:セル内に入力した文字の抽出 たまえ 06/5/20(土) 18:22 回答[未読]
【37846】Re:セル内に入力した文字の抽出 たまこ 06/5/20(土) 20:26 発言[未読]
【37861】Re:セル内に入力した文字の抽出 たまこ 06/5/21(日) 13:25 お礼[未読]
【37841】セル内に入力した文字の抽出
質問  たまこ  - 06/5/20(土) 17:19 -
引用なし
パスワード
   初心者です。よろしくお願いします。

名前　　　　（　　　）　　（抽出ボタン）
ふりがな　　（　　　）　　（抽出ボタン）

名前　　　ふりがな　　　番号
田中　　　たなか　　　　１１１
吉田　　　よしだ　　　　２２２
内田　　　うちだ　　　　３３３
伊藤　　　いとう　　　　４４４
佐藤　　　さとう　　　　５５５

名前やふりがなを入力して抽出ボタンを押すと、それと一致する行を抽出したいです。
また、かなりの件数になるのでオートフィルタを利用して抽出するボタンを作りたいのですが
イマイチわかりません。よろしくお願いします。
【37844】Re:セル内に入力した文字の抽出
回答  たまえ  - 06/5/20(土) 18:22 -
引用なし
パスワード
   ▼たまこ さん：

Sub Auto_Filter()
With Range("a6")
　.AutoFilter
　.AutoFilter Field:=1, Criteria1:=Range("B3")
　.AutoFilter Field:=2, Criteria1:=Range("B4")

End With
End Sub

セルの位置は←のところで作成しています。
異なれば変更をしてください。

>初心者です。よろしくお願いします。
>
>名前　　　　（　　　）　　（抽出ボタン） ←括弧のセルをB3･･･文字入力
>ふりがな　　（　　　）　　（抽出ボタン） ←括弧のセルをB4･･･文字入力　
>
>名前　　　ふりがな　　　番号　　　　　　←名前のセルがA6
>田中　　　たなか　　　　１１１
>吉田　　　よしだ　　　　２２２
>内田　　　うちだ　　　　３３３
>伊藤　　　いとう　　　　４４４
>佐藤　　　さとう　　　　５５５
【37846】Re:セル内に入力した文字の抽出
発言  たまこ  - 06/5/20(土) 20:26 -
引用なし
パスワード
   ▼たまえ さん：
前回コードは漢字かつひらかなの条件から検索させています。

漢字は漢字、ひらかなはひらかなの単独でAutoFilterをかけてたい場合は･･･
以下の３コードを貼り付けてください。

Sub Auto_Filter1()　　'「漢字」からAutoFilter
With Range("a6")
　.AutoFilter Field:=1, Criteria1:=Range("B3")
End With
End Sub

Sub Auto_Filter2()　　'「ひらかな」からAutofilter
With Range("a6")
　.AutoFilter Field:=2, Criteria1:=Range("B4")
End With
End Sub

Sub Auto_Filter3()　　 'AutoFilter解除
With Range("a6")
　.AutoFilter
End With
End Sub
【37861】Re:セル内に入力した文字の抽出
お礼  たまこ  - 06/5/21(日) 13:25 -
引用なし
パスワード
   たまえさん

大成功しました。丁寧に、本当にどうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7631 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free