![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?8acaa2e)
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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
-
4
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
5
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
6
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
ExcelVba 有効なセルかどうかを判定するには
Visual Basic(VBA)
-
9
Excel(VBA)
Excel(エクセル)
-
10
エクセル キャッシュメモリーの解放
Visual Basic(VBA)
-
11
VBAで配列の計算
Excel(エクセル)
-
12
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
13
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
14
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
15
Excelで可視セルの行番号取得
Visual Basic(VBA)
-
16
プロシージャ名の取得
Visual Basic(VBA)
-
17
画像を削除したい(VBA)
Word(ワード)
-
18
Excel VBA ワークシートに貼られたボタン名(Caption)をセルの値から取得するには
その他(プログラミング・Web制作)
-
19
With~EndWithの省略部分と引数指定について
Visual Basic(VBA)
-
20
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft365搭載Windows11PCへ...
-
Officeを開くたびの「再起動メ...
-
一太郎でカーソルを次の行の先...
-
英数字のみ全角から半角に変換
-
現在、PC2台でMicrosoft 365 Pe...
-
エクセルやワードを無料で使え...
-
Microsoft Formsの「個人情報や...
-
パソコン買い換え Office移行 ...
-
エクセルで英文字に入れた下線...
-
大学のレポート A4で1枚レポー...
-
excelの画面のグリッド線の消滅。
-
エクセルの貼り付け「リンクさ...
-
outlookで宛先が異なるメールを...
-
Excel 日付を比較したら、同じ...
-
office365って抵抗感ないですか?
-
会社PCのメールが更新されない
-
Microsoftにofficeアプリについ...
-
Office 2021 Professional Plus...
-
Windows 11で、IME言語バー(IM...
-
Office2021を別のPCにインスト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
「生産性ソフトウェア」とは何...
-
会社PCのメールが更新されない
-
【関数】○年○ヶ月と表示された...
-
WEBの記事を印刷する際にA...
-
エクセルでXLOOKUP関数...
-
Microsoft familyに追加されま...
-
会社のOutlookにてメールを予約...
-
Microsoft Formsの「個人情報や...
-
Microsoft365の一部を解約したい
-
マクロ自動コピペ 貼り付ける場...
-
Outlook で宛先が複数の場合の人数
-
outlookのメールが固まってしま...
-
【Excel VBA】PDFを作成して,...
-
大学のレポート A4で1枚レポー...
-
office365って抵抗感ないですか?
-
Microsoftにofficeアプリについ...
-
Excel テーブル内の空白行の削除
-
マイクロソフト 一時使用コード...
おすすめ情報