| |
初めて質問させていただきます。よろしくお願いいたします。
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関数ですと意味が異なりますしわかりません。
宜しくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
