オートフィルターのトップテンの[表示]をVBAで設定するには?

Question 76.2   Previous Next
オートフィルターがあるデータで、
VBAを使ってフィルタのトップテンを選び、
表示 (上位・下位、何位、項目・パーセント)を選択出来る方法を教えて下さい。

いくらトライしても思うように行きません、お願いします。
Answer   Copyright (C) 2005.10.26 永井善王
質問文がよく理解できませんが、こういうことですか。
Sub test()
    フィールド = 1                              'A列の場合
    抽出条件 = "10"                             '10位までの場合
    操作 = xlTop10Items                         '上位の場合(下位ならxlBottom10Items)
    Range("A1").Select
    Selection.AutoFilter Field:=フィールド, Criteria1:=抽出条件, Operator:=操作
End Sub
ありがとうございました
有難うございました、これで結構です。
下記の定義づけを先にしなければならないと言うことが、わからなかったのです。 VBAをはじめたばかりで本を読み始めています。申し訳ありません、これから少しづつ勉強していきます。
    抽出条件 = "10"
    操作 = xlTop10Items

 

Excel VBA Macro