エクセルのＣＯＵＮＴＩＦ関数について

 ◇-?エクセルのＣＯＵＮＴＩＦ関数について-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

「何か一言」を書く Facebookコメントができます

▲このページのトップに戻る

440082	エクセルのＣＯＵＮＴＩＦ関数について	tmkana(初)-PC初心者 URL	2008/02/14-23:30
メーカー名：富士通 OS名：WindowsVista パソコン名：BIBLO NF70X ソフト関連：表計算Excel 使用回線：ADSL -- http://pasokoma.jp/bbs6/lg121789.html からの引き続きの質問 (似た現象に陥っており質問をする場合も含みます) 指定した範囲内において、フォントの色が赤色の個数を表示するための関数はあるのでしょうか。 COUNTIFを使おうと思ったのですが、できません・・・教えてください。

▲このページのトップに戻る

440108	Re:エクセルのＣＯＵＮＴＩＦ関数について	酢吉	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

▲このページのトップに戻る

440181	Re:エクセルのＣＯＵＮＴＩＦ関数について	tmkana	2008/02/15-22:51
記事番号440108へのコメント酢吉さんは No.440108「Re:エクセルのＣＯＵＮＴＩＦ関数について」で書きました。すごーい。ありがとうございます。贅沢を言うならこの表示した数字を指定したセルに自動で入力されるようにしたいのですが、併せて教えてください。

▲このページのトップに戻る

440220	Re:エクセルのＣＯＵＮＴＩＦ関数について	酢吉	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:エクセルのＣＯＵＮＴＩＦ関数について」で書きました。本当にありがとうございます。助かりました。私なりに勉強していきますが、また行き詰ったら、よろしくお願いします。

▲このページのトップに戻る

440151	Re:エクセルのＣＯＵＮＴＩＦ関数について	さーや	2008/02/15-17:53
記事番号440082へのコメント tmkana(初)-PC初心者さんは No.440082「エクセルのＣＯＵＮＴＩＦ関数について」で書きました。上の方も書かれていますが、残念ながらExcelの関数には文字色を取得するものは無いようです。 VBE(マクロと呼ばれます)で取得することはできそうですが・・・

▲このページのトップに戻る

440182	ありがとうございます。	tmkana	2008/02/15-22:56
記事番号440151へのコメントさーやさんは No.440151「Re:エクセルのＣＯＵＮＴＩＦ関数について」で書きました。ありがとうございます。ＶＢＥって便利そうですね。勉強してみます。また、いろいろ教えてください。

パソコントラブル解決・過去ログTOP > ログTOP > エクセルのＣＯＵＮＴＩＦ関数について

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

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