[[20120401162656]]　『色の付いた行を除いて合計をだしたいのですが』（素人）　ページの最後に飛ぶ

『色の付いた行を除いて合計をだしたいのですが』（素人）
エクセル２０１０ですが

Ｈ４からＨ１００００とか　最後の行までの　色が付いてない行だけの合計を

 Ｈ３に出したいのですが　色の付いた行だけは計算させずに…という事は可能でしょうか？
 Ｈ３～Ｎ３　と　Ｑ３～Ｔ３　に　それぞれＨ列からＮ列　Ｑ列からＴ列も同じように
 色が付いてない行だけを合計して出したいのですが
 どうやったら出来ますでしょうか？　すみません　教えて頂けないでしょうか？
 宜しくお願い致しますｍ(__)ｍ

マクロでの方法になりますが
色付きセルのみを合計する［SumColor]
http://takashixxx.blog88.fc2.com/blog-entry-41.html

を参考にしてみてください。

(se_9)

 衝突。こんな参考ページもあったので。

 関数でやるなら作業列を作って、ちょっと特殊な式で、そこに色インデックスをセット。
 その上でSUMIF なんかで。本当に10000行もあるならちょっと非現実的だけど。
http://miyahorinn.fc2web.com/faq/faq030.html

 (ぶらっと)

se_9さん　ぶらっとさん　ありがとうございます(^_^)

 すみません私　本当に知識がなくよくわからないのですが　この下のものを　マクロのコードという場所に貼り付ければいいんですよね　でも　これは色がついているものを計算する…というふうに書いてあるのですが
 色が付いてない行のみを計算する…というのだと　どこをどう変えればいいのか教えてもらえませんでしょうかm(__)m

 大変にすみませんm(__)m　宜しくお願い致しますm(__)m

Function SumColor(計算範囲, 条件色セル) SumColor = 0 For x = 1 To 計算範囲.Rows.Count If 計算範囲.Rows(x).Interior.ColorIndex = 条件色セル.Interior.ColorIndex Then SumColor = SumColor + 計算範囲.Rows(x) End If NextEnd Function

 そのマクロの使い方は確認しましたか？
 赤い色がついたセルの合計は出せましたか？

 でしたら、条件色セルで指定したセルに赤い色がついていますよね？
 そのセルの色を「合計したいセル」の色と合わせて下さい。
 　書式をコピーして貼り付けて貰うと確実だと思います。

 (HANA)

HANAさん　ありがとうございますm(__)m

 私のは赤じゃなくて　色がついてない行を計算　なので　これでやってみてないのですが

 すみませんm(__)m
 意味が判らなくて、申し訳ないですm(__)m
 H3　I3　J3　K3　L3　M3　N3　　　Q3 　R3 　S3 　T3
 に　
 H5  I5  J5  K5  L5  M5  N5      Q5   R5   S5   T5
 ↓　　↓　　↓　　↓　　↓　　　↓　　　↓　　↓
 下は10000　とかまで　いきたいのですが
それぞれの列の　色のないセルだけを足し算したものを
 H3　I3　J3　K3　L3　M3　N3　　　Q3 　R3 　S3 　T3
 のセルに　それぞれの列の合計を出したいのですが
 　
 何というマクロを入れたらいいでしょうかm(__)m　すみませんm(__)m本当に知識がなくわかりませんm(__)m
教えてくださいm(__)m　宜しくお願い致しますm(__)m

 参照先のコードは、指定の色のセルを。これを色がついていないものを　にかえればいいんだけど
それとは別に、参照先のコードは、かならずしも「模範的なコード」じゃないねぇ。
とりあえず、標準モジュールというところに

 Function SumBlank(計算範囲 As Excel.Range) As Double
    Dim x As Long
    SumBlank = 0
    For x = 1 To 計算範囲.Rows.Count
        If 計算範囲.Rows(x).Interior.ColorIndex = xlNone Then
            SumBlank = SumBlank + 計算範囲.Rows(x)
        End If
    Next
 End Function

 で、セルには、たとえば =sumBlank(N4:N10000) とか。

 (ぶらっと)

 追伸

 アップしたコードは参照先のコードの形で、模範的じゃないところだけをかえてある。
　（もちろん、色つき計算を色無し計算にしているけど）

 で、参照先でも記載があったけど、これは１列のみ対応。
 これを、 =sunBlank(A1:B5") といった形でもサポートするようにかえたのが↓
 ついでに、セルに数値以外があってもエラーにせず、そこを0として足し込むようにしてある。

 Function SumBlank(計算範囲 As Excel.Range) As Double
    Dim c As Range
    For Each c In 計算範囲
        If c.Interior.ColorIndex = xlNone Then
            SumBlank = SumBlank + Val(c.Value)
        End If
    Next
 End Function

 追記）参照先にも記載があったけど、計算後、セルの色を変えても、自動的に再計算されないのでご注意を。

 (ぶらっと)

 ＞これでやってみてないのですが
 まずはやってみるべきでしょう。

 コード（関数）の説明は
 ＞色付きセルのみを合計する　［SumColor]
 に成っていますが、厳密には違います。

 正確には「条件色セルで指定したセルと同じセル色のセルのみを合計する」です。
 ですから、条件色セルに赤い色が設定して有れば　赤い色のセルを合計しますし
 色を設定していなければ、色の無いセルが合計されます。

 数式は
 =SumColor(計算範囲, 条件色セル)
 の様にしてして使いますので
 たとえば、H3セルに
 =SumColor(H5:H10000,H3)
 の式を入れます。

 H3セルには色をつけないで下さい。
 もしもH3セルに色をつける必要が有る場合は
 今は、条件色セルに「H3」を設定していますが
 他の色が付いていないセルを設定して下さい。

 (HANA)

ぶらっとさんのマクロを入れたら　できました(^_^)　どうもありがとうございました(^_^)

 ＨＡＮＡさんにも教えて頂き　どうも　ありがとうございました(^_^)

コメント返信：

[ 一覧(最新更新順) ]

[[20120401162656]] 『色の付いた行を除いて合計をだしたいのですが』（素人） ページの最後に飛ぶ

[[20120401162656]]　『色の付いた行を除いて合計をだしたいのですが』（素人）　ページの最後に飛ぶ