[[20101112205927]]　『VBAでオートフィルター後のセル選択』（まる）　ページの最後に飛ぶ

『VBAでオートフィルター後のセル選択』（まる）

 オートフィルターでリストＵＰした後、項目の一つ下のセルを 
 選択するにはどうしたらよいですか？
　OFFSETを使用すると見えていないセルを選択してしまいます。

 例えば、下記のようにセルに入力
    A   　　　　B　　　   C
 1 購入名　　　購入月　　個数
 2 ﾘﾝｺﾞ         9       100
 3 ﾊﾟｲﾅｯﾌﾟﾙ　　10       100
 4 ｵﾚﾝｼﾞ        9        50
 5 ﾚﾓﾝ         10        20

 購入月でフィルターをかけて、10月に購入したものだけを表示し、
 ｾﾙA1をまずActiveにしておいて、その後、A3を選択したいのですが
 OFFSET(1,0).SELECTするとA2をSELECTしてしまいます。
 入力内容がころころ変わるのでA3を直接選択出来ないので、
 良い方法が無いでしょうか？

 ご教授願います。

 こんにちは。

 可視セルのAreasを調べては、如何でしょうか？

 With ActiveSheet
     If .AutoFilterMode = False Then Exit Sub
     With .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
         If .Areas(1).Rows.Count > 1 Then
             .Areas(1).Range("A2").Select
         Else
             .Areas(2).Range("A1").Select
         End If
     End With
 End With

 (OtenkiAme)

 OtenkiAmeさん

 有難う御座います。
 できました。

 贅沢言いますが、今後の勉強の為に・・・。
 もう少し簡単なのはないですか？
 1行ほどで、命令できる物はないでしょうか？
 "キーボードの↓を押す" 等、簡単にできますか？

 (まる)

 おじゃまします

 > 購入月でフィルターをかけて､10月に購入したものだけを表示し､
 > セルA1をまずActiveにしておいて､その後､A3を選択したいのですが

 'B列にフィルタをかけて、「10月に購入したものだけを表示し」ている状態で、

    Dim c As Range
    Set c = Range("A2", Cells(Rows.Count, 1).End(xlUp))
    c.SpecialCells(xlVisible).Item(1).Select

 としてはどうでしょう？

     (kanabun)

 kanabunさん
 来るのが遅くなってすみません。

 できました。
 有難う御座います。

 OtenkiAmeさん、kanabunさん
 今まで使った事の無いのが出てきたので
 今から勉強します。
 有難う御座いました。

 (まる)

コメント返信：

[ 一覧(最新更新順) ]

[[20101112205927]] 『VBAでオートフィルター後のセル選択』（まる） ページの最後に飛ぶ

[[20101112205927]]　『VBAでオートフィルター後のセル選択』（まる）　ページの最後に飛ぶ