Excel VBA質問箱 IV

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

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


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

11331 / 76735

←次へ　｜　前へ→


	【70942】検索にて、入力した値の上下数%のデータのみを表示

kkk - 12/1/19(木) 15:27 -


	引用なし

	パスワード

初めて質問させていただきます。よろしくお願いいたします。

Excel2003VBAにて、
ユーザーフォームにて値を打ち込み、ある範囲を指定して検索するシステムを作っていますが、範囲の指定方法がわかりません。

例.
1,2,3,4,5,6,7,8,9,10　とデータがあるとき
入力値:5
検索範囲：20% (0.8～1.2)
検索結果：4,5,6

と出るようにしたいです。
以下は、検索フォームの検索ボタンのプログラムです。

----------------------------------------------------------------
シート：Sheet1
データ範囲：1行A列～RowNum行A列　（RowNumは行数をカウント後、下端の行番号が入ります。）
検索範囲:入力した値の上下20%

Private Sub CommandButtonSEARCH_Click() '検索ボタンクリック
　Call myFilter(1, textbox1.Value)
End Sub

myFilterの内容
↓
Private Sub myFilter(tmpF As Integer, tmp1 As Variant) 'オートフィルタを設定
　　
　　Dim RowNum As Long
　　Dim myfomula As String
　　RowNum = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "E").End(xlUp).Row

　　With Sheets("Sheet1")
　　　　If Trim(tmp1) <> "" Then '数値が入っている
　　　　　　　　.Range(.Cells(1, "A"), .Cells(RowNum, "A")).AutoFilter Field:=tmpF, Criteria1:="　　　" & tmp1
　　　　　　
　　　　End If
　　End With
End Sub

そこでCriteriaの指定方法を教えていただきたいと思います。
TRIMMEAN関数ですと意味が異なりますしわかりません。
宜しくお願いいたします。

2 hits

▼

【70942】検索にて、入力した値の上下数%のデータのみを表示 kkk 12/1/19(木) 15:27

≪