忙しいところすいません。
色付きセルの値を合計するマクロ関数をチャットGPTで見つけてためしたのですが、上手くいきません。
Function SumColoredCells(pRange As Range) As Double
Dim cel As Range
Dim total As Double
For Each cel In pRange If cel.Interior.ColorIndex <> xlNone Then
total = total + cel.Value
End If
Next cel
SumColoredCells = total
End Function
= SumColoredCells(a1:c10)
答えは #NAME?となります。
忙しいところすいませんが、教えてもらえませんか?。
EXCEL2013ではむりなんでしょうか?。
No.3
- 回答日時:
問題なく動作しますよ。
ブック内に保存するなら、ブックの標準モジュールを用意して
そこの記述します。
使用したいシートに戻り、数式バーに=sumと記載すると、一覧に
SumColoredCellsが表示されるので、これを選択。
=SumColoredCells(A1:C10)
として記載すれば、色付きセルの合計が出ます。
No.2
- 回答日時:
もしかして、マクロ有効ブックになっていないのではないでしょうか?
マクロを実行するにはExcelファイルをマクロ有効にする必要があります。
もしそうであれば、いったんExcelブックを「名前を付けて保存」してください。
ファイル名を入力するダイアログが出ると思いますが、このときにマクロ有効ブック(拡張子がxlsm)に変更することができます。
No.1ベストアンサー
- 回答日時:
当方365のExcelですが、問題なく動くことを確認しました。
Excel2013はサポートも切れていますので更新されることをお勧めします。
ちなみに、chatGPTで作成されたのであれば、あなたの質問文をそのままchatGPTに聞いてみてはいかがでしょう?私が試したところ、明確な答えが返ってきましたよ。
⇩以下、ChatGPTの答え
おっしゃる通り、この関数をExcel 2013で実行すると、#NAME?というエラーが発生する可能性があります。これは、関数内で使用されているxlNoneが定義されていないためです。xlNoneは、Excel VBAの定数であり、他のバージョンのExcelでは自動的に定義されますが、Excel 2013では定義されていません。
このエラーを解決するには、代わりに0を使用して条件分岐を実行することができます。すなわち、以下のように関数を修正することができます。
Function SumColoredCells(pRange As Range) As Double
Dim cel As Range
Dim total As Double
For Each cel In pRange
If cel.Interior.ColorIndex <> 0 Then
total = total + cel.Value
End If
Next cel
SumColoredCells = total
End Function
この修正を行うと、関数が正常に動作し、指定されたセル範囲内の色のついたセルの値の合計が返されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excel2013 色付きセルの値合計 4 2023/02/28 12:53
- Excel(エクセル) エクセルで書式設定とフィルタの組み合わせでうまく行かないのですが 4 2022/10/07 10:02
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
尿検査の前日は自慰控えたほう...
-
腕を見たら黄色くなってる部分...
-
中出しをするとお腹が痛い・・・。
-
これって喉仏ですか? 私は女性...
-
EXCELで式からグラフを描くには?
-
口の中に黒い血の塊
-
精子が黄色?
-
納豆食べた後の尿の納豆臭は何故?
-
舌の裏の痛みのないプツプツの...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
-
甲状腺腫れ
-
2つの数値のうち、数値が小さい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報
ありがとうございます。excel2013では教えて貰ったものを貼り付けて実行してみましたが、同じ結果になりました。#NAME? 前のままです。