セル条件に基づいてフィルタリングするシート、列、行を選択するマクロ

Question

Excelマクロでは、何かを自分の仕事のために使いこなそうとしています！どんな助けでもは非常にです！

私はシート、列、と行フィルタリング、すべてのセルの基準に基づいて選択されますマクロを作成しようとしています。

したがってSheet1では、セルA1にシート名 "Sheet6"、セルA2に列ヘッダー "col_B"、セルA3にフィルター基準 "banks"を入力すると、マクロは "Sheet6ヘッダー "col_B"を含む列を見つけ、テキスト "banks"を含むすべての行をフィルターに掛けます。これは可能ですか？

ありがとうございました！

Answer 1

あなたはこれを適合させることができる場合があります。

Sub FeedingTheVampire() 
    Dim sh As Worksheet, cHead As String, crit As String 
    Dim rcol As Range 

    With Sheets("Sheet1") 
     Set sh = Sheets(CStr(.Range("A1"))) 
     cHead = .Range("A2") 
     crit = .Range("A3") 
    End With 

    Set rcol = sh.Range("1:1").Find(What:=cHead, After:=sh.Range("A1")).EntireColumn 
    rcol.AutoFilter Field:=1, Criteria1:=crit 
End Sub 

Answer 2

私はちょうど別のブックからのコードを使用して非常に近くなりました。私は他のコードを完全に理解していません。私はGoogle検索からそのコードを取り除いています。このコードでは唯一のことは列を参照することです（R1変数は想定されていますが、どのように配置するかはわかりません）。それの多くはゲイリーの学生からのポストに似ています。そして、私は、この仕事をするための情報があると確信しています。だから、もう一度ゲイリーの生徒に感謝します！

サブFilter_Stuff（）

薄暗いR S1ワークシートで範囲文字列として 薄暗いSTRNAME、 暗いR1として文字列、ワークシートとして 薄暗いS2、SAとしてワーク

として

Set s1 = Sheets("Sheet1") 
Set s2 = Sheets("Sheet2") 


strName = Range("C5") 
Set sA = Sheets(strName) 

R1 = s2.Range("C6") 

Set r = sA.Range("1:1").Find(What:=s2.Range("C6").Value, After:=sA.Range("A1")) 

r.AutoFilter Field:=1, Criteria1:=s2.Range("C7").Value 

エンドサブ