| |
▼takatuki さん：
貴殿のコードそのままでいけますよ。
一部手直しというか、置換えだけです。
Private Sub CommandButton1_Click()
Dim sagasukoodo As Integer 'integerの方が実作業に使いやすいと思います
Dim sagasusitenmei As String
sagasukoodo = TextBox1
sagasusitenmei = TextBox2
With Worksheets(1).Range("A1")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=sagasukoodo
.AutoFilter Field:=3, Criteria1:=sagasusitenmei & "*"
End With
End Sub
>［銀行コードと支店名の一部を入力したら該当する支店名等が表示されるプログラムを考えております。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で抽出されたエクセル表のデータをとりだす方法
>
上記コードをシート１のモジュール「Private Sub CommandButton1_Click() と End Sub」に貼り付けてください。（ご存知で、煩わしいメモかも知れませんが･･･）
後はリストボックスを２個シート上に作成してください。
実際の検索になれば、
リストボックス１(支店名コード）には数字を全角半角を間違いないように･･･半角を入れてください→間違いが少ないと思います（integerに変更していますので）
リストボックス２は現在「カタカナ」のままです。(入力は元データの全角でしょうか、それに合った入力･･･例えば「タカ」と入れます。
後はコマンド釦を押すだけで出来ます。
テスト済みですので、問題ないはずです。B1が空白ですとエラーになります。
>以上２点をお教えください。
>
>本文なし］
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 05/10/16(日) 10:13 -
