[[20180302171700]]　『別ブックのセル色をカウント』（なつめ）　ページの最後に飛ぶ

『別ブックのセル色をカウント』（なつめ）

こんばんは。教えて下さい。

エクセルにユーザーフォームを作成し、セルを黄色に塗りつぶす処理を行うボタンを置いています。
このボタンは、別のブックで使用します。この処理に追加で、A列で黄色く塗りつぶされてるセルをカウントしたいです。カウントの結果はB2に載せたいです。これはどのブックでも同じです。どのように書き換えたら良いでしょうか。教えて下さい。

Private Sub CommandButton1_Click()

  Dim r As Range

  For Each r In Selection.Rows
    Range(Cells(r.Row, 1), Cells(r.Row, 76)).Interior.ColorIndex = 6
  Next r
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

「Range(Cells(r.Row, 1), Cells(r.Row, 76)).Interior.ColorIndex = 6」の前後に「If」「Then」と付けるだけに思いますよ？
（???） 2018/03/02(金) 17:28

コメント返信：

[ 一覧(最新更新順) ]

[[20180302171700]] 『別ブックのセル色をカウント』（なつめ） ページの最後に飛ぶ

[[20180302171700]]　『別ブックのセル色をカウント』（なつめ）　ページの最後に飛ぶ