Excel VBA 質問スレッド No.205 (未解決)

条件付き色付きセルのカウント方法について

投稿者 : ひな     投稿日時 : 2021/03/25(Thu) 13:31:11     OS : Windows 10     EXCEL : Excel 2016
指定した範囲の中で、条件付きで色がついたセルをカウントしたいです。
以下のコードを試したところ、色付きのセルはカウントしてくれましたが、条件付きで色がついたセルはカウントしてくれず、どのように直せば良いか分からず困っています。

VBAにお詳しい方、どなたか知恵をお貸しいただけると助かります( ω-、)
よろしくお願いいたします!

Function CountColorA(Rng As Range) As Long

 Dim myRng As Range
 Dim Col_cnt As Long

 Application.Volatile
 Col_cnt = 0

 For Each myRng In Rng
  If myRng.Interior.ColorIndex > 0 Then
   Col_cnt = Col_cnt + 1
  End If
 Next myRng
 CountColorA = Col_cnt
 
End Function

[返信 1] Re : 条件付き色付きセルのカウント方法について
投稿者 : EUNO     投稿日時 : 2021/03/25(Thu) 17:17:06
Excelのバージョンが2010以降なら、DisplayFormatプロパティが使えます。

Range("A1").DisplayFormat.interior.Color

みたいな感じで。

[返信 2] Re : 条件付き色付きセルのカウント方法について
投稿者 : たか     投稿日時 : 2021/03/26(Fri) 17:12:37
ユーザー定義関数でDisplayformatは使えません
と思ってたけど調べたらこんなのが出てきました
ttps://www.moug.net/faq/viewtopic.php?t=79943

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2021-04-21 07:50:47 )

Page
Top