VBA他の2つの間で値を見つける

Question

Excelで小さなVBAプロジェクトを完成しようとしていますが、フィルタ/検索オプションを組み込むよりも簡単にデータをフィルタリングできます。基本的には、データヘッダーに関連したユーザー入力を持つフォームがあります。私は、検索される値に許容範囲の入力を持っています。例えば、入力は次のようになります。名目上の検索値。耐性。その後、その許容範囲内のデータのすべての行が検索されます。

各行を実行して新しいシートにコピーするためにループしたいコードは次のとおりです。範囲 "fc"を、ssMinとssMaxの間にある最初に見つかったセルと等しくなるように設定したいとします。 Ifブロックを使用する方が良いですか？

Private Function searchCells(ifc) 
    Dim ss As Integer 
    Dim fc As Range 
    Dim ssMax As Integer 
    Dim ssMin As Integer 

    ss = lstboxChannelList.List(ifc, 1) 
    ssMax = ss + lstboxChannelList.List(ifc, 2) 
    ssMin = ss - lstboxChannelList.List(ifc, 2) 

    Set fc = Cells.Find(What:=(ssMin <= ssMax), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 
    fc.Select 

    End Function 

Answer 1

おかげで再びコメントを、私は今日の周りにプレイしていたが、私は欠けていたもの行うための高度なフィルタを得ることができませんでした。この小さなif文で解決したので、最初は.findで悩んでいた理由がわかりました。 "fr"は通過した前の関数で選択された範囲ですが、選択した場所の範囲としてこれを割り当てるのが賢明かどうかはわかりませんでしたが、どうやってそれを渡すのかちょっと混乱します関数からサブ関数に戻り、別の関数に戻りますが、このメソッドは機能しているようです。コメントした人にもう一度感謝します！

Private Function searchCells(ifc) 
Dim ss As Integer 
Dim fc As Range 
Dim ssMax As Integer 
Dim ssMin As Integer 
Dim cell As Range 
Dim fr As Range 

ss = lstboxChannelList.List(ifc, 1) 
ssMax = ss + lstboxChannelList.List(ifc, 2) 
ssMin = ss - lstboxChannelList.List(ifc, 2) 


Set fr = Selection 
For Each cell In fr 

    If cell.Value < ssMax And cell.Value > ssMin Then 
     cell.Select 
     'More code to come here 
     'MsgBox ("found one!") 

    End If 

Next cell 

End Function