エクセルの学校：全文検索：Hyper Estraier： kazu 条件付書式

Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)

kazu (7738), 条件付書式 (2649)

[[20070530152618]]: #score: 6689; @digest: f162ec038afa18aae5ad28e74badd00e; @id: 31112; @mdate: 2007-06-01T07:44:16Z; @size: 3568; @type: text/plain; #keywords: countcoloredcell (29523), gokei (18421), 色限 (13266), myclr (10781), 約語 (5831), ） by (5627), ufclrcntccx (5545), wkj (5476), 明上 (3484), mycolor (2309), 予約 (1882), 黄色 (1727), 限定 (1408), 数作 (1349), colorindex (1273), 判別 (1262), ドイ (1224), 上2 (1170), interior (1160), 速度 (1131), は予 (1125), た色 (973), 綺麗 (942), integer (864), seiya (863), 付書 (856), カウ (732), 塗り (706), 別し (673), ね(^ (604), の小 (593), 数え (587); 『色つきのセルの数を数えるには・・・』（おぐおぐ）
A B C D E F 1 80 92 75 82 100 2 88 85 90 84 93 というデータがあるとします。 A1、B2、C1、D1、E2のセルには黄色の塗りつぶしが設定されています。つまり、数字の小さいほうに塗りつぶしの条件書式が設定してあります。そこで、F列に塗りつぶされているセルの数（個数）を求めたいのです。過去の質問を検索してみたら「UFClrCntccx（A1:E1）」でできるようなことが出てたんですが、アドインの設定が必要なんですよね。できれば、アドインの設定なしで求めることはできるんでしょうか? 教えてください。よろしくお願いします。 Excel2003を使用しています。 ---- 条件付書式で付けた色は、関数では数えられないはずです作業列に、条件付書式と同じ定義の関数を入力して何か記号を表示させそれを数えてはダメですか? Color関数(関数、アドイン) http://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html (Ohagi) ---- F1 =Sumproduct(--(A1:E1<A2:E2)) F2 =Sumproduct(--(A1:E1>A2:E2)) (seiya) ---- こういった、セル、又はフォントの色を判別して計算したいという要望は結構そこらじゅうで目にしますが、はっきり言って、そういった色を判別しての計算はやめたほうがいいでしょう。提示の質問であれば、数値の小さいほうの個数を数えるようにすればいいことです。セル（又はフォント）の色を変更するには、何かしらの条件があるはずです。ですので、その条件を元にして計算するように数式を組み立てれば済む話です。提示のものは、 F1=SUM(($A$1:$E$1<$A$2:$E$2)*1) CTRL+SHIFT+ENTER で確定。これで3と出ます。（TORI) ---- 説明上2行にしましたが、実は50行くらいあるんです。それから、条件付書式は設定してありませんでした。ごめんなさい。（おぐおぐ） ---- もう一度、質問を整理した方が良いのでは? 規則性があるのだから関数で出来ると思うし、わざわざ色を付けなくても出来るでしょう。 (seiya) ---- マクロで良ければ、こんなんどうでしょう。黄色限定&範囲限定ですが(^^; Sub 黄色のセルをカウント() ' '黄色限定（ColorIndex=6）で、セルに黄色が塗りつぶされてるものをカウントする。 '検索範囲はA1:E50 検索結果をF列に記入する ' Dim i As Integer, j As Integer, gokei As Integer gokei = 0 For i = 1 To 50 gokei = 0 For j = 1 To 5 If Cells(i, j).Interior.ColorIndex = 6 Then gokei = gokei + 1 Next Cells(i, 6).Value = gokei Next End Sub （WindowsXP+EXCEL2003) by wkj ---- Function CountColoredCell(rng As Range, myColor As Range) As Long Dim r As Range, myClr As Integer Application.Volatile myClr = myColor.Interior.ColorIndex For Each r In rng If r.Interior.ColorIndex = myClr Then _ CountColoredCell = CountColoredCell + 1 Next End Function UDF 1) Alt + F11 2) [挿入] - [標準モジュール] 上記コード貼り付け 3) Alt + q =CountColoredCell(A1:E1000,A1) A1: カウントする色がついたセル (seiya) ---- >seiyaさんいつもながら綺麗なコードですね(^^) 勉強になります。（そうか、関数作って引数でコントロールすれば良かったんですね） by wkj ---- wkjさん、Sumは予約語なので、使用を控えた方が良さそうです。 (ROUGE) ---- >ROUGEさんご指摘ありがとうございました。 >Sumは予約語おっしゃる通りですね(^^;; マクロを修正しました。sum->gokei by wkj ---- wkjさん、 For Next Loop より For Each Loop の方が速度が幾分速いので極力For Each Loop の方を使用するように心がけています。 (seiya) ---- >seiyaさんわざわざ解説頂き、ありがとうございます。 >For Next Loop より For Each Loop の方が速度が速いぐはっ、そんな違いがあったとは・・・・・・orz 勉強になります。（奥が深いですね） by wkj ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070530152618.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ