エクセルに関する質問

締切済

質問者：nt-tommy
質問日時：2009/11/07 21:28
回答数：2件

エクセルに関する２つの質問です。

・右にスクロールしたときに、画面左方に表示されていたセル（列）を固定して表示（スクロールしてもその選択した列だけは表示されている状態）することってできますか？

・色のついたセルの数をカウントってできますか？
一つの列の中に色のついたセルが何個あるか？をカウントしたいのですが…。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： Niwatori-Sanpo
回答日時：2009/11/08 19:34

＞どうやって起動したらいいかわからないのですが…

　バージョン 2007 の場合は「ツール」メニューが無いんですよね。

　オイラの Excel 2007 では次のような手順になりますが、恐らく質問者
さんの Excelでも同じだと思います。

　「表示」メニュー　→　「マクロ」アイコン　→　「マクロの表示」を
クリックして「マクロ名」の入力ボックスに任意の名前（例えば「色付き
セルをカウントするマクロ」など）を入力して「作成」ボタンをクリック
すると、VBA の入力・編集画面になります。

　しかし、「Alt」＋「F11」キーの同時押しというショートカットの方が
早く起動できるでしょう。

　さて、「=GET.CEL関数」以外にも既に回答は出ていますが、折角だから
以前オイラが利用していたマクロも紹介しておきますね。

　その編集画面に、例えば下の★解その１に続く波線内の記述を挿入して
画面を終了（VBA 編集画面を閉じれば勝手に保存されるらしい）し…、

★解その１　（波線内はコピー＆ペースト可能）
------------------------------------------------------------------
Function SpecialCell(targetRange As Range, _
intColor As Integer) As Integer
'赤は3，緑は4，青は5，黄は6
Dim myCell As Range

For Each myCell In targetRange
If myCell.Font.ColorIndex = intColor _
Or myCell.Interior.ColorIndex = intColor Then
SpecialCell = SpecialCell + 1
End If
Next
End Function
------------------------------------------------------------------

　次に元のワークシートに戻って、カウント結果を表示させたいセルに…

赤字のカウントは =SpecialCell(A1:E5,3)
青字のカウントは =SpecialCell(A1:E5,5)
黄字のカウントは =SpecialCell(A1:E5,6)

　…などと入力すれば色文字（或いは塗りつぶし）セルのカウント結果が
得られるはずです。

　ただし、フォントの色が黄でセルの塗りつぶし色が青などという場合は
どちらにもカウントされてしまうので注意が必要です。

　☆参考：ブックの標準カラーパレットのインデックス番号
　　（ＶＢエディタのヘルプにて「ColorIndex」を検索、参照した）

　　１　黒　　　２　白　　　３　赤　　　４　黄(薄)緑　５　青
　　６　黄　　　７　桃色　　８　水色　　９　茶色　　　10　緑
　　11　紺　　　 (濃い緑)

以下、全部で　～　56　まであるようです。

★解その２（参考）　（同じくコピー＆ペースト可能）
------------------------------------------------------------------
Function ColoredCell(rngArg As Range, rngSample As Range) As Long
For Each c In rngArg
If c.Interior.ColorIndex = rngSample.Interior.ColorIndex Then
ColoredCell = ColoredCell + 1
End If
Next
End Function
------------------------------------------------------------------
↑使う際には「=ColoredCell(A1:A10,A5)」というように、第１引数には
数えたい範囲を、第２引数には指定する色が存在するサンプルセルのセル
番地を当てましょう。
　（カラーパレットのインデックス番号では参照エラーになるみたい）