色のついた列のある項目の合計が知りたいです

例えば、表の範囲がA1：D10とした時にA1、A3、A4のセルに色がついていて、C1、C3、C4の数字の合計をしりたいんですが、どうしたらいいでしょうか？よろしくお願いします

No.4 ベストアンサー 回答者： misatoanna 回答日時： 2002/11/25 23:01

だいじょうぶ。

一列だけ使わせていただきますが、計算できますよ。

例に上げられた A1：D10 を仮定して、セル E1 を選択し次の操作をします。
１．[挿入]-[名前]-[定義] で、適当な名前を入力してください。
　　ここでは、REI とします。
２．参照範囲の欄に =GET.CELL(38,!A1)&T(NOW()) と入力し、[追加] ボタンをクリック
　　します。
３．再び E1 に =VALUE(REI) と入力し、E2:E10 にコピーします。
　　これで、Ａ列で色のついたセルと同じ行のＥ列セルに 0 ではない数字、その他には
　　0 が表示されましたね。
３．で、集計するセルに =SUMIF(E1:E10,"<>0",C1:C10) と入力します。

マクロを使わなくとも、この程度ならできるんですね。

この回答へのお礼

遅くなりましたが、ありがとうございます。教えていただいた方法でしたら、出来たのですが、会社での表でしてみたら出来ないので、原因が良く分かりません。しばらく頑張ってやってみたいと思います。ありがとうございました。

お礼日時：2002/11/28 20:20

No.6 回答者： vbafriend 回答日時： 2002/12/01 22:47

こんばんは。

どうも難しく考えすぎていたみたいです。合計を出すのに色が関係あるのかと思ったのですが、どうも色は関係ないようですね。次のように操作すれば簡単にマクロを使わずに合計を出すことが出来ると思います。

・Ｂ１セルを選択(アクティブの状態)して=C3+C5+C7+C9+C11+C13+C15と手入力し、エンターキーで確定する。

これで、Ｃ３・Ｃ５・Ｃ７・Ｃ９・Ｃ１１・Ｃ１３・Ｃ１５の合計値がＢ１に表示されます。
もしＣ４・Ｃ６・Ｃ８・Ｃ１０・Ｃ１２・Ｃ１４に入力されているデータが文字列(数値以外のデータ)だとしたら、

・Ｂ１セルを選択(アクティブの状態)して=Sum(C3:C15)と手入力し、エンターキーで確定する。
この書き方でもＢ１に同じ値が表示されます。

お試しになってみて下さい。

この回答へのお礼

　すごく遅くなりましたが、これなら出来ました。とても助かりました。
それから、何度も回答していただきどうもありがとうございました。

お礼日時：2002/12/08 22:05

No.5 回答者： imogasi 回答日時： 2002/11/28 21:57

VBAでの回答。

Sub test01()
Dim t, c, mc As Long 'ｔは合計、mcは１つ前の色付き色
t = 0
fst = "y"
For i = 3 To 16
c = Worksheets("sheet1").Cells(i, _ 1).Interior.ColorIndex
If c <> -4142 Then
If fst = "y" Then mc = c
fst = "n"
If c = mc Then
t = t + Cells(i, 3)
mc = c
Else
MsgBox i & "行では異なる色で塗られています"
End If
End If
Next i
Cells(1, 3) = t
End Sub
（テストデータ）A1:C１６に下記を入れる（C1以外）
黄色でテスト済み。G1-G7は書式－セル－セル結合
合計12（C列）
グループ（A列）計数（C列）
G1（A列）1（C列）以下同じ

G22

G33

G44

G55

G66

G77
A列は一色しか塗っていないと仮定しています。

この回答へのお礼

　早速、お返事ありがとうございます。
　お返事頂いたのですが、テストデータ―が私には理解できません。回答No6で頂いた方のを参考にしてみたいと思います。
　せっかく、ご検討していただいたのに申し訳ありませんでした。

お礼日時：2002/11/30 23:43

No.3 回答者： vbafriend 回答日時： 2002/11/25 22:58

はじめまして。

私でよろしければサンプルマクロを組んでみたいと思います。ご希望の節は、次のことを教えて下さい。

・合計したい数値に対応する色の名前
・合計値を出したいセル番地

お手数をおかけいたします。よろしくお願いいたします。

この回答への補足

　遅くなりましたが、メールありがとうございます。うまく説明できないので、具体的に書きたいと思います。A1に合計といれ（B1に答えを）表の範囲はA3：C16です。A3：A4が結合していて（その下も２セルづつ結合）A列には通し番号が1～7まであります。C3,C5…C13,C15に金額が入っています。そして、通し番号のA列の1、5、6に色がついていています。そして、それぞれの金額の合計をB1に出したいのです。
　ちなみに1、5、6についての色は表から読み取れない条件より色をつけています。
　うまく説明できたか、わかりませんが宜しくお願いします。

補足日時：2002/11/28 20:46

No.2 回答者： imogasi 回答日時： 2002/11/25 22:02

（１）色付きセルのカウントに関してが多いのですが、過去の質問にNO.409736,NO.346076、NO.301147など沢山ありますので見てください。

「エクセル　セル　色　カウント」で過去の質問を検索してください。
（２）関数では不可能と思います。配列数式でも不可？
（３）VBAでプログラムを組むことが必要と思います。
（４）セルに色々の色が付いている条件がわかれば、その　　条件内容でA列を聞く（判別する）ことによって、C列　　を合計すれば、済む話ではないでしょうか。

この回答へのお礼

遅くなりましたが、ありがとうございます。imogasiさんのアドバイスや皆さんのも参考ししながら、してみましたが思うようにできせん。しかし、しばらく頑張ってやってみたいと思います。ありがとうございました。また、質問するかもしれませんが、その時はよろしくお願いします。

お礼日時：2002/11/28 20:27

No.1 回答者： coco1 回答日時： 2002/11/25 21:57

こんばんは。

色が付いたセルですが、手動で色を付けているのでしょうか？　であれば、まず、普通の関数では不可能です。

しかし、Ａ列に「条件付き書式」を使って、例えば500以上ならば背景を赤にする、というような設定になっているのであれば可能です。

どちらでしょうか？

この回答へのお礼

遅くなりましたが、メールありがとうございます。
A列の色は手動でつけています。私が使いたい表からでは、表から分かる条件からの選択ではないので、条件付き書式は使えないのです。
うまく言えなくてすいません
　

お礼日時：2002/11/28 20:34