Excel VBA質問箱 IV

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

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


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

43964 / 76782

←次へ　｜　前へ→


	【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
>田中　　　たなか　　　　１１１
>吉田　　　よしだ　　　　２２２
>内田　　　うちだ　　　　３３３
>伊藤　　　いとう　　　　４４４
>佐藤　　　さとう　　　　５５５

0 hits

▼

【37841】セル内に入力した文字の抽出 たまこ 06/5/20(土) 17:19