すべてのカテゴリ » インターネット・パソコン » ソフトウェア » ソフトウェア全般

質問

終了

エクセルで色付きセルの数をカウントしたいのですが、方法はありますか?

  • 質問者:エクセル
  • 質問日時:2009-11-16 21:17:31
  • 1

下記の3つは共にセル色の取得方法を説いているのですが、
どうやら色を取得するためのサブルーチンを用意しないといけないようです。

http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html
http://www.kashikasuishin.com/003/0023.html
http://www2.c-guide2.com/post_19.html

そのルーチン内でセルの色を取得した値と特定の数えたい色とを比較、
もしくは特定の色以外のセルの特だけカウントするといった方法しないといけないのでは
と考えられます。
特定の色を指定する際は、RGB関数を利用することになりそうですね。

よって、色(白)以外の場合をカウントするなら
If SubGetColor(セル) <> RGB(255, 255, 255) Then
iCount = iCount + 1
End If

Function SubGetColor(objCell As Range) As Integer
 Application.Volatile
 SubGetColor = objCell.Interior.ColorIndex
End Function
といった具合でしょうかね。

今はもうエクセルを持っていないので、実際には検証できないのが残念です。

  • 回答者:Dim (質問から29分後)
  • 0
この回答の満足度
  
とても参考になり、非常に満足しました。回答ありがとうございました。

並び替え:

できなくはありませんが、めんどうではありませんか?
セルを飛んで他のセルのカウントなら、「コントロール」キーで範囲内計算(式)をすれば楽ですよ。

  • 回答者:匿名 (質問から46分後)
  • 0
この回答の満足度
  
とても参考になり、非常に満足しました。回答ありがとうございました。

数が分かればいいのなら、全データを削除した物をHTMLで保存して、正規表現でcolorタグをカウントすれば可能だと思う。
Excelのみでもマクロで可能だと思うけどVBAは知らないので。

  • 回答者:匿名希望 (質問から22分後)
  • 0
この回答の満足度
  
とても参考になり、非常に満足しました。回答ありがとうございました。

関連する質問・相談

Sooda!からのお知らせ

一覧を見る