No.4ベストアンサー
- 回答日時:
こんにちは。
ユーザー定義関数で作ってみました。Ver4 マクロ関数で十分だと私は思いますが、Ver 4 マクロ関数ではケシカランというような方?は、以下のようなVBAでの解決方法が便利かなって思います。
VB Editor の標準モジュールに貼り付けてください。(挿入-標準モジュール)
なお、一般のブックの標準モジュールのユーザー定義関数に、Public キーワードをつけたところで、グローバル関数になるわけではありませんので、もしその点に不安のある方は、マニュアル等で、確認されたほうがよいかもしれませんね。
なお、以下は、引数のインデックスに0を入れると、配列出力するようにしてあります。
'------------------------------------
Function ColorCellCount(範囲 As Range, Optional インデックス As Integer = 1, Optional パターン As Integer = 0)
Dim myRng As Range
Dim myIndex As Integer
Dim myPattern As Integer
Dim myColor() As Integer
Dim Ret() As Double
Dim c As Range
Dim i As Long
Dim j As Long
Set myRng = 範囲
myIndex = インデックス
myPattern = パターン
For Each c In myRng
On Error Resume Next
If myPattern = 0 Then
i = WorksheetFunction.Match(c.Interior.ColorIndex, myColor, 0)
Else
i = WorksheetFunction.Match(c.Font.ColorIndex, myColor, 0)
End If
If i = 0 Then
ReDim Preserve myColor(j)
ReDim Preserve Ret(j)
If myPattern = 0 Then
myColor(j) = c.Interior.ColorIndex
Else
myColor(j) = c.Font.ColorIndex
End If
Ret(j) = 1
j = j + 1
On Error GoTo 0
Else
Ret(i - 1) = Ret(i - 1) + 1
End If
Next
If myIndex <= 0 Then
ColorCellCount = Ret()
ElseIf myIndex > UBound(Ret) + 1 Then
ColorCellCount = Ret(UBound(Ret()))
Else
ColorCellCount = Ret(myIndex - 1)
End If
Set myRng = Nothing
End Function
ワークシート上での使い方は、
A列
色付き
色なし
色なし
色付き
色付き
=ColorCellCount(A1:A5, 1 )
とすれば、上から数えて、1番目の色のセルの数が出ます。
=ColorCellCount(A1:A5, 2 )
を入れれば、色なしのセルの数が出ます。
=SUMPRODUCT(ColorCellCount(A1:A5, 0 ))
とすれば、全部の合計が出ます。
なお、
=ColorCellCount(A1:A5,1,1)
とすれば、文字の色を数えます。
ありがとうございます。
早速やってみました。これは便利ですね。
基本的な質問で申し訳ございませんが、
教えてください。
表の複数列を選択した場合の式は
=ColorCellCount(A1:B5, 1 )
↑
ここに何を入れればよいのでしょうか?
例えばA3の色をカウントしたい時は・・・
A列 B列
色なし 色なし
色なし 色なし
色付き 色付き
色付き 色なし
色なし 色付き
No.5
- 回答日時:
こんにちは。
>表の複数列を選択した場合の式は
>=ColorCellCount(A1:B5, 1 )
> ↑
>ここに何を入れればよいのでしょうか?
A列 B列
色なし 色なし ←1
色なし 色なし
色付き 色付き ←2
色付き 色なし
色なし 色付き ←2 (もし色が違えば、3になります)
=ColorCellCount(A1:B5, 1 )
↑
これは、色を取得していった順番です。
色番号とか指定する方法は、結構面倒だったわけですからね。これは、今まで、他に考えた人がないので、ユニークだと思っています。(^^Y
Wendy02さん、すごい!
ありがとうございました。できました!
Wendy02さんの様にPCが使いこなせたら怖いものなしですね。とても楽しそう♪
また、考えても、調べても分からない事があったら質問させていただくかもしれません。その時はどうぞよろしくお願いいたします。
この度はご丁寧に教えていただきありがとうございました。
No.3
- 回答日時:
色情報を取得する関数は見当たりませんねぇ(--)。
ユーザ定義関数を作れば出来るそうっすよ。ttp://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html
No.2
- 回答日時:
色のついたセルの個数を数える関数はないと思います。
しかし、以下の方法で、数えることができます。
なお、セル範囲をA1:A100と仮定します。
B1をアクティブセルとして、B1:B10を選択します。
[挿入]-[名前]-[定義]で、[名前]に「color」、
[参照範囲]に「=GET.CELL(63,A1)」と入力して、[OK]。
B1をアクティブセルとして、B1:B10を選択した状態で、
「=color」を入力して、[Ctrl]+[Enter]。
(B1:B10に「=color」が一括入力され、数値が表示されるハズです。)
適当なセルに「=COUNTIF(B1:B10,"<>0")」と入力して、[Enter]。
色のついたセルの個数が表示されます。
ご回答ありがとうございます。
教えて頂いたとおりにやってみたつもりなのですが、エラーがでてしまいどうも上手くいきません・・・。
せっかく教えていただいたのに、私の勉強不足で申し訳ありません。
この度はありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル関数の質問 5 2022/04/20 09:46
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルで教えて下さい。 2 2022/05/18 13:00
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) エクセルの関数について 5 2023/04/30 17:24
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- Excel(エクセル) エクセルでセルに数式を入力した状態で、数式バーをクリックすると添付資料のように 「数式に関連するセル 2 2022/11/25 19:36
- Excel(エクセル) エクセル関数 3 2022/04/20 11:57
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで休日の「休」という...
-
EXCELで縦の行全てに一括して文...
-
エクセルVBAの記述法(Workshee...
-
EXCEL 連動したドロップダウン...
-
エクセルで空白に自動で文字を...
-
エクセルでエンターを押すと隣...
-
エクセルで決められた合計にな...
-
Excelでセルを次の行の先頭の列...
-
空白部分に連番の数字を記入し...
-
PowerPointの表内のカンマ
-
LINEのこの空白ってどんな意味...
-
EXCELでタイトル行と一番下の行...
-
【VBA】PDF出力に任意のファイ...
-
latexで、行の先頭に空白を入れ...
-
エクセルで囲み線で出来ますか?
-
エクセルの表示(標準と数値の...
-
結合されたセルの一部を変更す...
-
【大至急】 Excel数字が入って...
-
エクセルで深夜勤務の時間計算
-
エクセルの結合セル内に文章を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのテーブル上のセルの保護...
-
EXCEL 連動したドロップダウン...
-
名簿の漢字名を関数で半角カナ...
-
エクセルでエンターを押すと隣...
-
【エクセル】入力規則のプルダ...
-
Excelで50個のセルに同じ文字を...
-
エクセルで行の一番上にセルに...
-
EXCELで縦の行全てに一括して文...
-
エクセルで決められた合計にな...
-
エクセルで休日の「休」という...
-
エクセルで空白に自動で文字を...
-
Excelでセルを次の行の先頭の列...
-
オートフィルを列すべて(一番...
-
空白部分に連番の数字を記入し...
-
エクセルのオートフィル機能で...
-
エクセルで既存数値を税抜きに...
-
EXCELのNOW()関数の...
-
指定した行に飛ぶ事って可能で...
-
A1 B1 A2 B2 A3 B3 の順に入力...
-
Excelで数値をgからkgへ(÷1000)
おすすめ情報