elated https://blog.hatena.ne.jp/elated/ スナックエルベ https://elve.club/ Excel vba プログラム 会社から自分に送ったメールが届いてなくて顔面蒼白です・・・。やばい。クビになったら笑いましょう(；´Д｀) =cc(数えたい範囲,数えたい色のセル)で数える関数だよ。 ↓こんな感じで使えます Function cc(a As Range, b As Range) As Long Set b = b.Item(1) Dim sh As Worksheet: Set sh = a.Parent If Intersect(a, sh.UsedRange) Is Nothing Then cc = 0 Exit Function End If Dim countcolor As Long: count… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Felve.club%2Fentry%2Farchives%2F1253" title="指定範囲の指定色を数える関数 - スナックエルベ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/e/elve/20210727/20210727194148.png Hatena Blog https://hatena.blog 2021-07-27 20:30:03 rich https://elve.club/entry/archives/1253 1.0 100%