ここから本文です

エクセルで赤文字のセル数をカウントしたいと思い、 マクロを使用するところまで...

saa********さん

2018/6/1615:20:27

エクセルで赤文字のセル数をカウントしたいと思い、
マクロを使用するところまでは分かったので


Function SpecialCell(targetRange As Range, _

intColor As Integer) As Integer
Dim myCell As Range

For Each myCel

l In targetRange
If myCell.Font.ColorIndex = intColor _
Or myCell.Interior.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
End If
Next
End Function


↑の関数を使用してみましたが、
「あ(赤)い(黒)う(黒)」というセル内の一文字だけ赤色の場合が
カウントされなくて困っています…。

セル内の一文字だけ赤色の場合のカウントはできるのでしょうか。
可能であれば教えていただきたいです。

どなたかご回答よろしくお願いいたしますm(._.)m

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

違反報告

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

msk********さん

2018/6/1615:35:41

一例です。

Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
Dim myCell As Range, i As Long
For Each myCell In targetRange
If myCell.Interior.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
Else
For i = 1 To Len(myCell)
If myCell.Characters(i, 1).Font.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
Exit For
End If
Next
End If
Next
End Function

  • 質問者

    saa********さん

    2018/6/2311:01:55

    ご回答ありがとうございます!
    おかげさまで赤文字のセルを
    カウントすることができました(^^)!

    よろしければもう一つ教えていただきたいのですが、
    関係のないセルに文字を入力するたびに
    再計算されるようになってしまいました(>_<)
    この再計算をなくすことはできますか…?

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

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

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

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

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

閉じる

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

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

閉じる