VBでsumif関数を使いたい。

前提・実現したいこと

以下のソースでコンパイルエラーが解決出来ません。ご存知の方がいましたらご教授お願い致します。

発生している問題・エラーメッセージ

コンパイルエラー　
構文エラー

該当のソースコード

ソースコード
Sub pv_sum()
    Dim sum1 As Long
    sum1 = SumIf(データセット1!A2:A11," / "&カテゴリ!B3&" * ",データセット1!B2:B11)
End Sub

試したこと

上記コードを実行すると、どうしてもsumif関数の行で止まってしまいます。

補足情報（FW/ツールのバージョンなど）

VBAバージョン7.1

m.ts10806

2019/02/21 16:16

タイトルとタグだけ見た時に「ん？」となります。言語名など決まっている名前はなるべく正確に記載願います。

kuekueee--ww

2019/02/21 16:26

失礼しました。 VBAのコードで、sumif関数のコンパイルエラーが解決できません。というタイトルのほうが良かったでしょうか？

m.ts10806

2019/02/21 16:28

タグにある内容は含めなくてもつながるのでSumIf関数のことだけを書いてもいいかもしれません（既に回答はしていますが）質問は編集できますので適宜ご対応ください。

jawa

2019/02/22 02:10

VBとVBAは似て非なるものですので、VBAタグなのにタイトルがVBだと「ん？」となる、ということです。言語がVBAであることはタグや質問本文でわかることなので、それを含めるかどうかは質問者さんの自由というか、わかりやすければどちらでもいいのですが、「VB」はちょっと違うかな？とういことですね。

行動規範の内容に同意します

回答3件

VBAはセル関数の書式そのままで使えるわけではありません。

VBAでセル関数を使うには、WorkSheetFunctionオブジェクトのメンバーとして呼ぶ必要がありますし、各関数の引数もセル(範囲)を指定する場合は、セル範囲を示す文字列ではなく、Rangeオブジェクトで渡さなければなりません。

セルの指定は、通常はBook.Sheet.Rangeのように指定した方が良いですが、今回は元のコードにあまり手を入れずに(手抜きとも言う)、セルの指定方法はシート名まで込みにしています。

VBA
1WorksheetFunction.SumIf(Range("データセット1!A2:A11"), " / " & Range("データセット2!B3") & " * ", Range("データセット1!B2:B11"))

投稿2019/02/21 16:37

退会済みユーザー

総合スコア0

m.ts10806

2019/02/21 22:32

その手がありましたね。 Rangeって便利ですね…

退会済みユーザー

2019/02/22 00:12

いつも勉強させてもらってます。本当に融通が利いて良いですよね。実は回答を書いている間に、入れ違いで回答されているのには気がついていたんですが、この使い方をしているのはあまり見たことがないので、これのナレッジ的な意味を兼ねてしれっと重複回答してみました。

m.ts10806

2019/02/22 00:14

こちらこそ勉強になりました。

jawa

2019/02/22 02:34

Excelのシート上で使える関数は、正しくはワークシート関数ですね。ゆえにVBAから使う場合は`WorkSheetFunction`クラスを利用します。セル関数というと、ワークシート関数の１つであるCell関数（セルの情報を取得する関数）を先に想像してしまいそうですので。 ※意味は十分伝わっているので、重箱の隅をつつくような指摘で本当にスミマセン。。＞セルの指定は、通常はBook.Sheet.Rangeのように指定した方が良いちなみに私もこっち派です。さらに変数に格納する派です。 `"ワークシート!"`とか`WorkSheets("ワークシート")`を何度も書くのが面倒なので、私なら ``` Dim shtDS1 As Worksheet Set shtDS1 = Worksheets("データセット１") Dim shtCT As Worksheet Set shtCT = Worksheets("カテゴリ") ``` としたうえで `WorksheetFunction.SumIf(shtDS1.Range("A2:A11"), " / " & shtCT.Range("B3") & " * ", shtDS1.Range("B2:B11"))` と書いて「きれいになった～」と自己満足します。１回しか使わないものも変数化するので資源の無駄使いとか、かえって面倒とか言われそうですが・・ここらへんはもう好みの問題でもありますね(^-^;

m.ts10806

2019/02/22 02:38

jawaさん > さらに変数に格納する派です。私の手抜きがバレてしまった・・・

退会済みユーザー

2019/02/22 03:10

あ…他人の用語の誤用に文句ばかり言いまくってたのにこれは恥ずかしい; アンチウィルスソフトをウィルスソフトと呼んだり、シェルスクリプトを書いてるのにシェルを作ったと言うような職場に長いこといると、頭が腐ってきます…。

kuekueee--ww

2019/02/27 16:19

皆様、ありがとうございました。これからVBAに慣れていきたいと思います。また機会がありましたら宜しくお願い致しますm(_ _)m

行動規範の内容に同意します

ベストアンサー

SumIfの結果の是非はともかく、範囲の指定の仕方を間違っていると思います。

Excel VBA 入門講座:1.セルの指定とプロパティセット

エラーなくすだけならこんな感じかなと。

vba
1sum1 =  WorksheetFunction.SumIf(Worksheets("データセット1").Range("A2:A11"), " / " & Worksheets("カテゴリ").Range("B3") & " * ", Worksheets("データセット1").Range("B2:B11"))
2