カウントするには関数か若しくはVBAでご指導仰ぎたいです。 　VBE画面にします。 Copyright ©2018Impress Corporation. End Sub A列の124行目以降のセルを検索したい色にあらかじめ塗りつぶしておいてください。 マクロ（ユーザ定義関数）が必要です。 いくつかの条件で色分けしてあるのですが、これらのセルの色が「赤」は幾つ、「青」は幾つというふうに、 If endRow > 123 Then End If NOW 関数を組み込み「F9」キーで更新させた方が良いようです。 endCol = Cells(5, Columns.Count).End(xlToLeft).Column 　　参考にして下さい。 　実際のサンプルファイルを見ていただければいいのですが、なかなか 　　以下に手順を記しますので参考にしてください。 C7 ～　C17 で　“青色” C125=2 せっかく色分けしているので、赤の数字だけを足す、 　　　　 On Error GoTo 0 　　'ユーザーに集計範囲を指定してもらう 良い方法が思いつきません。 出動日数に赤字(一日)、黒字(半日)と区別して、手当てを支払う計算をエクセルで作成したいのです。総会が迫っていますので、会計係りとして困っています。よろしくご指導のほど、お願いいたします。, 「カウント エクセル」に関するQ&A： エクセルの重複カウント、複数パターンの場合・・・, 「カウント エクセル」に関するQ&A： エクセルでの指定文字　カウントについて, （Excel）あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには？, EXCELでCOUNTIF(,,)のようにセルの書式を条件でセルの数をカウントする方法, エクセル初心者です。 　ところで、この OkWave には Office 系ソフト専門のカテゴリもあり １　残念ながらマクロを使わないと，ご希望のことは難しいようです。 SUMIF関数などでできるのでしょうか？ countif関数は、「count」と「if」という文字列が使われていることからもわかるとおり、条件に当てはまるセルの数をカウントする関数です。countif関数は（範囲、検索条件）という要素で構成されていま … VB Editor の標準モジュールに貼り付けてください。（挿入－標準モジュール） 　　フォント色で集計を行うツールを作ってみました。お試し下さい。 　　4）VBE を閉じる なお、一般のブックの標準モジュールのユーザー定義関数に、Public キーワードをつけたところで、グローバル関数になるわけではありませんので、もしその点に不安のある方は、マニュアル等で、確認されたほうがよいかもし...続きを読む, こんにちは。 （A列の最終行を取得するために、ダミーでもよいので1行目に何らかのデータが必要です） ColoredCell = ColoredCell + 1 色なし For j = 2 To endCol (1) [ツール]-[マクロ]-[VisualBasicEditor]（またはAlt ＋ F11）で Sheetモジュールです。 の1行を削除してください。m(_ _)m, こんばんは！ Next 文字が入っていなければB1セルからC1セルを引く、という状態です。 　　　　　※その他も、実際に試してみれば結果は分かるはず 　　このカテゴリー内で GET.CELL で検索すると過去に類似の質問があります。 4.0マクロ関数を使う 使える関数を紹介！. カウントすることは出来るのでしょうか。 　西 山田 梅田 　　　　　　If .Value <> "" And IsNumeric(.Value) Then 尚、1行目は何らかのデータが入っているという前提です。 　End With 　　　「=GET.CELL(検査の種類を指定する番号,判定したいセル番地)」 If endRow > 123 Then 　With trg.Cells(1, 1).Interior 　　フォント色で集計を行うツールを作ってみました。お試し下さい。 ただしセルに値を入力した後で背景色を変更した場合は、ユーザ定義関数の結果は自動的に変わりません。Alt＋Ctrl＋F9で強制再計算させる必要がありますのでご注意ください 　使う際には =ColoredCell(A1:A10,A5) といったように、第１引数は 通常、関数は値しか扱えません。つまり、フォント色やセル背景色などの書式 いちおう 2000 で作成した経験からアドバイスさせていただきます。 　　　　Title:="結果出力", _ http://okwave.jp/207/218/c232.html こちらでは、 「LEN関数」「LENB関数」を用いた文字数カウントの方法や、応用的な使い方をご紹介します。. 何日出動したかを出したいのですが、半日は黒字、全日は赤字で別々のセルに一月分を赤、黒に区別して該当日の数字で入力済み、一年間合計は、赤黒関係なくcountで出力できましたが、赤黒別の合計ができなくて困っています。cell指定、カラー指定の方法を教えてください。 　　　　 ReDim Preserve myColor(j) 　　　End If 　　　例☆黒字（無指定）＝＞０ 　　　　　　　　End With 　(2) 判定した結果を表示させる 青山 色付き 　　Else VBE画面にします。. Excel 2010 選択範囲内の色つきセルの合計を求めるユーザー定義関数 http://www.geocities.jp/ttak_ask/office_docu/ec12_21.html ?Excelのスケジュール表で自分が定義した祝日に色を付けるテク, 【Excel】なぜかカーソルキーでセルを移動できなくなった！エクセルがいつも通りに動かないときの対処法, 【Excel】シフト表のドロップダウンリストへのメンバー追加が面倒！エクセルで管理がラクなドロップダウンリストを作るコツ, 【Excel】集計作業を3倍速で完了! VB Editor の標準モジュールに貼り付けてください。（挿入－標準モジュール） （内容はほとんど一緒です） 　　　End If intColor As Integer) As Integer ある条件にあてはまるセルに、書式でセルの色を設定してあります。 エクセルでは、「COUNT関数」という「数値の入力されたセル数」を求める関数があります。. なお、 右側にある [リボンのユーザー設定 (B)] → [開発] の左側の にチェックを入れます. 　　　ColorCellCount = Ret(myIndex - 1) エクセルで文字列形式の数値をsum関数で合計する簡単な方法 ; excelのrank関数で同じ数値なのに同順位にならない原因と対処法; ｴｸｾﾙ関数 説明. 　　Set DIC = Nothing まず、手作業で色を付けている場合のコードです 以下のマクロを実行すると、 文字に色がついているセル数をカウントします。 Sub 文字色を数える() Dim Rng As Range Dim Red_cnt As Long Dim Orange_cnt As Long Dim Green_cnt As Long For Each Rng In Range("A2:A11") Select Case Rng.Font.Color '赤色 Case 255 Red_cnt = Red_cnt + 1 'オレンジ色 Case 49407 Orange_cnt = Orange_cnt + 1 '緑色 Case 5287936 Green_cnt = Green_cnt + 1 End … Range(Cells(124, "B"), Cells(endRow, endCol)).ClearContents 　　On Error GoTo 0 なお、以下は、引数のインデックスに0を入れると、配列出力するようにしてあります。 　　Dim i　　　　 As Long End Sub, こんにちは。KenKen_SP です。 　　　　　　　　　　DIC.Add Key:=lngC_IDX, Item:=.Value エクセルで文字数をカウントするには？. エクセル2010で ゼロを表示させず、コンマを入れるには 書式設定で ユーザー定義にして #,### とすればいいとどこかにあったので 説明してある通りにやったら できましたが －5,500 と数字が入った時に … 　　　　 i = WorksheetFunction.Match(c.Interior.ColorIndex, myColor, 0) 　 Dim myPattern As Integer 名前が並んだデータで「高橋」という名前が何個あるのかをカウントしたいのですがどうすればいいのでしょうか？, データは入力されているセルの範囲を「A1:C4」とすれば、 　　If Not rngTARGET Is Nothing Then 佐藤 更新されます。, エクセルのＩＦ関数で文字が入力されていたならば～、という論理式を組み立てたいと思っています。 複数のセルより赤色で記入された数字(1～31)の数、すなわち一ヶ月に 　　　　　　　　lngC_IDX = .Font.ColorIndex Sub 条件付き書式で色付け() 範囲 A1:F600 から 文字の色が 黒の個数は =fcolor (A1:F600,1) 範囲 A1:F600 から 文字の色が 赤の個数は =fcolor (A1:F600,3) ★補足の件・・・・・・・・・・・・・・・・ こちらのミス・・・黒の文字は？. 　　　　With rngCELL 　　　　　　If myPattern = 0 Then ます。　そっちの方が詳しい人が多いと思うので、今後は使用ソフトの 　 Dim Ret() As Double 鈴木 　　Dim rngTARGET As Range countif関数の入力; 範囲を指定; 検索条件を指定; 指定した文字列をカウント 　　 Function ColorCellCount(範囲 As Range, Optional インデックス As Integer = 1, Optional パターン As Integer = 0) 青の数字だけを足すということができれば楽なのになぁと思い質問させていただきました。 関数を用いると文字数カウントは簡単にできます。. 　☆参考：ブックの標準カラーパレットのインデックス番号 =IF(A1="『どんな文字でも』","",+B1-C1) 　　　　 ReDim Preserve Ret(j) にすれば、１行目の色番号となります。 参考URL：http://miyahorinn.fc2web.com/faq/faq030.html,http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html, 質問者様お使いのエクセルのバージョンが不明なので何がアレですが の式を１行目の空いている列（例えばＢ列）に入力し、３０行分下にコピーします。するとＡ列のセルの「色番号」が表示されます（背景色なしは０） ですから、レモンはB列に2つあるため「1/2」が2つ、りんごはB列に3つあるため「1/3」が3つ、そしてねぎはB列に2つあるため「1/2」が2つ、という形になります。. Sub フォント色別に数値集計() 何かいい方法で関数ではやはり無理でしよう 　　Application.ScreenUpdating = True マクロ（ユーザ定義関数）が必要です。 Next またＩＦ関数以外でも同様のことができれば構いません。 佐藤 山田 梅田 End Sub また、Excel2007と2010では関数ライブラリからも選択できます。. 　　Dim vntKEY　　As Variant ７～17行目の色付けは手作業でしょうか？それとも条件付き書式によって色付けされているのでしょうか？ 　 Set myRng = Nothing まず以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。 一例です。 高橋 梅田 赤田 Sheetモジュールです。 文字列全体は「0;[赤]" "0」（⑨）となります。入力できたら、[ok]（⑩）をクリックします。 入力できたら、[OK]（⑩）をクリックします。 セルには文字や数値は入力されておらず、塗りつぶしているだけです。 追記　4.0マクロの機能ですが Excel97 から Excel2002までのバージョンで活用できることは確認済み とすれば、文字の色を数えます。, こんにちは。 =GET.CELL(63,!$A1)+NOW( )*0 背景色のついたセルを関数でカウントしたく色々と調べました。 　 Set myRng = 範囲 　　　If .ColorIndex = xlNone Then ２　別解（参考） 　 Dim i As Long 関数を入力するときは、[関数の挿入]ボタンをクリックして[関数の分類]で[統計]を選択すると、COUNTIF関数が簡単に入力できます。. endRow = ActiveSheet.UsedRange.Rows.Count 63→セルの塗りつぶし色を判定 　=Cidx(A1) ライターの納品物、アンケートのコメントなど、テキストをエクセルで管理する場合は、文字数のカウント方法を覚えておくと効率的です。. 　　3）2）で開いたスペースに以下のコードをコピー&ペースト 　　　　　　Else エクセルでカレンダーのような物を作ってます。 1日から31日まで横1列に並んでいます。 日付の下のセルに曜日を入れています。 曜日は‘土’が青、‘日’と‘祝日’が赤でカレンダーと同じように色を付けています。 平日（黒）以外の、青と赤の色つきの曜日の数をかぞえる方法はありますか？色を付けた時点で、どこかのセルに数値が入るといいなぁと思います。 文字が含まれるセルを数えるときはCOUNTA（カウントエー/カウンタ）関数を使って、範囲内のセル数を求めます。. （コピー＆ペーストでもOK) ----------------------------------------------------------------. 通常、関数は値しか扱えません。つまり、フォント色やセル背景色などの書式 　なお、後から書式を変更しても結果が自動的には更新されないので、 Function SpecialCell(targetRange As Range, _ 最後にSUMPRODUCT関数によって合計されます。. http://oshiete1.goo.ne.jp/kotaeru.php3?q=1225959 尚赤文字の設定は、Font.Color=QBColor(12) で設定してあります よろしくお願いします. If Cells(k, j).Interior.Color = Cells(i, "A").Interior.Color Then 　　　　　赤　　　　　　＝＞３ ?複数個所にある小計や総計をワンクリックで計算できる［Σ］ボタン活用法, 【Excel】数値が入力されたセルだけを一括でクリア！エクセルで特定の種類のデータが入力されたセルを選択するテクニック, 【Excel】表が縞模様になるだけじゃない！エクセルのテーブル機能はデータ管理の最強武器, 【Excel】在庫が少なくなるとエクセルの管理表が教えてくれる！備品の発注を忘れないためのテクニック, 【Excel】「5,000,000円」を「5百万円」と表示するには？エクセルのユーザー定義書式の表記法をマスターする！. Next k この『どんな文字でも』の部分に何を入れればいいのか教えてください。 左側下の方の [リボンのユーザー設定] をクリックします. 　　On Error Resume Next B1 → 集計したい文字色が設定してあるセル（赤色を集計したいなら B1の文字色を「赤」にしておくこと。ただしセルは空白でも可） Function SumColor(ByVal Rng, trg As Range) As Single Dim r As Range For Each r In Rng If IsNumeric(r.Value) … 　 A列 　　　　Set rngTARGET = rngTARGET.Cells(1, 1) Range(Cells(124, "B"), Cells(endRow, endCol)).SpecialCells(xlCellTypeBlanks) = 0 　　Set rngTARGET = Application.InputBox( _ Terminate: 　Excel2007 で読み込んでも反映されましたが、2007でどう作成するの 　　１　黒　　　２　白　　　３　赤　　　４　黄(薄)緑　５　青 エクセルでcountif関数とif関数を組み合わせて、重複データをチェックするテクニックを紹介します。複数項目について重複をチェックすることも可能です。重複しているデータを削除する方法を解説した記事へのリンクもあります。 　　End If [開発] タブが表示されます. 1. 複数の条件に一致するセルを数えるには「COUNTIFS 関数」を使用します。 A1セルに『どんな文字でも』入っていたならば、空白に。 と入力されてあって佐藤と鈴木の文字の色が青だった場合文字色(青)がついているセルをカウントし,あるセルに2と表示することはできるのでしょうか。条件付書式や検索と思いましたがわかりません。よろしくお願いします。, 質問者様お使いのエクセルのバージョンが不明なので何がアレですが 　　参考にして下さい。 　　1）[Alt]+[F11]で Visual Basic Editor （以下 VBE ）を起動 Dim i As Long, j As Long, k As Long, endRow As Long, endCol As Long エクセルは2003を使用しています。 　　Set rngTEMP = Nothing 　　2）...続きを読む, エクセルの表内で塗りつぶしされているセルだけを数える様な関数はありますか？ 　　For Each rngCELL In rngTARGET 　　　　Next vntKEY ７～17行目の色付けは手作業でしょうか？それとも条件付き書式によって色付けされているのでしょうか？ 　　11　紺　　　 (濃い緑) 　するとコードウィンドウが出ますので...続きを読む, 売上げ表内で、A社は赤、B社は青と売上げ数字が混在しています。 　　　　　　With rngTARGET Function Cidx(ByVal trg As Range) As Integer 以下　～　56　まであるようです。 　　'フォント色別に集計開始 Dim myCell As Range 範囲として選択したい場合、どのように操作したらよいでしょうか？ よろしくお願いします。, こんばんは！ ☆検査の種類を指定する番号とは？ １　残念ながらマクロを使わないと，ご希望のことは難しいようです。 　 myPattern = パターン 　　　　i = 0 Cells(i, j) = Cells(i, j) + 1 　 Dim myColor() As Integer =GET.CELL(63,!$A$1)+NOW( )*0 　ただし、フォント色が黄でセル色が青などというのは、どちらにも 右下にある [OK]ボタンを押します. For Each myCell In targetRange 　　　　　　　　.Offset(i, 1).Value = CDbl(DIC.Item(vntKEY)) ----------------------------------------------------------- 　　Dim rngCELL　 As Range ユーザー定義関数で作ってみました。Ver4 マクロ関数で十分だと私は思いますが、Ver 4 マクロ関数ではケシカランというような方？は、以下のようなVBAでの解決方法が便利かなって思います。 エクセルの COUNTIF 関数の使い方を紹介します。COUNTIF 関数は条件に一致するセルを数えます。「0」以外のセルや特定の文字列が入ったセルを数えたいときに使用します。「AND 関数」や「OR 関数」を使用して複数の条件に一致するセルを数えられます。 1. 　　　　　　　myColor(j) = c.Interior.ColorIndex 　　　名前欄に式の名前を（「文字の色」や「セルの色」等）付けて 　　　　　青　　　　　　＝＞５ エクセルCOUNTIF関数を使って、「A2:A8」に含まれる、「りんご」と「イチゴ」の数を、それぞれカウントしてみましょう。 D2に、「りんご」をカウントする式を入力しましょう。 D2　=COUNTIF(A2:A8,”りんご”) 「３」を返します。 「りんご」のセルは、「３」あります。 E2に、「イチゴ」をカウントする式を入力しましょう。 E2　=COUNTIF(A2:A8,”イチゴ”) 「４」を返します。 「イチゴ」のセルは、「４」あります。 セル参照の式は、次のようになります。 D2　=COUNTIF(A2:A8,D1) … 　　　　Set rngTEMP = Selection counta関数の使い方について説明します。counta関数は、数値や文字列などデータが入力されているセルの個数を数えるためのもの。count関数との違いや、数式による空白をカウントしない方法、その他のセル個数を数えるタイプの関数の種類など、質問が多いテーマについて解説します。 　　【使い方】 　などとすればOKです。 お願いは、例えば よろしくお願いいたします。, こんにちは。 　のようにカウントができればいいです。 ※　空白セルには「0」を表示するようにしていますが、「0」が目障りであれば 　　以下に手順を記しますので参考にしてください。 　（コピー＆ペーストでもOK) Impress Corporation. 2. SpecialCell = SpecialCell + 1 ワークシート上での使い方は、 Dim i As Long, j As Long, k As Long, endRow As Long, endCol As Long countifで空白以外（何かしらの値や文字が入っている個数）をカウントする方法を紹介します。そもそも空白以外をカウントする関数(counta)があるのをご存知でしょうか？counta関数での方法とcountif関数での方法をそれぞれ紹介していきます。 を入れれば、色なしのセルの数が出ます。 ---------------------------------------------------------------- なので 「『=1/COUNTIF (B3:B9,B3:B9)』は『1/2』」 となるのです。. For j = 2 To endCol 　　　　　　End With B7 ～　B17 で　“青色” B125=1 　　　　　　　　　　.Value = "FONT COLOR:= " & vntKEY 　　[ツール]-[マクロ]-[マクロ]で実行 ＞文字色(青)がついているセルをカウントし, endRow = ActiveSheet.UsedRange.Rows.Count 　　　　　Cidx = .ColorIndex [Officeボタン] → 一番下 [Excelのオプション] → [基本設定]→ [Excelの利用に関するオプション] → [開発タブをリボンに表示]にチェックを入れる. 　　６　黄　　　７　桃色　　８　水色　　９　茶色　　　10　緑 '赤は3，緑は4，青は5，黄は6 　　　　For Each vntKEY In DIC.Keys 　　　　　　　　& vbCrLf & "集計範囲をマウスで選択して下さい。", _ Next i End Function 私は、除外して言ってます。, エクセルで並んだデータでの指定した名前だけの個数をカウントするにはどうすればいいのでしょうか？ 　　　On Error Resume Next 　言葉で説明するのは非常に難しくこれで理解していただけるかどうか するとコードウィンドウが出ますので、以下のコードを記します。. 文字色を表す整数値がわかっている場合は、整数値を引数で渡します。 '赤字のセル数をD2に出力 Range("D2").Value = CountColorChar(ActiveSheet.Range("A1:B5"), 255) 1 End If '------------------------------------ (3) 元のワークシートに戻って、カウント結果を表示させたいセルに、 　　　　Set rngTEMP = ActiveCell マクロ（VBA）を使う For k = 7 To 17 ユーザー定義関数で作ってみました。Ver4 マクロ関数で十分だと私は思いますが、Ver 4 マクロ関数ではケシカランというような方？は、以下のようなVBAでの解決方法が便利かなって思います。 ２　実は、マクロを使わない方法があります。 　　【手順】 にはCELL関数のことも載っているが、旧いバージョンの関数なので ところが、セルに「A」や「あ」などの文字列が含まれると、COUNT関数では「セル数」にカウントされず、例のように「0」という値が返されます。. これにより、文字、数字、文字、およびすべてのスペースがカウントされます。. 色付き All rights reserved. まず以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい...続きを読む, エクセルの関数で、CELLの色パターンを数えたりできるのでしょうか。例.セルのパターンが赤色のものをカウントするなど。, ＃１さんの方法が本道だと思いますが、 24→文字フォントの色を判定 Next j Excel2007の場合：. (2) VBE画面上で [挿入]- [標準モジュール]を選択します。. 　　　　Prompt:="集計が終了しました。結果の貼り付け先を指定して下さい", _ 　　　　　　i = i + 1 　　　　　　　　With .Offset(i, 0) 次に条件付き書式によってセルが色付けされている場合のコードです。 　　 　 Dim myIndex As Integer 　(1) 色を判定する式を登録 Excel2010以降であれば、 エクセルで作成した表が「男性だけ」「特定の名字の人だけ」など、条件に合うものの数だけを自動的にカウントしてくれたら、とても便利ですよね。countif関数を使うと、そんな仕組みもラクラク作成できます。今回はエクセル2013を使って紹介します。 青字のカウントは =SpecialCell(A1:E5,5) Function ColoredCell(rngArg As Range, rngSample As Range) As Long です。 もちろんこれも SUMIF 関数との併用（数字として計算する）が 　　その判定結果を SUMIF や COUNTIF 関数の引数として再利用する。 Googleで「エクセル　セル　色　カウント」などで照会すると似た質問が出る。 End If 今回は、濃い赤の文字、明るい赤の背景と指定するとします。 すると、指定値よりも大きいセルの色を変更することができるのです。 ただ、これでは一定値よりも大きいセルのみが変わり、指定値と同じセルの色は変化しません。 そのため、基準値以上の数字のセルを色分けするためには、別 Range(Cells(124, "B"), Cells(endRow, endCol)).SpecialCells(xlCellTypeBlanks) = 0 　　2）[挿入]-[標準モジュール] 最終的にその月の売上げを社ごとに計算したいのですが、混在しているので、今は手計算しています。 ---------------------------------------------------------------- カウントされてしまうので注意が必要です。 　例「=GET.CELL(**,**)+NOW()*0」（０を足している為、値に影響なし） を関数で扱うことはできません。では、どうするか？ 方法は2つあります。 エクセルでは関数を使えばセル内の文字数カウント、字数制限、特定の文字数のみカウント、ワークシート全体の文字数カウントなどが行えます。 この記事では、エクセルの文字数カウント機能について、len関数・lenb関数の使い方を詳しく解説します。 　 Dim j As Long 可能です。 　 ElseIf myIndex > UBound(Ret) + 1 Then 　　（ＶＢエディタのヘルプにて「ColorIndex」を検索、参照した） 簡易表示. 今回の例では、セルG4に地域別のセル数を表示するセルがあります、COUNTIF関数でC列の地域を「範囲」に指定します。. 後は別の関数で赤色（色番号＝３）で「○」印があるセルをカウントします 宜しくお願いします。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 「なぜ、そのセルを赤にしたのか？」を判定条件にしたらCOUNTIF関数等でもカウントできませんか？, いつもお世話になります。 　 End If 【Excel】負の数の先頭に▲を付けて赤色の文字で表示させたい！エクセルでマイナスの数字を強調するテク, 【Excel】消費税率が異なる商品の売上記録を作成するには？エクセルで条件によって表示内容を変えるテク, 【Excel】即位礼は祝日! If c.Interior.ColorIndex = rngSample.Interior.ColorIndex Then マクロ（VBA）を使う 　　Dim dblNUM　　As Double お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, http://kiyopon.sakura.ne.jp/soft/index.htm. 　　　ColorCellCount = Ret(UBound(Ret())) 　　　　Prompt:="フォント色別に数値を集計します。" _ とすれば、常にA1セルと云う事になります。 　　　Else 赤字のカウントは =SpecialCell(A1:E5,3) 　　このカテゴリー内で GET.CELL で検索すると過去に類似の質問があります。 　　Set DIC = CreateObject("Scripting.Dictionary") =ColorCellCount(A1:A5,1,1) (2) VBE画面上で[挿入]-[標準モジュール]を選択します。 自信がありませんが、この、色の判定式を登録してしまうという方法は 　　On Error GoTo 0 なお、一般のブックの標準モジュールのユーザー定義関数に、Public キーワードをつけたところで、グローバル関数になるわけではありませんので、もしその点に不安のある方は、マニュアル等で、確認されたほうがよいかもしれませんね。 エクセルセルに 　　　　　Cidx = 0 背景色を変えただけでは、計算は実行されません。 　=SUMPRODUCT((A1:A30="○")*(B1:B30=3)*1), ワークシート関数ではセルの「色番号」は取得できません。 　 If myIndex <= 0 Then End Function 　　　Else Cells(i, j) = Cells(i, j) + 1 Excel2010以降であれば、 Win7 Excell2010 です。 一例です。 ユーザ定義関数で「背景色が赤で、文字列が○のセル」を数えることも可能ですが、質問は「例えば」で書かれていそうなので、あまりきっちりとマクロを書くと修正が必要になりそうです。 　　　　Application.ScreenUpdating = False たとえば、A1～A30までのセルの中で、A9、A10、A18、A19、A20、A29、A30のセルが赤で、 endCol = Cells(5, Columns.Count).End(xlToLeft).Column 　　すると色の種類すなわち色の番号を判定結果として表示してくれる 　　　色の番号（Excel のヘルプでカラーインデックスを参照できる） ユーザ定義関数で「背景色が赤で、文字列が○のセル」を数えることも可能ですが、質問は「例えば」で書かれていそうなので、あまりきっちりとマクロを書くと修正が必要になりそうです。 　　　　　　　myColor(j) = c.Font.ColorIndex End Function 　　　メニューバー「挿入」→「名前」→「定義」名前の定義画面にて A列の124行目以降のセルを検索したい色にあらかじめ塗りつぶしておいてください。 [mixi]EXCEL VBA 黒文字セルのカウント。 お世話になってます。2003を使用してます。 任意で選択したセル範囲（1列上下方向のみ）で、黒文字セルだけをカウントしたいのですが、手っ取り早いやり方ってどんなでしょ？ 僕がかいたのは、範囲Xを取得して、最 　　　End If 　　　　Type:=8) 20→フォントは太字か否か？を判定 Font.Color=QBcolor(12) の表現からして、マクロでどうするのかという質問と判断します。 プロパティの使用方法が分かってらっしゃるので、なぜできないのか理解しかねますが、 こんなところでは？ 話 … (2) VBE画面上で[挿入]-[標準モジュール]を選択します。 　　　　 Else Or myCell.Interior.ColorIndex = intColor Then 　　　　Type:=8) 　　If rngTARGET Is Nothing Then Exit Sub 　　Dim DIC　　　 As Dictionary 条件付き書式で色付けされているセルが判断できる「DisplayFormatオブジェクト」が使えます。 　　　　End With 　　【手順】 　　　　　緑　　　　　　＝＞10 VBAで中身たった１行のユーザー関数を作ればできます。 色付きセルの件数をカウントする [CountColor] http://takashixxx.blog88.fc2.com/blog-entry-42.html. 　　On Error Resume Next 　　「参照範囲」欄に そのうちのA10、A18、A29、A30に「○」の記号が入っていて、その○の数を調べたい場合です。 For i = 124 To endRow Next j http://miyahorinn.fc2web.com/faq/faq030.html, ＞A１のセルの背景色を色番号をA２に表示させたいのですが （A列の最終行を取得するために、ダミーでもよいので1行目に何らかのデータが必要です） '以下コードです。 最後の If Cells(k, j).DisplayFormat.Interior.Color = Cells(i, "A").Interior.Color Then 　　　　Default:=rngTEMP.Address, _ =ColorCellCount(A1:A5, 2 ) ＞文字色(青)がついているセルをカウントし, 　　　　　　Ret(i - 1) = Ret(i - 1) + 1 　　1）[Alt]+[F11]で Visual Basic Editor （以下 VBE ）を起動 マクロでは知識不足の私なのでなんとか関数でと思ったのですができないようです。 　(3) 判定した結果を、SUMIF や COUNTIF関数の引数として利用する。 マルチポストには気をつけましょう。 色付き など 渡辺 　　　判定結果を表示したいセルに「＝定義した名前」という式を入力 調べたい範囲、第2引数には指定する色の（サンプル）セルを当てる。 セル内の文字数をカウントする必要がある場合は、 LEN 関数 を使用します。. 　※SUMIF 関数の併用も可 End If Next k 　 myIndex = インデックス 　　色を判定する式（=GET.CELL(**,**)）をブックに登録、判定結果を 　　５～６年程前に、何処かで教わった記憶があります。 いちおう 2000 で作成した経験からアドバイスさせていただきます。 後は 一般の関数のように「とりあえず このファイル内でのみ」使用可 一般の関数のように =fcolor (範囲,文字の色番号) と使用してみてください。. たとえば、"It's 98 degrees today, so I'll go swimming" (引用符を除く) は 42 文字で、31 の英字、2 つの数字、8 つのスペース、カンマ、2 つのアポストロフィが含まれます。. 　　　　　　　　End If そこで汎用的に使えそうな「手抜きバージョン」で回答します。 Excelでデータ管理をしていると、重複しているデータが頻繁に出現します。これらを1件として数える場合、いくつかの方法があります。この記事では、逆数を求めて合計する方法と、オートフィルターで重複データを除く方法をご紹介します。 かは、残念ながら 2007 での作成経験がないので説明できません。 10月に入り、4月に入社や異動された方も業務にはすっかり慣れてきた頃でしょうか。Excelの操作にも慣れて、次の「商品別売上比較」（①）のような表ならすぐに作れるようになった！という方も多いかと思います。, この表ではD列の「増減」のセルには「今年度合計－前年度合計」の数式が入力されており、今年度の売上が前年度より減っている商品については、値が負の数で表示されています。この状態でも間違いではないですが、もっと見やすくするため、負の数に色を付けて表示したり、先頭に「▲」を付けて表示したりしたいと思いませんか？, 今回は、Excelで表示形式を設定して、負の数に色を付けて表示させたり、先頭に「▲」を付けて表示させたりする方法を解説します。, まずは、負の数を赤い色で表示する方法を覚えましょう。このように、ある条件で文字の色などを変えたい場合は、表示形式を設定します。表示形式には、Excelに最初から設定されているものと、ユーザーが自分で設定するものがあります。本項では、基本編として、Excelに最初から設定されている表示形式を使う方法を解説します。, 先ほどの「商品別売上比較」の「増減」の列に表示形式を設定して、負の数を赤い色で表示させてみましょう。「増減」の項目が入力されているセル範囲D3:D7（①）を選択し、［ホーム］タブ（②）の［数値］グループの右下にある矢印（③）をクリックします。, ［セルの書式設定］ダイアログボックスが表示されます。［表示形式］タブ（④）をクリックし、［分類］欄で［数値］（⑤）を選択すると、ダイアログボックス中央に［負の数の表示形式］の一覧が表示されます。ここで、数値が負の数になった時にどのように表示させるかを指定できます。赤い色で表示された「-1234」（⑥）を選択し、［OK］（⑦）をクリックします。, すると、「増減」の列の中で負の数だけが赤い色で表示されるようになります（⑧）。簡単な操作で、負の数を目立たせられるようになりましたね。, ちなみに、先ほどの［セルの書式設定］ダイアログボックスで「▲1234」を選択すると、負の数の先頭に「▲」を付けて表示させることができます。, 負の数を赤い色で表示させたり、負の数の先頭に「▲」を付けて表示させたりする表示形式は［セルの書式設定］ダイアログボックスの［負の数の表示形式］の一覧から選択できることがわかったと思いますが、「負の数の先頭に▲を付けて、赤い色で表示したい」のように、この一覧にない場合にはどうすれば良いでしょうか。, このように、自分が設定したい書式がExcelに最初から設定されていない場合は、ユーザー定義の表示形式を設定します。この場合は、ダイアログボックスの［負の数の表示形式］の一覧から類似した表示形式を選択したあとに、それを編集するのがラクです。再び、先ほどの「商品別売上比較」の表を例にして考えてみましょう。, 表示形式を設定したいセル範囲（ここではD3:D7）（①）を選択し、［ホーム］タブ（②）の［数値］グループの右下にある矢印（③）をクリックします。, ［セルの書式設定］ダイアログボックスが表示されます。［表示形式］タブ（④）をクリックして、［分類］欄から［数値］（⑤）を選択します。続けて、［負の数の表示形式］欄で［▲1234］（⑥）を選択します。ここでは［OK］をクリックせずに、次の操作に進みます。, 続けて、［分類］欄の［ユーザー定義］（⑦）をクリックします。すると、ダイアログボックス中央の［種類］欄に「0;"▲ "0」（⑧）と表示されます。この文字列は、先ほど選択した「▲1234」の表示形式を別の方法で表記したものです。具体的には、「正の数と0の場合には値をそのまま表示させ、負の数の場合には値の前に▲を表示する」という意味です。, 「▲」を付けた負の数に色を付けるために、この「種類」欄の文字列を編集していきます。文字色を指定する場合は、色の名前を半角の角カッコで囲み、先頭に記述します。したがって、ここでは負の数の書式を指定している「"▲ "0」の前に「[赤]」と入力しましょう。文字列全体は「0;[赤]"▲ "0」（⑨）となります。入力できたら、［OK］（⑩）をクリックします。, なお、本項で解説した方法で、赤色以外に青、水、緑、紫、黄、白、黒の文字色も指定できます。いろいろ試してみてくださいね。, これまで、負の数を赤色で表示させたい時などは、手動でセルの文字色を設定していた読者もいるかもしれません。確かに、それでも表示上は負の数に色が付きますが、入力される数値が修正されて負の数ではなくなった時には文字色も修正しなければなりません。, 今回解説した方法を使えば、数値が負の数から正の数に変わった時には文字色が自動で変わるので、修正の手間も減り、業務の効率もアップします。ぜひ、自分のパソコンでいろいろな表示形式を試して、表示形式の設定に慣れてくださいね。, Windows 7のサポート終了が迫っている。どうせ買い替えるなら業務効率化を狙ってパソコンを買い替えよう！　ExcelやPowerPointを使った作業が一気に快適になるパソコンのスペックを確認！, 【Excel】1行おきに色を付けると大きな表でも見やすくなる！エクセルで行の背景をストライプにするテク, 【Excel】毎回行うルーチンワークをサクッとこなしたい！エクセルで初心者でも簡単にできる自動化テク.

Word Grep Vba, Dtm 書き出し 音質劣化, ソフトバンクエアー Ps4 設定, Fifa20 キャリアモード 育成, 誕生日プレゼント 彼女 高校生 安い, サガ フロンティア2 アニマグール, ラジオクラウド Sdカード 保存, 銀魂 150話 動画, コストコ ジャッキ 2020, アルインコ Dr 635 送信改造, プリウス エンジン 強制始動,