Excel VBA質問箱 IV

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

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


70124 / 76738 ←次へ | 前へ→

【11125】Re:フィルタについて
質問  などなど  - 04/2/28(土) 20:50 -

引用なし
パスワード
   カーターさん
こんばんは
返信ありがとうございます

バージョン: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
------------------------------------------------------
フィルターを実行し、フィルタをかけたいセルをアクティブにしてフォームに項目を入力しフィルターをかけるといったシンプルなものなのですが。
実際にフィルタをかけたいのは、商品名(半角・全角・英数のものです)
現在半角・全角それぞれ入力をわけないとフィルタがかからないので修正中です

よろしくお願い致します。

0 hits

【11100】フィルタについて などなど 04/2/28(土) 4:32 質問
【11104】Re:フィルタについて かみちゃん 04/2/28(土) 11:01 回答
【11124】Re:フィルタについて などなど 04/2/28(土) 20:49 質問
【11130】Re:フィルタについて かみちゃん 04/2/28(土) 23:32 回答
【11133】Re:フィルタについて などなど 04/2/29(日) 2:18 質問
【11105】Re:フィルタについて Jカーター 04/2/28(土) 11:13 回答
【11125】Re:フィルタについて などなど 04/2/28(土) 20:50 質問
【11164】Re:フィルタについて アイエネス 04/3/1(月) 19:42 回答
【11166】Re:フィルタについて などなど 04/3/1(月) 23:46 お礼

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