Excel VBA質問箱 IV

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

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


72426 / 76732 ←次へ | 前へ→

【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

宜しく願い致します。

0 hits

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

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