No.2
- 回答日時:
#01です。
#VALUE!エラーですか? 色の問題ではないと思います。該当する色のシェイプが全くない場合は結果が0になり、#VALUE!エラーにならないのですが…
ユーザ関数を入力したセルを選択してF2で編集モードにして、Enterを押下したら正しく計算されませんか?
色番号はパレットの変更をしているとPC毎に変わる可能性があるので、「ツール」→「マクロ」→「新しいマクロの記録」→「シートのシェイプの色を塗る」→「ツール」→「マクロ」→「マクロ記録の停止」を実行し、ALT+F11でVBE画面を開き「標準モジュール」に書かれた番号を見のが一番確実な方法です。
No.1ベストアンサー
- 回答日時:
シート上の指定された色のオートシェイプ(丸)を数えるユーザ定義関数を作りました。
=CountOval(13)
のように使用します。( )内の数字は色を示す数値です。黄色:13、青:12、赤:10です。
マクロはALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい
Private Function CountOval(clr As Integer) As Integer
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShapeOval And _
shp.Fill.ForeColor.SchemeColor = clr Then
CountOval = CountOval + 1
End If
Next shp
End Function
もし丸以外のシェイプも一緒に数えたいなら
If shp.AutoShapeType = msoShapeOval And _
shp.Fill.ForeColor.SchemeColor = clr Then
を
If shp.Fill.ForeColor.SchemeColor = clr Then
にしてください。
この回答への補足
すみません。
作っていただいたこのマクロを、おっしゃるとおりに
VBE画面右側に出てきたウィンドウに貼り付け、
ワークシート画面に戻ってセルに『=countoval(13)』と入力したところ、『#VALUE!』と表示されてしまいました。
私の作ったオートシェイプの色と合っていないのでしょうか??
この色番号は、どこを見れば分かりますか?
お手数をお掛けしてしまい大変申し訳ございません・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) EXCELのセルへの色づけ 2 2023/06/07 01:22
- Excel(エクセル) Excelの関数詳しい方お願いします。 13 2023/01/18 21:11
- Excel(エクセル) 複数シートのデータ統合とレイアウトの維持についてです 2 2022/10/18 21:11
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) 条件付き書式の色付きセルのカウント方法について 2 2022/10/21 14:51
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) Excel ヘルプの[ロック解除]、<c0>、</c0> の意味は何ですか? 1 2023/02/20 16:58
- Excel(エクセル) excelのオートシェイプを使って 1 2023/01/03 16:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelのシート上のShapeにイベ...
-
フォルダ内にある全ファイルの...
-
Excelで数字を入れたら対応する...
-
エクセルのチェックボックス誤作動
-
エクセル シート内の一番下のセ...
-
自分の専門分野の仕事。初見で...
-
セルの一部分だけを太字にする方法
-
Excelでセル内の文字をファイル...
-
【エクセル】「実行時エラー’10...
-
エクセルで○をつけるマクロ設定
-
任意のセルでマクロを実行させたい
-
エクセルファイルを開いた回数...
-
エクセルのマクロ実行後にカー...
-
エクセルで複数のシートのクリ...
-
エクセルのワークシート(テン...
-
前月分を次月シートに繰越でき...
-
エクセルで検索バーのような表示
-
エクセル初心者です 日報(Excel...
-
エクセルで特定の行だけ行削除...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでのWorksheet_Change...
-
Excelで数字を入れたら対応する...
-
エクセルで複数のシートのクリ...
-
エクセルファイルを開いた回数...
-
Excelのシート上のShapeにイベ...
-
エクセルで特定の行だけ行削除...
-
長い時間かかるマクロが実行中...
-
エクセル シート内の一番下のセ...
-
【エクセル】フリーワード検索...
-
Excelでセル内の文字をファイル...
-
【エクセル】「実行時エラー’10...
-
シートではなくBOOK間で重複し...
-
フォルダ内にある全ファイルの...
-
EXCELのダイアログシートって、...
-
エクセル:セル内の文字列の最...
-
自分の専門分野の仕事。初見で...
-
セルの一部分だけを太字にする方法
-
エクセルで○をつけるマクロ設定
-
エクセル マクロ 一定時間おき...
-
Excelにて、同じ画像を複数のセ...
おすすめ情報