Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24537 / 76738

←次へ　｜　前へ→


	【57549】Re:セルの色を数値として計算することは可能でしょうか？

ichinose - 08/9/2(火) 8:21 -


	引用なし

	パスワード

▼りったさん：
おはようございます。

フィードバックした記述をします。

新規ブックの標準モジュールに

>Function countColor(ByRef r As Range, ByVal clrIdx As Integer) As Integer
>　Dim i As Integer
>　Dim rTmp As Range
>　
>　i = 0
>　For Each rTmp In r
>　　If rTmp.Interior.ColorIndex = clrIdx Then
>　　　i = i + 1
>　　End If
>　Next
>　countColor = i
>End Function

上記コードがあったとして、

Sheet1のセルB1に以下の数式を入力します。

=countColor(A1:A10,3)

セルＢ１には、0　と表示されます。

次に対象セル内のセルA1からA3を選択し、
コマンドバー「書式設定」の塗りつぶしの色を使って　
A1からA3を赤に塗りつぶします。

セルB1は、0のまま変化はありません。
（Excel2002　SP3　で確認）

Excel2003では、上記の操作で　セルB1が3に変化するということですか？

0 hits

▼

【57505】セルの色を数値として計算することは可能でしょうか？ MOM 08/8/28(木) 13:08