

2つの条件に合致する数量の合計を出したい為、sumproduct関数を使って計算結果を算出しようと考えています。
sumproduct関数を使った例をwebからいくつも見て下記モジュールを書きましたが、「ans」(sumproduct関数での計算結果部分)でローカルウィンドウに「エラー2015」が表示され結果が出ません。
(試しにセル上に直接、sumproduct関数を使って計算結果が出るか確認したところ、結果表示されます。)
「"」や「&」の付け方に問題があるかと思い、いろいろなパターンで試しましたが同様です。
修正記述がお分かりの方がいらっしゃいましたら、お言葉をいただけると幸いです。
宜しくお願いいたします。
------------------------
Sub culiturate()
Dim str1, str2, str3 As Range
Rows("2:2").Select
cate = Selection.Find(what:="分類", lookat:=xlWhole).Column
SP = Selection.Find(what:="特記", lookat:=xlWhole).Column
kazu = Selection.Find(what:="数量", lookat:=xlWhole).Column
saigo = Cells(Rows.Count, cate).End(xlUp).Row
Set str1 = Range(Cells(3, cate), Cells(saigo, cate))
Set str2 = Range(Cells(3, SP), Cells(saigo, SP))
Set str3 = Range(Cells(3, kazu), Cells(saigo, unit))
ans = Evaluate("sumProduct((" & str1.Address & "=" & "2BB" & ") * (" & str2.Address & "=" & "7RR" & ")," & str3.Address & ")") '←ここでエラー2015になる
End Sub
No.2ベストアンサー
- 回答日時:
>「"」や「&」の付け方に問題があるかと思い、いろいろなパターンで試しましたが同様です。
そのとおりです、「"」の付け方に問題がありました
>ans = Evaluate("sumProduct((" & str1.Address & "=" & "2BB" & ") * (" & str2.Address & "=" & "7RR" & ")," & str3.Address & ")") '←ここでエラー2015になる
の
"sumProduct((" & str1.Address & "=" & "2BB" & ") * (" & str2.Address & "=" & "7RR" & ")," & str3.Address & ")"
の、部分を文字列で出力すると
sumProduct(($A$3:$A$5=2BB) * ($B$3:$B$5=7RR),$C$3:$C$5)
の様になり、エラー個所が見やすいと思います
sumProduct(($A$3:$A$5="2BB") * ($B$3:$B$5="7RR"),$C$3:$C$5)
とするためには
ans = Evaluate("sumProduct((" & str1.Address & "=" & """2BB""" & ") * (" & str2.Address & "=" & """7RR""" & ")," & str3.Address & ")")
と修正してください
他も修正してみたので、試してみて
Sub culiturate()
Dim str1 As String, str2 As String, str3 As String
Dim cate As Integer, SP As Integer, kazu As Integer, unit As Integer
Dim saigo As Long
Dim ans As Variant
cate = Rows("2:2").Find(what:="分類", lookat:=xlWhole).Column
SP = Rows("2:2").Find(what:="特記", lookat:=xlWhole).Column
kazu = Rows("2:2").Find(what:="数量", lookat:=xlWhole).Column
saigo = Cells(Rows.Count, cate).End(xlUp).Row
str1 = Range(Cells(3, cate), Cells(saigo, cate)).Address
str2 = Range(Cells(3, SP), Cells(saigo, SP)).Address
str3 = Range(Cells(3, kazu), Cells(saigo, unit)).Address
ans = Evaluate("sumProduct((" & str1 & "=""2BB"") * (" & str2 & "=""7RR"")," & str3 & ")") '←ここでエラー2015になる
MsgBox ans
End Sub
基本的な処理は変更していないので、これでエラーが出る場合は他に原因があると思います
変数str3をrangeからstringに変更してますが
次のEvaluate式を短くするために行っただけで
深い意味はありません
以上参考まで
hige_082様
回答ありがとうございます。
今回の原因は、範囲の変数の定義を各変数にしなかったことのようです。
(hige_082様が書いて下さったデバッグが起こる箇所の記述は、webで書込みをした記述以外で試したものでした。)
私が記述したもので、文字列にした場合の確認の仕方までふれて下さり、誤りが明確に分かりました。
アドバイスありがとうございます。
感謝します。
No.3
- 回答日時:
こんばんは。
#1で書いた、
「本当は、そのような数式を使わずに、セルひとつずつにループして計算するようにしたほうがよいです」
のコードを出して置きます。多少、スピードには難点がありますが、VBAらしさを求めても良いと思います。書き方によっては、もう少しスピードは上がります。
'-------------------------------------------
Sub Test2()
Dim rng As Range
Dim c As Range
Dim dbSum As Double
Const ARG1 As String = "2BB"
Const ARG2 As String = "7RR"
With ActiveSheet
Set rng = .Range("B3", .Range("B65536"))
End With
Application.ScreenUpdating = False
For Each c In rng
If c.Value = Trim(ARG1) And _
c.Offset(, 2).Value = Trim(ARG2) Then
dbSum = dbSum + c.Offset(, 3).Value
End If
Next c
Application.ScreenUpdating = True
MsgBox dbSum
End Sub
No.1
- 回答日時:
こんばんは。
VBAのプロシージャで、Evaluate の中では、配列も同じですから、SUMで良いのです。ただ、VBAの数式の配列を使うというのは、上級のレベルになりますから、本当は、そのような数式を使わずに、セルひとつずつにループして計算するようにしたほうがよいです。
× Set str3 = Range(Cells(3, kazu), Cells(saigo, unit)) 配列数式なのに、別の範囲を入れたらエラーが発生します。
Set str3 = Range(Cells(3, kazu), Cells(saigo, kazu))
本来は、Set str3 = Cells(3, kazu).Resize(saigo - 2) のように、Resize を利用したほうが確かです。
ans = Evaluate("SUM((" & str1.Address & "=""2BB"")*(" & str2.Address & "=""7RR"")*(" & str3.Address & "))")
Wendy02様
回答ありがとうございます。
誤りご指摘のstr3ですが、変数を誤って書いていました。
(「unit」を「kazu」に書き換えていたのですが、webでの投稿時に書き換えモレをしてしまいました。)
範囲の変数を省略せずに、各変数ごとに「as Range」と定義し、ansの「&」記述箇所を訂正したところ、計算結果が出るようになりました。
Wendy02様が案を出して下さったsum関数を使った式も、大変参考になるので有り難く思っています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) VBAで時間(00:00形式)を積算(足し算)したい 1 2022/11/15 17:04
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Excel(エクセル) マクロで特定日より1日前の日を求めたい 6 2022/05/08 09:23
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) 日付を重複させずに数えたい 4 2022/12/04 16:26
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) findメソッドの変数について 6 2023/06/23 08:01
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
今から楽しみな予定はありますか?
いよいよ2025年が始まりました。皆さんには、今から楽しみにしている予定はありますか?
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
VBA Evaluate関数 型が一致しません
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
-
4
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
5
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
12
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
13
VBAで文字を反映させると255文字の制限になってしまいます。
Visual Basic(VBA)
-
14
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
15
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
16
Excelでのセル内容の高速消去方法
その他(プログラミング・Web制作)
-
17
VBAでのExecuteExcel4Macroの値取得でエラー
Excel(エクセル)
-
18
VBAの再計算が反映されない件につきまして
Visual Basic(VBA)
-
19
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
20
Evaluateを使ってマクロに記述した関数に変数を使う方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
英数字のみ全角から半角に変換
-
マクロ1があります。 A1のセル...
-
Office 2021 Professional Plus...
-
マクロ自動コピペ 貼り付ける場...
-
【Excel VBA】PDFを作成して,...
-
office365って抵抗感ないですか?
-
会社PCのメールが更新されない
-
Microsoft Formsの「個人情報や...
-
teams設定教えて下さい。 ①ビデ...
-
outlookのメールが固まってしま...
-
エクセルで英文字に入れた下線...
-
Excelで〇のついたものを抽出し...
-
office2019 のoutlookは2025年1...
-
別シートの年間行事表をカレン...
-
Office2021を別のPCにインスト...
-
エクセルでXLOOKUP関数...
-
VBAファイルの保存先について
-
Microsoft 365 の一般法人向け...
-
エクセルマクロ(超初心者)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
英数字のみ全角から半角に変換
-
大学のレポート A4で1枚レポー...
-
【Excel VBA】PDFを作成して,...
-
マクロ1があります。 A1のセル...
-
Office 2021 Professional Plus...
-
マクロ自動コピペ 貼り付ける場...
-
会社PCのメールが更新されない
-
Microsoft Formsの「個人情報や...
-
エクセルでXLOOKUP関数...
-
Excel 日付を比較したら、同じ...
-
Office2021を別のPCにインスト...
-
office2019 のoutlookは2025年1...
-
パソコンを買い替える際、前の...
-
outlookのメールが固まってしま...
-
Excel テーブル内の空白行の削除
-
office365って抵抗感ないですか?
-
Office(H&B2016)を使用中に古...
-
Outlook で宛先が複数の場合の人数
-
teams設定教えて下さい。 ①ビデ...
おすすめ情報