Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44059 / 76732 ←次へ | 前へ→

【37696】Re:色付セルのみ集計
回答  Kein  - 06/5/15(月) 21:26 -

引用なし
パスワード
   Ecel4マクロ関数を使う方法もありますが、ロジックが簡単な普通のやり方で

Sub MySUM()
  Dim ER As Long, EC As Long, Ret As Long
  Dim i As Long, j As Long
 
  ER = Range("A65536").End(xlUp).Row
  EC = Range("IV1").End(xlToLeft).Column
  For i = 1 To EC
   For j = 1 To ER
     If Cells(j, i).Interior.ColorIndex <> xlColorIndexNone Then
      Ret = Ret + Cells(j, i).Value
     End If
   Next j
   Cells(ER + 1, i).Value = Ret: Ret = 0
  Next i
End Sub

0 hits

【37694】色付セルのみ集計 COG 06/5/15(月) 20:23 質問
【37696】Re:色付セルのみ集計 Kein 06/5/15(月) 21:26 回答
【37699】Re:色付セルのみ集計 mori 06/5/15(月) 22:12 発言
【37700】Re:色付セルのみ集計 Kein 06/5/15(月) 22:21 発言
【37717】Re:色付セルのみ集計 COG 06/5/16(火) 15:59 お礼
【37716】Re:色付セルのみ集計 COG 06/5/16(火) 15:54 お礼
【37718】Re:色付セルのみ集計 Kein 06/5/16(火) 17:05 回答

44059 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free