Excel VBA質問箱 IV

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

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


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

72432 / 76738

←次へ　｜　前へ→


	【8790】テキストＢＯＸに＊を自動で貼り付けたい

カルーア

- 03/11/3(月) 16:49 -


	引用なし

	パスワード

オートフィルターを使ってデータ検索する時に、＊を使って何々を含むと言う検索条件にしたいのだが、テキストＢＯＸに書き込む時常に＊を前後に入れなければならないので自動的に＊がはいるプログラムにしたい。
Private Sub CommandButton1_Click()
　　
　　Dim 区分 As String, 部品番号 As String, 仕様 As String, 仕様2 As String
　　Dim 備考 As String, 単位 As String

　　Range("A2").Select
　　Selection.AutoFilter
　　If CheckBox1.Value = True Then
　　　　If ComboBox1.Value <> "" Then
　　　　　　区分 = ComboBox1.Text
　　　　End If
　　　　Selection.AutoFilter Field:=2, Criteria1:=区分
　　End If
　　If CheckBox2.Value = True Then
　　　　If TextBox1.Value <> "" Then
　　　　　　部品番号 = TextBox1.Text
　　　　End If
　　　　Selection.AutoFilter Field:=5, Criteria1:=部品番号
　　End If
　　If CheckBox3.Value = True Then
　　　　If TextBox2.Value <> "" Then
　　　　　　仕様 = TextBox2.Text
　　　　　　仕様2 = TextBox3.Text
　　　　End If
　　　　Selection.AutoFilter Field:=6, Criteria1:=仕様, Operator:=xlAnd, _
　　　　　　Criteria2:=仕様2
　　End If
End Sub

宜しく願い致します。

0 hits

▼

【8790】テキストＢＯＸに＊を自動で貼り付けたい カルーア 03/11/3(月) 16:49

≪