EXCEL VBA オートフィルタでデータの抽出・条件・設定方法　（AutoFilter）

EXCEL VBA オートフィルタでデータの抽出・条件・設定方法　（AutoFilter）

オートフィルタ―の条件を選択　「指定した文字列を抽出」（AutoFilter）

Sub AutoFilter01()

    Range("A1").AutoFilter field:=4, Criteria1:="男"  'A列からの4列目（性別）の”男”を抽出
    
    MsgBox "男のみ抽出"
    
    Range("A1").AutoFilter  'オートフィルタ―解除
    

End Sub

オートフィルタ―の条件を選択　[以上・以下・未満・超える]　（AutoFilter）

Sub AutoFilter02()

    Range("A1").AutoFilter field:=6, Criteria1:=">=70" 'A列からの６列目（国語）の点数が70点以上を抽出

    MsgBox "国語が７０点以上"
    
    Range("A1").AutoFilter  'オートフィルタ―解除

End Sub

オートフィルタ―の条件を選択　[指定した範囲]　（AutoFilter）

Sub AutoFilter03()

    Range("A1").AutoFilter field:=7, Criteria1:="<=70", _
                Operator:=xlAnd, Criteria2:=">=40"
    'A列からの７列目（数学）の点数が40点以上～70点以下を抽出

    MsgBox "数学が４０点以上～７０点以下"
    
    Range("A1").AutoFilter  'オートフィルタ―解除


End Sub

オートフィルタ―の条件を選択　[指定した文字列の抽出]　（AutoFilter）

Sub AutoFilter04()

    Range("A1").AutoFilter field:=2, Criteria1:="*山*"
    'A列からの2列目（名前）に”山”の文字がある名前を抽出

    MsgBox "名前に’山’の文字がある方を抽出"
    
    Range("A1").AutoFilter  'オートフィルタ―解除


End Sub

オートフィルタ―の条件を選択　[複数の条件で抽出]　（AutoFilter）

Sub AutoFilter05()

    Range("A1").AutoFilter field:=6, Criteria1:=">=70"
    'A列からの6列目（国語）の点数が70点以上を抽出
    
    Range("A1").AutoFilter field:=7, Criteria1:=">=70"
    'A列からの7列目（数学）の点数が70点以上を抽出

    Range("A1").AutoFilter field:=8, Criteria1:=">=70"
    'A列からの8列目（英語）の点数が70点以上を抽出

    MsgBox "国語・数学・英語の点数が70点以上の方を抽出"
    
    Range("A1").AutoFilter  'オートフィルタ―解除

End Sub

オートフィルタ―の条件を選択　[上位・下位を抽出]　（AutoFilter）

Sub AutoFilter06()

    Range("A1").AutoFilter field:=6, Criteria1:=6, Operator:=xlTop10Items
    'A列からの6列目（国語）の点数の上位６名を抽出

    MsgBox "国語の点数の上位6名"
    
    Range("A1").AutoFilter  'オートフィルタ―解除

End Sub

オートフィルタ―の条件を選択　[抽出のデータをカウント]　（AutoFilter）

Sub AutoFilter07()

    Dim ALLMAN, MANCOUNT, WOMANCOUNT As Integer
    

        ALLMAN = Cells(Rows.Count, "A").End(xlUp).Row - 1  '全体のデータ数をカウント； A列の最終行 -1は、先頭行分を引く
        
        
        Range("A1").AutoFilter field:=4, Criteria1:="女" '性別の女性を抽出
        
        
        WOMANCOUNT = Range("A1", Cells(ALLMAN, 1)).SpecialCells(xlCellTypeVisible).Count '抽出された女性をカウントする。
    
        MANCOUNT = ALLMAN - WOMANCOUNT     '全体のデータ数から女性のカウント数を引いて、男性のカウント数を計算する。
        
    
    
            MsgBox "全体で" & ALLMAN & "人です。男性は、" & MANCOUNT & "人です。女性は、" & WOMANCOUNT & "人です。"
        
        Range("A1").AutoFilter  'オートフィルタ―解除


End Sub