[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『こちらで公開されているcolor関数をもっと便利に使わせて頂きたい。』（カレンダー）
いつもこちらのウェブサイトを参考にさせて頂き、業務にてユーザー定義関数を使用しております。
さて、こちらのサイトにて公開されおります下記のユーザー定義関数１を使用したところ、
空白、なおかつ、文字の色の設定が任意の色になっているセルがカウントされてしまい、ちょっと困っております。
具体的には、セルA１にリンゴと入力をする。文字の色を赤に染める。セルZ１に=UFClrCntfc(A1:D1,3)と入力。計算結果、１。セルA１をディリートで消す。そこで再計算させると、計算結果、１。といった具合です。空白になったセルA１の文字の色を黒にもどしてあげると、0を返します。
ちなみに、こちらで公開されております下記のユーザー定義関数２に関しましては、数字を入力し、任意の色に染めた場合には期待通りの動作をしてくれるのですが、文字列（りんご、apple等）を入力し、任意の色で染めるとエラー（＃VALUE!）が返ってきてしまいます。ただし、こちらの関数は、ディリートで消すと、文字色の設定を変えずとも0を返してくれます。
コピペをさせて頂いて使用するくらいの能力しか私にはなく、
関数１を使用した際に、関数２の様に、ディリートで消すだけでカウントしなくなる、
もしくは、関数２を使用した際に、数字以外も扱えるようになる、
これらのどちらかをご教示頂ければと思います。
大変お手数ですが、よろしくお願い致します。
ユーザー定義関数１
Public Function UFClrCntfc(adrs, clr)
' 特定色の文字色の数
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Font.ColorIndex
If fci = clr Then
sm = sm + 1
End If
Next
UFClrCntfc = sm
End Function
ユーザー定義関数２
Function FCS(adrs, clr)
sm = 0
For Each ad In adrs
fci = ad.Font.ColorIndex
cv = ad.Value
If fci = clr Then
sm = sm + cv
End If
Next
FCS = sm
End Function
＜ 使用 Excel：Excel2010、使用 OS：Windows7 ＞
こういうことかしら?
Public Function UFClrCntfc(adrs, clr)
Dim sm As Variant, cv As Variant, fci As Integer, ad As Range
sm = 0
For Each ad In adrs
fci = ad.Font.ColorIndex
If fci = clr Then
cv = ad.Value '処理を追加
If Not IsEmpty(cv) Then sm = sm + 1 '判定を追加
End If
Next
UFClrCntfc = sm
End Function
（白茶） 2017/10/27(金) 19:42
早速の返信をありがとうございます。
自宅のエクセル2013でテストしたところ、
セルを空白にすると、0を返すようになりました。
月曜日に職場のエクセル２０１０でも試してみたいと思います。
ありがとうございました！
（カレンダー） 2017/10/27(金) 20:10
Color関数を作った [kazu] です：
言われてみると、確かにデータなしでセルの数を数えるのは変ですね。
[白茶] さんの IsEmpty 判定を組み込みたいと思いますが、
他の回答者の方の意見はどうでしょうか？
（kazu3） 2017/10/29(日) 22:08
自作関数だから自分がしたいように作ればいいだけでは？
'****<ユーザー定義関数 FCR2（サンプル）>*****************************************
'*【目的・仕様】：指定したセル範囲内の指定した文字の色と同じ色のデータ数を数える
' （見えない文字は数えないが、フォントを白で隠している場合は、指定を白で数える）
'*【第一引数】rngTarget:数えるセル範囲
'*【第二引数】ixCollar:数える文字の色の番号
'*【第三引数】blnStr:文字データも数えるかのフラグ。省略可（デフォルトFalse)。
' Tureで文字データも数える
'*【注意事項】：サンプルの為デバッグ等は一切行っていないので、
' 使用の際は使用する人の責任で使用すること
'********************************************************************************
Function FCS2(ByRef rngTarget As Range, _
ByRef ixCollar As Long, _
Optional ByRef blnStr As Boolean = False)
Dim c As Range
Dim n As Long
For Each c In rngTarget
If Len(c.Text) > 0 Then
If c.Font.ColorIndex = ixCollar Then
If blnStr = True Then
n = n + 1
Else
If IsNumeric(c.Value) = turu Then
n = n + 1
End If
End If
End If
End If
Next
FCS2 = n
End Function
'*************************************************************************************
（まっつわん） 2017/10/30(月) 10:00
ちょっぴり脱線した意見とは思いますが、
定数文字列を入力しているセルを引数に指定する場合、 一部分の文字だけフォント色を変えているセルが含まれていると 「#VALUE!」が返る訳ですが、
恐らくユーザーの立場からすれば、 エラー値が返るのではなく、 そのセルを除いた計算結果は返ってきて欲しい のではないかと思います。
（白茶） 2017/10/30(月) 10:32
＞セルA１をディリートで消す。そこで再計算させる
再計算も再計算って手動でやらなくていいようになるといいですね＾＾
勉強してみてください＾＾
（まっつわん） 2017/10/30(月) 11:51
短いですが、ご報告とお礼までに。
ありがとうございました。
（カレンダー） 2017/10/30(月) 19:44
kazuです：
長いこと返信せず、放置して、申し訳ないです、
データが入力されているものを計数するようにColor関数を改訂しました。 2017/11/08(水) UFClr20171107をダウンロードコーナーにアップロード、公開、 Color関数のページも手直ししました。
みなさん、チャンスがあったら使ってみて下さい。
[カレンダー]さん、提案ありがとうございます、おかげで、数年間放置していたColor関数が改訂できました。
[白茶]さん、関数の提案ありがとうございます、私が気づくのが遅れたので、助かりました。 > そのセルを除いた計算結果は返ってきて欲しい この問題も何とかしたいと思っています。
[まっつわん]さん、関数の提案ありがとうございます。 > 自作関数だから自分がしたいように作ればいいだけでは？ 確かにそうなのですが、みんながどう考えるか知りたかったのです、すみません。 > 再計算も再計算って手動でやらなくていいように そうなのです、これが泣き所なのです、私も何とかしたいと思っています。
みなさん、これからも [エクセルの学校] をよろしくおねがいします。
（kazu3） 2017/11/08(水) 16:37
まただいぶ日が経ってしまいましたが、
> 再計算も再計算って手動でやらなくていいように
再計算について、改めて研究してみましたが、根本的には何とかできませんでした。
そのことをまとめました↓。
Excel Color関数 再計算について
http://naka1948.wordpress.com/2017/11/20/color/
（kazu3） 2017/11/20(月) 21:18
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.