VBA テーブル（ListObjects）指定値以上赤文字にする

テーブル（ListObjects）指定値以上赤文字にする

Sub test()
   ’　

    With Range("A1").ListObject
        .DataBodyRange.AutoFilter 3, ">=75"
        .ListColumns(3).DataBodyRange.Font.Color = vbRed
        .DataBodyRange.AutoFilter 3
    
    End With

End Sub

実行結果

参考記事

『VBA テーブル（ListObjects）の基本操作』

『VBA　テーブル（ListObjects）の設定・解除する』

『VBA　テーブル（ListObjects）行の削除』

『VBA　テーブル（ListObjects）のフィルター設定・解除』

『VBA　テーブル（ListObjects）指定値以上赤文字にする』

『VBA　テーブル（ListObjects）データを追加する』

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る