よろしくお願いします。, こんばんは！ 　　　If myPattern = 0 Then よろしくお願いいたします。, こんにちは。 初心者すぎて《関数を自分で作ってみる》の記事もいまいち理解できませんでした…すみません(・・;), はい、それをそっくりそのままモジュールに追加すれば使えます。 　　　　 ReDim Preserve myColor(j)

http://excel-magic.com/post-21/, 構文エラーは出なくなりましたが、答が合いません

このサイトを利用しようとしたのですが 　　　　Prompt:="集計が終了しました。結果の貼り付け先を指定して下さい", _ 尚、1行目は何らかのデータが入っているという前提です。 せっかく色分けしているので、赤の数字だけを足す、 xlsxやxlsmも対応、というかxlsならこんなんしないで一瞬で開けます。 　　　　　　　　End If 　　　Else Or myCell.Interior.ColorIndex = intColor Then 　　　　　　SpecialCell = SpecialCell + 1 Next i

（A列の最終行を取得するために、ダミーでもよいので1行目に何らかのデータが必要です）

　　If rngTARGET Is Nothing Then Exit Sub 　　3）2）で開いたスペースに以下のコードをコピー&ペースト =SpecialCell(D10,D8,D29...続きを読む, kmetu さんの「セル範囲を（）で囲む」を私のソースに適用させてもらって(^^;

=SpecialCell(D5:D125,3) たとえばセルが”あいうえお”という文字であれば赤色にする、という条件付書式であれば、ただ単に”あいうえお”のものをカウントすれば良いので 　 Dim c As Range intColor As Integer) As Integer 佐藤 =COUNTIF(範囲,”あいうえお”) そこで汎用的に使えそうな「手抜きバージョン」で回答します。 Sub 条件付き書式なし() For k = 7 To 17 例えば同一セル内に ご存知の方、よろしくお願いいたします。, ワークシート関数ではセルの「色番号」は取得できません。 例にカレンダーの赤く色付けした日付の日数を数えていますが、その日付を合計することはできますか？, 初めまして。全くの初心者なのですが、この関数を使ってちゃんと合計されたのですが、結合したセルをバラバラに計算されてしまうのですが、3つのセルを結合して、それを1つと計算してほしいのてますが、どうすればいいですか？教えて頂けると助かります。, このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。, クレジットカード・FX口座を作るだけで簡単に3万円GETです。一切支出はありません。, 関西在住の30代サラリーマン。事務職で毎日Excelと戯れています。 　　　　Set rngTEMP = ActiveCell

　　　Else Range(Cells(124, "B"), Cells(endRow, endCol)).SpecialCells(xlCellTypeBlanks) = 0 記事に追記しましたのでそちらで対応お願いします。, とても便利に使えてます。 IT全般Trial&Errorの殴り書き備忘録(:-, VBAでデータを取り込むならADO！コピペでOKなコード紹介と、注意点等も細かく解説しています。, データテーブルを渡してエクセル出力したい、そんな時のテクニックまとめです。

If Cells(k, j).Interior.Color = Cells(i, "A").Interior.Color Then 　 End If Function Cidx(ByVal trg As Range) As Integer http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html ん？ (1) は【丸囲み数字１】ですか？では

では、セルの計算式はどのようになっていますか？, 使わせて頂いております。 個人表に呼んできている条件自体が そこそこ複雑なので 色で判別したいとおもっております。, 色々と弄ってみたのですが、Excel2010以降であればDisplayFormatオブジェクトというものが使え、条件付書式発動後のセル色を取得出来ます。 エクセル初心者です。エクセルセルに佐藤鈴木青山渡辺と入力されてあって佐藤と鈴木の文字の色が青だった場合文字色(青)がついているセルをカウントし,あるセルに2と表示することはできるのでしょうか。条件付書式や検索と思いましたがわ 　　'赤は3，緑は4，青は5，黄は6 　 Dim Ret() As Double 　　End If 　　 詳しいプロフィール,