Excel VBA質問箱 IV

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

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


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

51692 / 76738

←次へ　｜　前へ→


	【29908】AutoFilterの使い方

takatuki - 05/10/16(日) 10:00 -


	引用なし

	パスワード

［銀行コードと支店名の一部を入力したら該当する支店名等が表示されるプログラムを考えております。AutoFilterを使いますが、
1.テキストボックスに入力した値で検索したいのですがうまくいきません。Criteriaを直接の値を入力するとうまく抽出されますが、
変数（sagasukoodo,　　sagasusitenmei & “*”）を使うと抽出されません

Private Sub CommandButton1_Click()
　　Dim sagasukoodo As String
　　Dim sagasusitenmei As String

　　sagasukoodo = TextBox1.Text
　　sagasusitenmei = TextBox2.Text

　　With Worksheets(1).Range("A1")
　　　　 .AutoFilter
　　　　 .AutoFilter Field:=1, Criteria1:="9"
　　　　 .AutoFilter Field:=3, Criteria1:="ﾀｶ*"
　　　　 End With
End Sub

を変数を使って
.AutoFilter Field:=1, Criteria1:=　sagasukoodo
.AutoFilter Field:=3, Criteria1:= sagasusitenmei　& “*”
にすると抽出されません。解決策は

2.うえの1.でうまく抽出できるとデータがエクセル表で表示されます。このエクセル表に表示されたデータを使いたい。たとえばリストボックスにでも表示させてそこでひとつの支店名を確定したいのですが、AutoFilterで抽出されたエクセル表のデータをとりだす方法

以上２点をお教えください。

本文なし］

0 hits

▼

【29908】AutoFilterの使い方 takatuki 05/10/16(日) 10:00

≪