エクセルのCOUNTIF関数について



 ◇-?エクセルのCOUNTIF関数について-tmkana(初)-PC初心者-02/14-23:30(143)-No.440082
   ┣?!Re:エクセルのCOUNTIF関...-酢吉-02/15-09:58(133)-No.440108
   ┃ ┗?!【ありがとう】Re:エクセルのC...-tmkana-02/15-22:51(120)-No.440181
   ┃   ┗?!A!Re:エクセルのCOUNTIF...-酢吉-02/16-10:20(108)-No.440220
   ┃     ┗?!A!【解決】助かりました...-tmkana-02/17-01:12(94)-No.440281
   ┗?!Re:エクセルのCOUNTIF関...-さーや-02/15-17:53(125)-No.440151
     ┗?!【ありがとう】ありがとうござい...-tmkana-02/15-22:56(120)-No.440182

▲このページのトップに戻る
440082エクセルのCOUNTIF関数についてtmkana(初)-PC初心者 URL2008/02/14-23:30

メーカー名:富士通
OS名:WindowsVista
パソコン名:BIBLO NF70X
ソフト関連:表計算Excel
使用回線:ADSL
--
http://pasokoma.jp/bbs6/lg121789.html からの引き続きの質問
(似た現象に陥っており質問をする場合も含みます)

指定した範囲内において、フォントの色が赤色の個数を表示するための関数はあるのでしょうか。
COUNTIFを使おうと思ったのですが、できません・・・教えてください。


▲このページのトップに戻る
440108Re:エクセルのCOUNTIF関数について酢吉 2008/02/15-09:58

記事番号440082へのコメント
私だったらこうするってことで

Sub aka_sagasu()
Dim col0, low0 As Long
Dim col1, low1 As Long
Dim L, C As Long
Dim A As Long

col0 = 1 '範囲の起点になる列番号
low0 = 1 '範囲の起点になる行番号
col1 = 5 '範囲の終点になる列番号
low1 = 10 '範囲の終点になる行番号
A = 0
With ThisWorkbook.Worksheets("Sheet1")

For L = low0 To low1
For C = col0 To col1
If .Cells(L, C).Font.ColorIndex = "3" Then
A = A + 1
Else
End If
Next C
Next L

MsgBox A

End With
End Sub

▲このページのトップに戻る
440181Re:エクセルのCOUNTIF関数についてtmkana 2008/02/15-22:51

記事番号440108へのコメント
酢吉さんは No.440108「Re:エクセルのCOUNTIF関数について」で書きました。

すごーい。ありがとうございます。
贅沢を言うならこの表示した数字を指定したセルに自動で入力されるようにしたいのですが、併せて教えてください。

▲このページのトップに戻る
440220Re:エクセルのCOUNTIF関数について酢吉 2008/02/16-10:20

記事番号440181へのコメント

Sub aka_sagasu()
Dim col0, low0 As Long
Dim col1, low1 As Long
Dim L, C As Long
Dim A As Long

col0 = 1 '範囲の起点になる列番号
low0 = 1 '範囲の起点になる行番号
col1 = 5 '範囲の終点になる列番号
low1 = 10 '範囲の終点になる行番号
A = 0
With ThisWorkbook.Worksheets("Sheet1")

For L = low0 To low1
For C = col0 To col1
If .Cells(L, C).Font.ColorIndex = "3" Then
A = A + 1
Else
End If
Next C
Next L

.Range("F1") = A 'セルF1にAを代入
End With
End Sub
-------------------------
いま試しに走らせる環境がないのですけど・・・
ワークシートのSelectionChangeイベントにこのモジュールを記述すればいいんじゃ
ないかと思いますが、もしかするとうまくいかないかもしれませんので
実験用シート作っていろいろ試してみてください。

▲このページのトップに戻る
440281助かりましたtmkana 2008/02/17-01:12

記事番号440220へのコメント
酢吉さんは No.440220「Re:エクセルのCOUNTIF関数について」で書きました。

本当にありがとうございます。
助かりました。
私なりに勉強していきますが、また行き詰ったら、よろしくお願いします。

▲このページのトップに戻る
440151Re:エクセルのCOUNTIF関数についてさーや 2008/02/15-17:53

記事番号440082へのコメント
tmkana(初)-PC初心者さんは No.440082「エクセルのCOUNTIF関数について」で書きました。

上の方も書かれていますが、

残念ながらExcelの関数には文字色を取得するものは無いようです。
VBE(マクロと呼ばれます)で取得することはできそうですが・・・



▲このページのトップに戻る
440182ありがとうございます。tmkana 2008/02/15-22:56

記事番号440151へのコメント
さーやさんは No.440151「Re:エクセルのCOUNTIF関数について」で書きました。

ありがとうございます。
VBEって便利そうですね。
勉強してみます。
また、いろいろ教えてください。

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言