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

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

kazu (7747), 条件付書式 (2653)

[[20080805105301]]: #score: 6692; @digest: 68b9137133b23275849aee9f6f832943; @id: 39407; @mdate: 2024-07-15T09:50:46Z; @size: 4494; @type: text/plain; #keywords: ufclrcntcc (39263), ufclrcntccib (22494), 桜井 (20042), ク色 (18924), fci (10183), 欄以 (7014), 井） (5718), （桜 (4967), ル色 (4593), sm (3985), 数di (3415), ピン (3307), clr (3150), adrs (2517), 上側 (2453), 下側 (2309), 数+ (2282), ンロ (1623), function (1417), 囲, (1223), 色の (1184), 数= (1155), interior (1147), 手順 (1086), ad (1037), variant (985), ンク (980), 空欄 (958), colorindex (951), 行追 (905), 追記 (770), public (767); 『ピンク色で塗りつぶしてあり、かつ空欄以外のセルの数を数えたい』（桜井）
作成しているのは、任意でセルの色分けをした表です。「条件付書式」ではなくて、セルを選択し塗りつぶしています。ピンク色がついているセルは空欄と会社名が入っているものがあります。ピンク色で塗りつぶされていて、会社名も入っているセルの個数を数える方法をご教示いただきたくお願いします。ピンク色のセル色は、38ということは調べました。ピンク色のセルの数を出すところまでは、こちらで「UFClrCntcc」を使うということを調べてできました。 ---- 「UFClrCntcc」の関数のコードを載せてみられてはどうでしょう。おそらく、 For Each 何とか1 In 範囲何とか2 = 何とか1のセルの色 If 何とか2 = ピンク色 Then 数 = 数 + 1 End If Next の様に成っていると思いますので「数 = 数 + 1」の上にもう一つ If 何とか1.Value <> "" Then の様な条件を付ければ良い様に思います。 (HANA) ---- 「UFClrCntcc」は「エクセルの学校」のダウンロードページにある以下のものではないかと。 https://www.excel.studio-kazu.jp/DL/#q10 (独覚) ---- はい。私もそう思いますがどうやらダウンロードして開かないとコードが分からない様なので。。。載せていただければ、ダウンロード出来ない環境の方からのレスもつきやすいのではないかと思いました。 (HANA) ---- 早々のご返答ありがとうございます。大変失礼しました。当方は日常的にあまりエクセルを使わないため、コードの内容はほとんど理解することができません。該当すると思われるものを↓に貼り付けます。よろしくお願いします。 Public Function UFClrCntcc(adrs, clr) ' 特定のセル色の数 Dim sm As Variant, cv As Variant, fci As Integer, ad As Range sm = 0 For Each ad In adrs fci = ad.Interior.ColorIndex If fci = clr Then sm = sm + 1 End If Next UFClrCntcc = sm End Function （桜井） ---- ＞ sm = sm + 1 の上側に If ad.Value <> "" Then 下側に End If を入れて、やってみるのはどうでしょう。 (HANA) ---- HANAさまお答えありがとうございます。試してみたのですが、「EndSubが必要です。」というダイアログボックスが出てきます。また、上記を追記した後、どのような手順をふめばよいのか、具体的に教えていただけますと幸いです。ご面倒お掛けしてすみませんが、よろしくお願いします。（桜井） ---- ↓のコードに成りましたか? Public Function UFClrCntcc(adrs, clr) '特定のセル色の数 Dim sm As Variant, cv As Variant, fci As Integer, ad As Range sm = 0 For Each ad In adrs fci = ad.Interior.ColorIndex If fci = clr Then If ad.Value <> "" Then sm = sm + 1 End If End If Next UFClrCntcc = sm End Function このコードをコピーしてきた場所へ上書き貼り付けして下さい。何かメッセージがでる場合は再度そのメッセージを教えて下さい。＞上記を追記した後、どのような手順をふめばよいのか、具体的にと言う事ですが、コード内に該当二行を追加して頂ければ特に手順はないのですが・・・。寧ろ、どの様な手順で追加したのか教えて頂きたいです。現在貼り付けてもらったコードが、VBEに有りますよね。そのコードの「sm = sm + 1」の行の上側と、下側に一行ずつ追加してもらうだけなのですが・・・。どこか（End Function とか）消したりしてませんか? (HANA) ---- HANAさまありがとうございます。ご指示通りに上書きしました。先ほども何も削除せず、 2行追記しただけだったのですが、今回は何もメッセージは出ませんでした。この後、ピンク色のセルで空欄以外のものは、どうやって算出すれば良いのでしょうか。教えてください。（桜井） ---- ん?ピンク色のセルの数は出せたのですよね? 同じようにやってみて下さい。＞If ad.Value <> "" Then を追加したので、空欄以外の物がカウントされると思いますが。 =UFClrCntcc( セル範囲 , 38) この関数（変更前の関数）を他の事にも使用するので有ればコードをコピーして、違う関数名で作成しておいた方が良い様に思います。例えば Public Function UFClrCntccIb(adrs, clr) '特定のセル色の入力があるセルの数 Dim sm As Variant, cv As Variant, fci As Integer, ad As Range sm = 0 For Each ad In adrs fci = ad.Interior.ColorIndex If fci = clr Then If ad.Value <> "" Then sm = sm + 1 End If End If Next UFClrCntccIb = sm End Function とすれば、ワークシートには =UFClrCntccIb( 範囲 , 38) として下さい。 (HANA) ---- HANAさまおかげさまで、無事に算出できました。ありがとうございます。次の機会にに利用できるよう、データを残して分かりやすくしておこうと思います。そしてもっと勉強します。本当にありがとうございました。（桜井） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200808/20080805105301.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ