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

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

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

[[20050316093234]]: #score: 6689; @digest: 7f42e14ef4451c1cba30420311a8dc22; @id: 12762; @mdate: 2005-03-17T02:39:00Z; @size: 8752; @type: text/plain; #keywords: mytotal (88434), color6 (27066), 水[ (17501), 」if (16078), 火[ (15432), formatconditions (13687), 木[ (10953), mutsu (10653), 金[ (9597), 土[ (9147), formula1 (8606), 日木 (8095), 日火 (7938), 日水 (7687), cl (7094), 件= (6776), 日土 (5722), 日金 (5521), evaluate (5470), 月[ (5062), 日日 (3580), 日月 (3042), 平日 (2858), 着色 (2695), 件付 (2611), 付書 (2569), ピン (2502), 算出 (2426), 黄色 (2417), 日[ (2299), 条件 (2212), カウ (1953); 『条件付書式でカラー関数』（mutsu）
おはようございます。本日もよろしくお願いいたします。 [[20030522020924]]『色のついたセルの数え方』（ミヤ）から発展した、UFClr0322をDLしました。これは、条件付書式で着色した色には使えないのでしょうか?? 条件付書式で着色の部分のみ反応してくれませんでした。何か対応策はありますか? ---- 「条件付書式」の条件でカウントする仕様にするのがよいでしょう。 (INA) ---- INAさん、ありがとうございます。 >「条件付書式」の条件でカウントする仕様えっと・・・今回作成したいのは、色の着いたセルの値の合計です。実際の表は、条件付書式で「土曜日を青」「日曜日をピンク」「入力済セルを黄色」このように指定してあります。（既に3条件使用中。）青・ピンク・黄色それぞれの合計値を算出したいのです。土日は入力しても黄色にはならないようにしてあります。説明不足ですみませんでした。 INAさんの説明を私が理解できていないのかな? (mutsu) ---- わかりにくい置き方をしていますが、ダウンロードのページに[条件付書式対応版] Color6.xls があります。 http://www.excel.studio-kazu.jp/DL/DL01.html#color （kazu） ---- 「条件付き書式の色」は判定できないので、その「設定されている条件」をもとに該当するセルを判別して、処理する必要があります。 (INA) ---- [[20050222100822]]の、（SoulMan）さんの方法もすごく分かりやすです。お試し下さい。 (ひよっぴ) ---- あら、条件付き書式には反応しませんね。ごめんなさい。 (ひよっぴ) ---- ひよぴさん、反応しないですか? 色々やっていたのですが、全然解決できなかったので途方に暮れていました。というより、内容が私レベルではチンプンカンプンなので kazuさん・INAさんの方法をこれからじっくり考えます。＞＜ (mutsu) ---- たびたびすみません。自分のスキルに見合わない要望をしているようです。全くもって分かりません。道具はそろっているのに、使い方が分からないといった感じです。ご説明願えますでしょうか? (mutsu) ---- kazuさんが提供されているColor6.xlsは見てみましたか? (INA) ---- 当初INAさんのおっしゃるように、条件に合う数を算出した方法です。 [A] [B] [C] [D] [ 1] 3月1日火ああああ [ 2] 3月2日水 [ 3] 3月3日木 [ 4] 3月4日金 [ 5] 3月5日土休日出勤 [ 6] 3月6日日休み [ 7] 3月7日月 [ 8] 3月8日火 [ 9] 3月9日水 [10] 3月10日木 [11] 3月11日金 [12] 3月12日土 [13] 3月13日日 [14] 3月14日月 [15] 3月15日火 [16] 3月16日水 [17] 3月17日木 [18] 3月18日金 [19] 3月19日土 [20] 3月20日日 [21] 3月21日月 [22] 3月22日火 [23] 3月23日水 [24] 3月24日木 [25] 3月25日金 [26] 3月26日土 [27] 3月27日日 [28] 3月28日月 [29] 3月29日火 [30] 3月30日水 [31] 3月31日木 [32] [33] 青 4 ←=SUM(N(WEEKDAY(A1:A31,2)=6)) [34] ピンク 4 ←=SUM(N(WEEKDAY(A1:A31,2)=7)) [35] 黄色 1 ←=SUM(N((WEEKDAY(A1:A31,2)<6)*(C1:C31<>""))) [36] Shift+Ctrlキー押しながらEnterキーで確定させて配列数式に。（川野鮎太郎） ---- おはようございます。なんか・・・混乱してます。 INAさん、kazuさん Color6.xlsダウンロードしてみました。セルの値の合計算出は、どのようにすればいいのか分かりませんでした。 DLしたものをベースに、マクロを書き換え、表作成すればいいのですか? 川野鮎太郎さんこれも、Color6.xls同様、合計算出方法がわかりませんでした。セルの数の算出から、セルの値の合計の算出方法を考えましょう。という事ですよね? これだけヒントをいただいていながら、自分で考えることが出来ません。大変申し訳ありませんが、もう少しお付き合い願えませんでしょうか? ※土曜日はたまに平日扱いとなる事があります。 ---- Color6.xls では hcnt をセル数として、 hitProc = whcnt + 1 でカウントしているので、 myTotal = myTotal + cL.Value のような感じで、 cL.Valueをカウントすればよいです。 (INA) ---- さっそくのお返事ありがとうございます。カウントをしてから、セルの値の合計は出るのでしょうか? ここが昨日から悩んでいるところです。カウントをしても、セル内の値が均一ではないので合計が出せないのでは?と行き詰っていました。具体的に表を書き出してみます。 A B C D E F G H 1] 16(月) 17(火) 18(水) 19(木) 20(金) 21(土) 22(日)・・・・平日休日 2] 井上 200 300 100 200 500 100 3] 佐藤 100 200 10 200 200 4] 岡田 500 100 このような表です。土曜日は青・日曜日はピンク・平日は入力すると黄色く着色するように条件付書式 で設定してあります。平日の欄に黄色のセルの値の合計、休日の欄に青とピンクのセルの合計を算出させたいのです。お願いします。(mutsu) ---- cL.Value がセル値です。以下は、Kazuさんのコードをセル数からセル値のカウントにした場合の例です。条件ごとにカウントを分けるなら、その分だけ関数を作り分ける必要があります。そうなると条件が明確にならないと判断できないです。 Function UFColor(addr As Range) As Double Dim cL As Range Dim i As Long, myTotal As Double For Each cL In addr For i = 1 To cL.FormatConditions.Count '条件付き書式設定あり If cL.FormatConditions(i).Type = xlExpression Then '2 * 数式 * If cL.Formula = cL.FormatConditions(i).Formula1 Then myTotal = myTotal + cL.Value End If Else '* 値 * Select Case cL.FormatConditions(i).Operator Case xlBetween '1「次の値の間」 If cL.Value >= Evaluate(cL.FormatConditions(i).Formula1) And _ cL.Value <= Evaluate(cL.FormatConditions(i).Formula2) Then myTotal = myTotal + cL.Value End If Case xlNotBetween '2「の間以外」 If cL.Value < Evaluate(cL.FormatConditions(i).Formula1) Or _ cL.Value > Evaluate(cL.FormatConditions(i).Formula2) Then myTotal = myTotal + cL.Value End If Case xlEqual '3「次の値と等しい」 If cL.Value = Evaluate(cL.FormatConditions(i).Formula1) Then myTotal = myTotal + cL.Value End If Case xlNotEqual '4「次の値と等しくない」 If cL.Value <> Evaluate(cL.FormatConditions(i).Formula1) Then myTotal = myTotal + cL.Value End If Case xlGreater '5「より大きい」 If cL.Value > Evaluate(cL.FormatConditions(i).Formula1) Then myTotal = myTotal + cL.Value End If Case xlLess '6「より小さい」 If cL.Value < Evaluate(cL.FormatConditions(i).Formula1) Then myTotal = myTotal + cL.Value End If Case xlGreaterEqual '7「以上」 If cL.Value >= Evaluate(cL.FormatConditions(i).Formula1) Then myTotal = myTotal + cL.Value End If Case xlLessEqual '8「以下」 If cL.Value <= Evaluate(cL.FormatConditions(i).Formula1) Then myTotal = myTotal + cL.Value End If Case Else End Select End If Next i Next cL UFColor = myTotal End Function (INA) ---- 何度も申し訳ありません。ようやく理解して来ました。（多分・・・）今回の表の場合、条件付書式に第1条件=ISNUMBER(A○○)←セル黄色第2条件=TEXT(A$○○,"aaa")="土"←セル青第3条件=TEXT(A$○○,"aaa")="日"←セルピンクと指定してありますので、この条件をマクロに組み込めば良いという事でしょうか? (mutsu) ---- そうです。 Kazuさんのマクロは条件付き書式を判定していますが、具体的な条件があるなら条件付き書式は無視して、その各々の条件それ自体で判定する関数を作ればよいです。 (INA) ---- ほんっとにありがとうございました。一時は、分かったフリをしてCLOSEしてしまおうかと思いました^^; 貴重な時間を割いて対応してくださっているので、それに応えねば!としつこく書き込ませていただきました。 INAさん（皆さん）の「だ〜か〜ら〜!」と、PCの前で呆れている声が聞こえてきそうでした。これから、条件に合う関数作りに奮闘することになると思いますが、感謝の気持ちを・・・ありがとうございました♪&これからもよろしくお願いいたします。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200503/20050316093234.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ