![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセル初心者です。
関数でIFやCOUNTIF、COUNTIFSを使用しています。
そのなかで、下記のような場合の処理方法を教えてください!
1.IFとCOUNTIFSを使用し、Aが5点以上かつBが3点以上なら”◯” そうでなければ”×”
2.COUNTIFで”◯”の個数を数える
この際、いくつかの”◯”のフォントを赤色にした場合、すべての”◯”のうち赤色の”◯”を抜いた個数を求めたいです。
「求めたい数(”◯”の数)=COUNTIFで求めたすべての”◯”の個数ー赤色の”◯”の個数」
他の方の質問や回答を拝見し、VBEを使用し色付きの文字をカウントするところまではできたのですが
色で識別しているため、”◯”と”×”の区別ができません。
VBEを使用し、ユーザー定義関数等で求める方法はないでしょうか?
プログラミングにも挑戦していますが、苦戦してしています。
よろしくお願いします。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_08.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
ユーザー定義関数の一例です。
標準モジュールに下記コードを書いておき
表の方で =CRCount(A1:A10) とすると、
A1~A10の中でフォント赤で値が○のセルの個数が表示されます。
Function CRCount(wr As Range) As Long
Dim r As Range
CRCount = 0
For Each r In wr
If r.Font.ColorIndex = 3 And r.Value = "○" Then
CRCount = CRCount + 1
End If
Next r
End Function
回答ありがとうございます!
回答いただいた内容で解決できました!
連日苦戦していたのに、ここに載せたら数時間で解決。
本当にみなさんのおかげです!
ありがとうございました。
勝手ながらベストアンサーに選ばせてもらいました。
No.1
- 回答日時:
すでに色付きの個数はカウントできているのですよね?
その中で、IF文で色付きの判定を行なっていると思われますが、それにANDで○の条件を追加すれば、いけそうな気がします。
さぶろーさんが書いたらコードが分からないので具体的なサンプルはご提示できませんが、もし、わからない場合は、プログラムコードを補足に上げてみて下さい。
回答ありがとうございます!
補足を作成している間に他の方が回答してくださり解決できました。
次回ははじめにコードを載せるなど配慮したいと思います。
連日苦戦していたので、早速回答が来て心強かったです!
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Excel(エクセル) If関数に関する質問です。(再掲) 3 2022/10/01 20:51
- Excel(エクセル) EXCEL 複数の条件に合致する個数を求めるには? 3 2022/04/19 16:39
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Excel(エクセル) Excelの空文字判定について 7 2023/01/06 13:25
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- その他(プログラミング・Web制作) COBOL数値転記をCOPY句内での仕様 6 2022/06/15 18:48
- 数学 数学の質問です。 以下の2つの例題を①②と分けます。 ①2/4×2/4ではない理由。 ②0は分母が1 2 2023/07/05 15:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
至急!尿検査前日にオナニーし...
-
EXCELで条件付き書式で空白セル...
-
甲状腺が腫れているが血液検査...
-
勃起する時って痛いんですか? ...
-
尿検査前日に自慰行為した時の...
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
小数点以下を繰り上げたものを...
-
MIN関数で空白セルを無視したい...
-
中出しをするとお腹が痛い・・・。
-
EXCELで式からグラフを描くには?
-
【Excelで「正弦波」のグラフを...
-
ある範囲のセルから任意の値を...
-
エクセルのグラフで、値0のとき...
-
リンク先のファイルを開かなく...
-
これって喉仏ですか? 私は女性...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報
検索範囲の中に赤と黒の◯と×が混在しているなかで、赤の◯の個数を求めたいということです。
使用しているVBEのコードです。
他の方の記事を参考に入力しました。
-----
Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
'赤は3,緑は4,青は5,黄は6
Dim myCell As Range
For Each myCell In targetRange
If myCell.Font.ColorIndex = intColor _
Or myCell.Interior.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
End If
Next
End Function
-----
ワークシート側で
=SpecialCell(A1:E5,3)+NOW()*0