[[20200511180124]]　『文字と色のセルをカウントする関数・マクロ』（アーモンド）　ページの最後に飛ぶ

『文字と色のセルをカウントする関数・マクロ』（アーモンド）

　　 A B C
1行　90 88　87　　　　←データ
2行　90 88　87
3行　90 88　87

　　　
　　　 90　　88　　87　
黄色　2個　 1個 0個　　←結果

緑色 1個 1個 1個

赤色 0個 1個 2個

データのセルに色をつけてそれぞれ数字(90,88,87)の個数を出したいのですがうまく結果ができません。よろしくお願いします。

例：A-1行に黄色、A-2行に緑色、A-3行に黄色
　　B-1行に黄色、B-2行に赤色、B-3行に緑色

    C-1行に赤色、C-2行に赤色、B-3行に緑色

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

 １．後記マクロを標準モジュールに貼り付ける
 ２．A6セル以下のセルに色を付ける
 ３. 5行目に数値を入れる
 ４．B6セルに下式を入れて、右へ、下へコピー
 　　=SUMPRODUCT((COLORCELLS($A$1:$C$3)=COLORCELLS($A6))*($A$1:$C$3=B$5))

 <結果図>
  行  _____A_____  _B_  _C_  _D_
   1      90       88   87     
   2      90       88   87     
   3      90       88   87     
   4                            
   5  色を付ける   90   88   87
   6  黄            2    1    0
   7  緑            1    1    1
   8  赤            0    1    2

  Function COLORCELLS(Scope As Range)
      Dim r
      Dim RW As Long, CL As Long

      Application.Volatile

     ReDim r(1 To Scope.Rows.Count, 1 To Scope.Columns.Count)

      For RW = 1 To UBound(r)
         For CL = 1 To UBound(r, 2)
          r(RW, CL) = Scope(RW, CL).Interior.Color 
         Next CL
      Next RW

     COLORCELLS = r
  End Function

（半平太） 2020/05/11(月) 20:13

出来ました。有難うございました。
（アーモンド） 2020/05/12(火) 00:28

コメント返信：

[ 一覧(最新更新順) ]

[[20200511180124]] 『文字と色のセルをカウントする関数・マクロ』（アーモンド） ページの最後に飛ぶ

[[20200511180124]]　『文字と色のセルをカウントする関数・マクロ』（アーモンド）　ページの最後に飛ぶ