オートフィルタ(アイコンで抽出する)AutoFilter メソッド
オートフィルタ(アイコンで抽出する)
Excel 2007 から、条件付き書式で「アイコンセット」が加わりました。AutoFilter メソッド では、引数 Operator に、xlFilterIcon を指定することで、そのアイコンの種類によってレコードを抽出することができます。
object.AutoFilter ( [ field, criteria1, operator ] )
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- field ・・・ フィルターの対象となるフィールド番号を整数で指定します。対象となる範囲の最も左側の列(フィールド)が、フィールド番号 1 になります。( ※ アイコンでの抽出の場合、フィールド番号の配列を指定しても最初の番号だけしか適用されないようです。)
- criteria1 ・・・ 抽出条件となるアイコンを指定します。
- operator ・・・ xlFilterIcon を指定します。
AutoFilter メソッド の引数の詳細については、オートフィルタ(AutoFilter メソッド) を参照してください。
アイコンで抽出 作成例 その1
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub Sample06_1_AutoFilter() Dim myIcon As IconSet Set myIcon = ActiveWorkbook.IconSets(xl5CRV) With Range("B3:J26") '「合計」列で、指定したアイコンでレコードを抽出 .AutoFilter Field:=8, _ criteria1:=myIcon(5), _ Operator:=xlFilterIcon End With End Sub |
実行結果
サンプルVBAソース 実行前
※ 条件付き書式 アイコンセットを設定しています
実行後
アイコンで抽出 作成例 その2
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
Sub Sample06_2_AutoFilter() Dim myIcon As IconSet Set myIcon = ActiveWorkbook.IconSets(xl3Arrows) With Range("B3:J26") '3番目から7番目のフィールドのアイコンが全て '「↑(緑)」であるレコードを抽出 '(注)「アイコンでの抽出」では、フィールド番号の配列は使えない ' => Field:=Array(3,4,5,6,7) としても、 ' 最初の 3 のフィールドだけしか適用されない) .AutoFilter Field:=3, _ criteria1:=myIcon(3), _ Operator:=xlFilterIcon .AutoFilter Field:=4, _ criteria1:=myIcon(3), _ Operator:=xlFilterIcon .AutoFilter Field:=5, _ criteria1:=myIcon(3), _ Operator:=xlFilterIcon .AutoFilter Field:=6, _ criteria1:=myIcon(3), _ Operator:=xlFilterIcon .AutoFilter Field:=7, _ criteria1:=myIcon(3), _ Operator:=xlFilterIcon End With End Sub |
実行結果
サンプルVBAソース 実行前
※ 条件付き書式 アイコンセットを設定しています
実行後
関連記事
-
テーマカラーで網かけ(パターン)の色の取得・設定(PatternThemeColor プロパティ・PatternTintAndShade プロパティ)
PatternThemeColor プロパティ・PatternTintAndSh …
-
セルの値を置換(Replace メソッド)
Replace メソッド 任意のセル範囲内から特定の値を一括して置換します。Fi …
-
オートフィルタ(矢印を非表示にする)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
セルをアクティブにする・セルを選択する(Activate, Select)
セルをアクティブにする・選択する 【書式:セルをアクティブにする】 object …
-
VBA で、ワークシート関数を使用(WorksheetFunction プロパティ)
VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …
-
オートフィルタ(抽出条件で使用できる演算子・記号)AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
文字列をセル幅で折り返す(WrapText プロパティ)
WrapText プロパティ WrapText プロパティは、セルに表示されてい …
-
セル内部を参照(Interior プロパティ)
Interior プロパティ Interior プロパティで、セルの内部を参照し …
-
セルに値を設定する・セルの値を参照する(Value2 プロパティ)
Value2 プロパティ Value プロパティとの違いは、Value2 プロパ …