Excel VBA質問箱 IV

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

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


13197 / 76734 ←次へ | 前へ→

【69043】Re:列ごとに同じ処理
発言  ponpon  - 11/5/11(水) 23:40 -

引用なし
パスワード
   ▼T.F さん:
>こんばんは、教えてください。
>A1〜A10のセルのうち、何箇所のセルの色が赤になっています。
>この縦一列にある赤いセルの合計をA11に求める、というやり方を
>AX列まで、つまり50列同じことをしたいのですが、方法が分かり
>ません。

久しぶりに作ってみました。
うまくいくかな?


Sub test()
  Dim c As Range
  Dim m As Long, i As Long

  With Sheets("Sheet1") '←実際のシートに
    For i = 1 To 50
      m = 0
      For Each c In .Range(.Cells(1, i), .Cells(10, i))
        If c.Interior.ColorIndex = 3 Then
        m = m + c.Value
        End If
      Next
      .Cells(11, i).Value = m
    Next
  End With
End Sub
0 hits

【69041】列ごとに同じ処理 T.F 11/5/11(水) 22:55 質問
【69043】Re:列ごとに同じ処理 ponpon 11/5/11(水) 23:40 発言
【69049】Re:列ごとに同じ処理 UO3 11/5/12(木) 15:13 発言
【69050】Re:列ごとに同じ処理 UO3 11/5/12(木) 15:16 発言

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