[[20180728103401]]　『作業の繰り返しと色付けセルのカウント』（F）　ページの最後に飛ぶ

『作業の繰り返しと色付けセルのカウント』（F）

列FT～ITに条件付き書式で上位１位に塗りつぶしをしているのですが、それが155行目まであるので一つ一つ作っていくとかなり時間がかかってしまうのでループ処理を行えないかと思っています。
１つはマクロを作ったのでこれをもとにできないでしょうか？
Sub Macro1()

 Range("FT3:IN3").Select
    Selection.FormatConditions.AddTop10
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .TopBottom = xlTop10Top
        .Rank = 1
        .Percent = False
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = True
End Sub
また、各列の色付けが行われているセルの数を各列の156行目に表示するようにしたいのですが、これは関数を使えばできるでしょうか。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

申し訳ございません。今回の質問はなかった事にしていただきます。また機会がありましたら、その時はお願いいたします。
（F） 2018/07/28(土) 11:20

コメント返信：

[ 一覧(最新更新順) ]

[[20180728103401]] 『作業の繰り返しと色付けセルのカウント』（F） ページの最後に飛ぶ

[[20180728103401]]　『作業の繰り返しと色付けセルのカウント』（F）　ページの最後に飛ぶ