Excel VBA質問箱 IV

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

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


12767 / 13646 ツリー ←次へ | 前へ→

【8790】テキストBOXに*を自動で貼り付けたい カルーア 03/11/3(月) 16:49 質問
【8792】Re:テキストBOXに*を自動で貼り付けたい ぴかる 03/11/3(月) 17:18 回答
【8795】Re:テキストBOXに*を自動で貼り付けたい カルーア 03/11/3(月) 17:40 お礼

【8790】テキストBOXに*を自動で貼り付けたい
質問  カルーア E-MAIL  - 03/11/3(月) 16:49 -

引用なし
パスワード
   オートフィルターを使ってデータ検索する時に、*を使って何々を含むと言う検索条件にしたいのだが、テキストBOXに書き込む時常に*を前後に入れなければならないので自動的に*がはいるプログラムにしたい。
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

宜しく願い致します。

【8792】Re:テキストBOXに*を自動で貼り付けた...
回答  ぴかる  - 03/11/3(月) 17:18 -

引用なし
パスワード
   カルーアさん、こんにちは。

マクロ記録して、変数化してみました。こんなんでいけるかも?。
  Selection.AutoFilter Field:=2, Criteria1:="=*" & 区分 & "*"

【8795】Re:テキストBOXに*を自動で貼り付けた...
お礼  カルーア E-MAIL  - 03/11/3(月) 17:40 -

引用なし
パスワード
   ぴかるさん 大変ありがとうございました。
問題は、無事解決しました。

12767 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free