Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2013)
空白行までオートフィルタ
投稿日時: 19/07/06 09:02:21
投稿者: moriQQ

いつもありがとうございます。
前に質問して回答をいただきました、その後の質問なのですが
下記のRange("$A$2:$BQ$1043")のところの1043の部分ですがシート内に数値を例えば
1050と入れたらそこまでフィルターをかけるみたいにしたいです。
AE3のセルに希望の行数の数値を入れたらそこまでオートフィルタをかけるように
したいのです。
よろしくお願いします。
 ActiveSheet.Range("$A$2:$BQ$1043").AutoFilter _
        Field:=59, Criteria1:=">=" & lowC1, _
        Operator:=xlAnd, Criteria2:="<=" & highC1
    ActiveSheet.Range("$A$2:$BQ$1043").AutoFilter Field:=3, Criteria1:=prefC1

回答
投稿日時: 19/07/06 09:34:19
投稿者: simple

例えば、こんな風にしてみてはどうでしょうか。

    Dim s As String
    s = Range("A1").Value
    
    ActiveSheet.Range("$A$2:$BQ$" & s).AutoFilter _
        Field:=59, Criteria1:=">=" & lowC1, _
        Operator:=xlAnd, Criteria2:="<=" & highC1
    ActiveSheet.Range("$A$2:$BQ$" & s).AutoFilter Field:=3, Criteria1:=prefC1

回答
投稿日時: 19/07/06 11:02:11
投稿者: simple

AE3のセルと具体的に指定があったのですね。A1をAE3と読み替えてください。
ところで、CurrentRegionなどを使って、自動的に最終行を判定することは
できないのですか?その方が間違いないし、手間いらずですが。

投稿日時: 19/07/06 19:02:21
投稿者: moriQQ

simple さんの引用:
AE3のセルと具体的に指定があったのですね。A1をAE3と読み替えてください。
ところで、CurrentRegionなどを使って、自動的に最終行を判定することは
できないのですか?その方が間違いないし、手間いらずですが。

 
 
ありがとうございます、初心者なものでVBAがよくわかっていないもので・・
ただその後の下の行の所へ計算を入れたりで使用するものですから、質問しました。
丁寧にありがとうございました。