A B C D
1 山田 岡田 坂本
2 国語 80 90 70
3 数学 80 80 80
4 理科 50 60 70
5 社会 30 50 10
6 英語 40 60 50
教科ごとに最高点を取った者のセルを色付けし、
個人ごとに色付けしたセルの個数を数えたいと思っています。
教科ごとに色付けするまでは条件付き書式で設定し、VBAで色付けのセルをカウントさせようと
思いましたが、条件付き書式で色付けしたセルはカウントしないことを知りました。
結果的には、最高点を取った教科の数を数えたいので、
COUNTIFを用いてみようと試み
=COUNTIF(B2:B6,”MAX(B2:D2)")
と書いてみましたが、うまくいきません。
ご指南いただけないでしょうか。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
こんばんは!
お使いのバージョンがExcel2010以降であれば、条件付き書式の色もVBAで判定できます。
数式を拝見するとデータは2行目~6行目のようなので、
B列以降、8行目に色付きセルの数を表示するようにしてみました。
Sub Sample1()
Dim i As Long, j As Long, cnt As Long
For j = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To 6
If Cells(i, j).DisplayFormat.Interior.ColorIndex <> xlNone Then
cnt = cnt + 1
End If
Next i
Cells(8, j) = cnt
cnt = 0
Next j
End Sub
※ セルが何色に塗りつぶされていても(複数色であっても)カウントされます。m(_ _)m
VBAを勉強して内容を理解しなきゃいけないんですが、
教えていただいたものをコピペすると簡単にカウントできました!
ありがとうございました。
No.2
- 回答日時:
作業用のセルを用意すれば簡単です。
条件付きセルと同じものを別のセルに記載します。
=B2=MAX($B2:$D2)
個人別に結果がTRUEになったセルをカウントします。
=COUNTIF(B8:B12,TRUE)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Excel(エクセル) 条件付き書式の色付きセルのカウント方法について 2 2022/10/21 14:51
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Excel(エクセル) 重複しているか否かをソートせずに判断する方法ありますか? 2 2022/07/06 21:16
- Excel(エクセル) 【Excel質問】 「本日の日付」から指定条件を満たす営業日経過後の日数を表示させる関数式 3 2022/06/06 23:28
- Excel(エクセル) エクセルの条件付き書式 3 2022/05/08 03:17
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでハイパーリンクのコピー
-
エクセルのセル内で改行コピー...
-
エクセルでセル内改行の1行目...
-
【Excel】 色の一致するセル数...
-
エクセル 行も列もバラバラの入...
-
結合されたセルの一部を変更す...
-
エクセル 0:00 の時間をカウン...
-
Excel vba 毎月の第○ △曜日を求...
-
VBA ダブルクリックでセルの真...
-
エクセルの結合セル内に文章を...
-
PowerPointの表内のカンマ
-
EXCELでタイトル行と一番下の行...
-
エクセルの計算式でコンマを付...
-
INDEXとMATCH関数で#N/Aが出る...
-
名簿の漢字名を関数で半角カナ...
-
LINEのこの空白ってどんな意味...
-
【VBA】PDF出力に任意のファイ...
-
EXCELで縦の行全てに一括して文...
-
セル上に表示された見かけ上の...
-
Wordの差し込み印刷で空白行が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでハイパーリンクのコピー
-
エクセルでセル内改行の1行目...
-
結合されたセルの一部を変更す...
-
エクセル 0:00 の時間をカウン...
-
【Excel】 色の一致するセル数...
-
エクセルの結合セル内に文章を...
-
エクセルのセル内で改行コピー...
-
アクティブセルとそのセルに隣...
-
エクセルで 来年の曜日の自動設定
-
VBAからのHYPERLINK関数のアド...
-
Word文書にパスワードをマクロ...
-
Excel vba 毎月の第○ △曜日を求...
-
エクセル 行も列もバラバラの入...
-
VBA セル内で改行またはカンマ...
-
Excel セル貼り付けができません
-
エクセルで納期遅れのセルを色...
-
エクセルのセルの右下の角の十...
-
Excel VBAで可視セルをコピーし...
-
MSNメッセンジャーにエクセルか...
-
エクセルVBAで外部ソフトFFF...
おすすめ情報