|
[銀行コードと支店名の一部を入力したら該当する支店名等が表示されるプログラムを考えております。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で抽出されたエクセル表のデータをとりだす方法
以上2点をお教えください。
本文なし]
|
|