ここから本文です

色が塗られていたらCol_cnt を加算し、合計を求めたいと思っているのですが、下記...

sur********さん

2018/9/1410:06:12

色が塗られていたらCol_cnt を加算し、合計を求めたいと思っているのですが、下記のように書くと、Col_cnt が1になってしまいます。
どのように加算すればよいでしょうか?

1つ1つ変数を割り当てて、合計するしかないのでしょうか?

ご教示頂けたら幸いです。

If Cells(gyou, 11).Interior.ColorIndex > 0 Then
Col_cnt = Col_cnt + 1

ElseIf Cells(gyou, 20).Interior.ColorIndex > 0 Then
Col_cnt = Col_cnt + 1


ElseIf Cells(gyou, 22).Interior.ColorIndex > 0 Then
Col_cnt = Col_cnt + 1


ElseIf Cells(gyou, 24).Interior.ColorIndex > 0 Then
Col_cnt = Col_cnt + 1

閲覧数:
16
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

ina********さん

2018/9/1410:29:23

>こんな感じとかでしょうか。


Dim N As Variant
For Each N In Array(11, 20, 22, 24)
    If Cells(gyou, N).Interior.ColorIndex > 0 Then
        Col_cnt = Col_cnt + 1
    End If
Next

質問した人からのコメント

2018/9/14 11:34:50

早急にご回答頂いてありがとうございました。

大変助かりました。

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる