GoTo SkipFor 　　　　 i = WorksheetFunction.Match(c.Interior.ColorIndex, myColor, 0) せっかく色分けしているので、赤の数字だけを足す、 お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, http://miyahorinn.fc2web.com/faq/faq030.html,htt …, http://www.relief.jp/itnote/archives/000482.php. とあって、 （１）書式→条件付き書式 　　Dim i　　　　 As Long For i = 124 To endRow エクセルは2003を使用しています。 色のついたセルをカウント・集計. アドバイスお願いいたします。, こんにちは。KenKen_SP です。 自分で作れれば良いのですが・・・・, こちら(↓)をそっくりそのままモジュールに追加すれば、Countcolorが使えるようになるのでしょうか？？, 仕事の効率化を考えてサイトを探し、こちらのブログに立ち寄らせていただきました。 　　For Each myCell In TargetRange 　　Set rngTARGET = Nothing '赤は3，緑は4，青は5，黄は6 渡辺 （A列の最終行を取得するために、ダミーでもよいので1行目に何らかのデータが必要です） エクセル2013ではだめですか？, コードはそのままモジュールにコピペされたという事ですよね。 　　Dim rngTARGET As Range CountColor = 0 For y = 1 To 計算範囲.Columns.Count あと、他に書かれているかもいましたが、条件付で変更したカラーもカウントできるといいですね。 endRow = ActiveSheet.UsedRange.Rows.Count 　　For Each myCell In TargetRange 　　Dim intIDX　　　As Integer 　　Dim rngCELL　 As Range 会社の2013年度カレンダー作成しておりました。 【共有フォルダ】誰も開いてないエクセル（Excel)が使用中・閲覧中になる現象完全攻略【他のユーザー】, 【Hackintosh】Windows上のVMwareにMacOSを入れる手順まとめ, Windows上のvmwareにmacOS X 10.15 Catalina をインストールする方法【mac無し】. 　 Dim j As Long Or myCell.Interior.ColorIndex = intColor Then http://oshiete1.goo.ne.jp/kotaeru.php3?q=1225959 マクロ（ユーザ定義関数）が必要です。 　　Else 　　　　Title:="結果出力", _ （赤色の50とか緑色の70とか） 　　Application.ScreenUpdating = True なお、 とてもシンプルで分かり易くて、他のサイトと比較しても一番使いやすいです。 を入れれば、色なしのセルの数が出ます。 たとえば、A1～A30までのセルの中で、A9、A10、A18、A19、A20、A29、A30のセルが赤で、 ん？ (1) は【丸囲み数字１】ですか？では #VALUE!エラーが出てしまいます 次にＶＢＥ画面を閉じてワークシート画面に戻り、 　　参考にして下さい。 　　　　If myCell.Font.ColorIndex = intColor Then 返信が遅れて申し訳ありませんでした。, 「GET.CELL」に関するQ&A： エクセル・・色の着いたセルの個数を数える関数はある？, 「カウント エクセル」に関するQ&A： エクセルでの指定文字　カウントについて, 「条件付書式 エクセル」に関するQ&A： Ｅｘｃｅｌ条件付書式／他のセルの条件での色分け, 初めての出産を控えるプレママ。子育てをしながら出産を迎えるママ。 期待と不安の入り混じる妊娠中の2人に、肌研究家であるベテランママがアドバイス。, 特定のセル（色付き、色なし、色付き文字あり、色なし文字あり）だけを数える関数はありますか？, エクセルの表内で塗りつぶしされているセルだけを数える様な関数はありますか？ そこで汎用的に使えそうな「手抜きバージョン」で回答します。 色なし 次に条件付き書式によってセルが色付けされている場合のコードです。 　　　　　　　　End If Sub 条件付き書式なし() 　　　　　Cidx = .ColorIndex intColor As Integer) As Integer 　 Dim c As Range If myCell.Font.ColorIndex = intColor _ 教えてください。よろしくお願いします。, 確かにF9で再計算されないのは不便ですね。 　　　End If Function Cidx(ByVal trg As Range) As Integer countifs関数は指定した範囲の中で複数の検索条件に一致するセルがいくつあるかを求める関数です。countifs関数の基本的な使い方をご紹介していきます。ワイルドカードや比較演算子などさまざまな検索条件の指定方法も説明します。 Function SpecialCell(targetRange As Range, _ エクセル術 , 　　　　 On Error GoTo 0 Googleで「エクセル　セル　色　カウント」などで照会すると似た質問が出る。 　　　　Set rngTARGET = rngTARGET.Cells(1, 1) '以下コードです。 セルには文字や数値は入力されておらず、塗りつぶしているだけです。 個人表に呼んできている条件自体が そこそこ複雑なので 色で判別したいとおもっております。, 色々と弄ってみたのですが、Excel2010以降であればDisplayFormatオブジェクトというものが使え、条件付書式発動後のセル色を取得出来ます。 For k = 7 To 17 Or myCell.Interior.ColorIndex = intColor Then http://okwave.jp/kotaeru.php3?q=2000523, エクセルの関数で、CELLの色パターンを数えたりできるのでしょうか。例.セルのパターンが赤色のものをカウントするなど。, ＃１さんの方法が本道だと思いますが、 　　Dim strVALUE　　As String For Each myCell In targetRange VB Editor の標準モジュールに貼り付けてください。（挿入－標準モジュール） 　　　　End If 　　　ColorCellCount = Ret() そこで汎用的に使えそうな「手抜きバージョン」で回答します。 実際のセルに入力する式は セルの色の集計したかったので大変助かります。 Excel2010以降であれば、 End Function ひとり分の表の中で、エラーとして 認識する条件があり そこに色をつけさせています。 さらに、この色かつこの内容もカウントできるとなおいいですね。 endCol = Cells(5, Columns.Count).End(xlToLeft).Column その後答えを求めるセルに 　　　　　　　　　　SpecialCell = SpecialCell + 1 　　　End If 　 と入力されてあって佐藤と鈴木の文字の色が青だった場合文字色(青)がついているセルをカウントし,あるセルに2と表示することはできるのでしょうか。条件付書式や検索と思いましたがわかりません。よろしくお願いします。, 「カウント エクセル」に関するQ&A： エクセルの重複カウント、複数パターンの場合・・・, 「条件付書式 エクセル」に関するQ&A： エクセル　条件付書式　別シート参照　について, 「GET.CELL」に関するQ&A： GET.CELL関数を使ったら、警告画面が出る, 「if関数 色」に関するQ&A： ＥＸＣＥＬ（ＩＦ関数）でＣＥＬＬの色を変える。, 丁寧なご回答ありがとうございます。 佐藤 名前が並んだデータで「高橋」という名前が何個あるのかをカウントしたいのですがどうすればいいのでしょうか？, データは入力されているセルの範囲を「A1:C4」とすれば、 Next k 　　　　　　Ret(j) = 1 の1行を削除してください。m(_ _)m, こんばんは！ ですので、対応としてはCountColorのユーザー定義関数で対応するのではなく、マクロを動かす必要があります。 　　　　　　　　　　.Value = "FONT COLOR:= " & vntKEY amazon_ad_tag = "excel0a-22"; amazon_ad_width = "300"; amazon_ad_height = "250"; amazon_ad_link_target = "new"; amazon_ad_border = "hide";//-->. End Function Sheetモジュールです。 詳しいプロフィール,