Excel VBA質問箱 IV

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

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


2270 / 13645 ツリー ←次へ | 前へ→

【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 発言[未読]

【69041】列ごとに同じ処理
質問  T.F  - 11/5/11(水) 22:55 -

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

【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

【69049】Re:列ごとに同じ処理
発言  UO3  - 11/5/12(木) 15:13 -

引用なし
パスワード
   ▼T.F さん:

Sub 価値のない遊び()
  Dim i As Long
  
  With Worksheets("Sheet1")
  
    On Error Resume Next
    .Parent.Names("myColor").Delete
    On Error GoTo 0

    For i = 1 To 50
      .Parent.Names.Add Name:="myColor", RefersToR1C1:= _
              "=GET.CELL(63,!RC" & i & ")+NOW( )*0"
      .Range("AY1:AY10").Formula = "=myColor"
      .Cells(11, i).Value = WorksheetFunction.CountIf(.Range("AY1:AY10"), 3)
      .Columns("AY").ClearContents
      .Parent.Names("myColor").Delete
    Next
    
  End With
  
End Sub

【69050】Re:列ごとに同じ処理
発言  UO3  - 11/5/12(木) 15:16 -

引用なし
パスワード
   ↑ アップしたものを削除して再掲載した時にコメントを失念していました。

削除したレスにあったコメント。

「私が書くとしてもponponさんと同じコードになります。
 以下は実務では、絶対に書きません。遊びです。」

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