|
カーターさん
こんばんは
返信ありがとうございます
バージョン:97,2000で作ってます(会社は97 自宅は2000です)
会社の資料は持ち帰れないので自宅では偽サンプルで同じような項目を作ってテストしています。
■データー□名前□会社名□商品名□住所 など20項目ほど設定(実際のデーターは24項目あります)
■フォーム:●ボタン3種類(サーチ・フィルタ解除・閉じるの三つです)
●テキストボックス1つ
------------------------------------------------------
Sub オートフィルター()
UserFormJOB2.Show vbModeless ’オートフィルタ実行
End Sub
------------------------------------------------------
□userfom Initialze
Private Sub UserForm_Initialize()
TextBox1.MultiLine = False
End Sub
(テキストボックスに複数項目入力できるようにしたのですが必要でしょうか?)
(テキストボックスのプロパティで設定すればよいのでしょうか?)
------------------------------------------------------
□サーチ click
Private Sub サーチ_Click()
ActiveSheet.UsedRange.AutoFilter _
Field:=ActiveCell.Column, _
Criteria1:="=*" & TextBox1.Value & "*" 'オートフィルタを実行
End Sub
------------------------------------------------------
□フィルタ解除
Private Sub フィルタ解除_Click()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub
------------------------------------------------------
フィルターを実行し、フィルタをかけたいセルをアクティブにしてフォームに項目を入力しフィルターをかけるといったシンプルなものなのですが。
実際にフィルタをかけたいのは、商品名(半角・全角・英数のものです)
現在半角・全角それぞれ入力をわけないとフィルタがかからないので修正中です
よろしくお願い致します。
|
|