パソコン困りごと掲示板

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

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

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


▲このページのトップに戻る
440108Re:エクセルのＣＯＵＮＴＩＦ関数について酢吉 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:エクセルのＣＯＵＮＴＩＦ関数についてtmkana 2008/02/15-22:51

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

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

▲このページのトップに戻る
440220Re:エクセルのＣＯＵＮＴＩＦ関数について酢吉 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:エクセルのＣＯＵＮＴＩＦ関数について」で書きました。

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

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

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

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

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



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

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

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