[[20150207160417]]　『色付きセルを数値化し、それを合計する方法につい』（ひろ）　ページの最後に飛ぶ

『色付きセルを数値化し、それを合計する方法について』（ひろ）

たとえば、赤色セルを1、青色セルを2、緑色セルを3とした場合、それを合計できるような関数の作成方法を教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 お望みの形とは違うと思うけど。また、どこかのセルの値がかわるまで、書式で色を変えただけでは反応しない。
 仮に色がついたセルがA列だとして。

 A1を選択して名前定義で、名前を CellColor、参照範囲を　=GET.CELL(63,!$A1)+NOW( )*0

 A1 : =IF(CellColor=5,2,IF(CellColor=3,1,IF(CellColor=4,3,0)))
 A1をコピーしてA2以下に数式指定ペースト。

 これで、 =SUM(A1:A●) とか。

（β） 2015/02/07(土) 19:06

 反応がありませんが、他の複数の掲示板にも質問されているようなので、そちらで解決なのかな？
 ほかの掲示板のなかには、私がアップした方式や、条件付き書式の応用版、ＵＤＦ　等々、多くのバリエーションの回答があるものの
 そこでも反応がないのが気になりますねぇ。

 その掲示板にあがった質問者さんの追加説明によれば、１行目から〇行目まで（月によりことなる）複数列に色付け有り
 各列の下のほうに、その列の色の値の合計をだしたいということらしい。

 こちらは、もう見ないかもしれませんけど、その条件で　ＵＤＦ版。

 セルに =SumColor() といれることにより、その列の、この行の前までの合計を表示。

 標準モジュールに

  Function SumColor() As Long
    Dim c As Range
    Dim n As Long
    Dim i As Long
    Dim j As Long

    With Application.Caller
        i = .Row - 1
        j = .Column
    End With

    For Each c In Cells(1, j).Resize(i)
        Select Case c.Interior.Color
            Case vbRed
                n = n + 1
            Case vbBlue
                n = n + 2
            Case vbGreen
                n = n + 3
        End Select
    Next

    SumColor = n

 End Function

（β） 2015/02/09(月) 00:19

コメント返信：

[ 一覧(最新更新順) ]

[[20150207160417]] 『色付きセルを数値化し、それを合計する方法につい』（ひろ） ページの最後に飛ぶ

[[20150207160417]]　『色付きセルを数値化し、それを合計する方法につい』（ひろ）　ページの最後に飛ぶ