ＥＲＲＯＲ 型が一致しませんとでます。

Sub k()
Dim i As Long
Dim j As Long
dim zz as long

Dim zz As Long
zz = Cells(Rows.Count, 9).End(xlUp).Row

If Range("i2:i" & zz) >= DateSerial(2017, 10, 1) And Range("i2:i" & zz) <= DateSerial(2018, 3, 31) Then 2017/10/1～2018/3/31　　
j = Month(Range("i2:i" & zz))　　月を取り出す
For i = 3 To 4
For j = 4 To 6
　　　　　　　　　　　　　　　　　金額の合計　　　　　　　　　　取引先
Cells(i, j).Value = Application.SumIfs(Range("j2:j" & zz), Range("h2:h" & zz), Cells(i, 3), Range("i2:i" & zz), Cells(2, j))
2017/10/1～2018/3/31
Next j
Next i
End If
End Sub

ＥＲＲＯＲ　型が一致しませんとでます。
間違いわかる方いますでしょうか
　Ｈ　　　　Ｉ　　　　　Ｊ
販売先 商品名 販売額
井上商事 8月8日 52,000
上田青果 9月8日 65,000
井上商事 10月8日 78,000
上田青果 11月1日 43,000
井上商事 12月12日 45,000
上田青果 2018/3/5 57,000
井上商事 2018/3/6 49,000
上田青果 2018/3/7 80,000
井上商事 2018/3/8
上田青果 2018/3/9 80,000
上田青果 2018/3/10 80,001
上田青果 2018/3/11 80,002

　　Ｃ列　　　Ｄ　　　Ｅ　　Ｆ　　　　　
　　　　　8 9 10
井上商事
上田青果

質問者からの補足コメント

• 

  このｺｰﾄﾞ実行すると合計が0
  になります。加算されないです

  No.2の回答に寄せられた補足コメントです。 補足日時：2017/11/06 07:59

• 

  うまくいきませんでした。
  ここまでお付き合い
  有難うございました。

  No.3の回答に寄せられた補足コメントです。 補足日時：2017/11/06 22:10

• 

  zz = Cells(Rows.Count, 1).End(xlDown).Row
  If Range("b4:b" & zz) >= DateSerial(2017, 4, 1) And Range("b4:b" & zz) <= DateSerial(2017, 11, 30) Then
  '↑の部分ですよね
  'r = month(range("b4:b"&zz)
  'i = r
  '恐らくこんなかんじなんでしょうかあともう少しなんだけどな

  No.5の回答に寄せられた補足コメントです。 補足日時：2017/11/08 15:44

• 

  そうなんですよね　いろいろ質問していますが難しいばかりで。恐らくfind(what:=r,lookin:=とか使用するんだおもんですが？めぐみん様はできるからいいですよね

  No.6の回答に寄せられた補足コメントです。 補足日時：2017/11/08 16:09

• 

  恐らくFIND(WHAT:=R,LOOKIN:=XLVALUE,XLWHOLEとか
  使用してやるのが一番いいんでしょうね
  今ＦＩＮＤを基礎がやっていますがなかなか応用できない

  No.7の回答に寄せられた補足コメントです。 補足日時：2017/11/08 16:26

• 

  Scripting dictinonary
  ですね 少しやってみます。

  No.8の回答に寄せられた補足コメントです。 補足日時：2017/11/08 16:37

• 

  はい、Ｅｘｃｅｌ関数でMONTHで月を取り出しSumIFSを利用すればできます。がそこをＶＢＡでやりたいわけなんです。f Year(Cells(i, "B")) = Year(Date) Then　Set c = myrng.Find(what:=.Cells(i, "a"), LookIn:=xlValues, lookat:=xlWhole)　If Not c Is Nothing Then　i = Month(Cells(i, "B"))今こんな所ですが駄目です。

  No.12の回答に寄せられた補足コメントです。 補足日時：2017/11/08 21:39

• 

  このｺｰﾄﾞかっこいいです。なんとなくですがわかります。ひとつひとつ考えながら使用させて頂きたいと思います。まだ、不完全とは言え本当にかっこいい。

  No.10の回答に寄せられた補足コメントです。 補足日時：2017/11/08 22:38

No.9 ベストアンサー 回答者： めぐみん_ 回答日時： 2017/11/08 20:27

『期間』について。

あくまで好みではあるでしょうけど私は For~Next よりは For Each~Next をよく使います。

まずH列を基準とするなら、

Dim r As Range 'Range型で宣言

For Each r In Range("H2", Cells(Rows.Count, 8).End(xlUp)) '　これで変数：r でH2~H最終行を１セルずつ取得できます

Next '　最後に付くのは同じ

期間のIf文については、日付はI列なのでH列の１つ右になりますから、
r.Offset(0,1).Value
で取得できます。（Offsetの詳細は省きます）

For Each r In Range("H2", Cells(Rows.Count, 8).End(xlUp))
If r.Offset(0,1).Value >= DateSerial(2017, 10, 1) And r.Offset(0,1).Value <= DateSerial(2018, 3, 31) Then ' 2017/10/1～2018/3/31
'~ ここでDictionaryの処理をします。

No.13 回答者： めぐみん_ 回答日時： 2017/11/09 05:18

Dictionaryを使うのなら、

・No.10にある販売先と月を連結したキーと、販売額を合計していく値を持つ物
・販売先を書き出す際に行を決める販売先をキーにし、販売先毎に行数を決めた値を持つ物

の２つのDictionaryを用意した方が、まずは簡単にいけるかもですね。

月数が既に決まっているなら、以前回答した（かな？）『値を配列（Array)に』する事で１つに出来ますが、
任意の月数の集計を行うにはちょっと向かない（面倒）になりそうですし。

No.12 回答者： めぐみん_ 回答日時： 2017/11/08 21:28

No.6についてですけど。

仮に作業列を追加できるなら、そこに月だけを数式で求めて
Application.SumIfs を使えるのかな？とも思うのですが、
こちらでは検証できないですしね。

No.11 回答者： めぐみん_ 回答日時： 2017/11/08 21:14

No.10　についてはちょっと不完全なので無視して下さい

簡単にしようとして、詰まってます。

No.10 回答者： めぐみん_ 回答日時： 2017/11/08 20:41

Dictionaryについて

これも好みはありますけど。

For Each r In Range("H2", Cells(Rows.Count, 8).End(xlUp))
If r.Offset(0, 1).Value >= DateSerial(2017, 10, 1) And r.Offset(0, 1).Value <= DateSerial(2018, 3, 31) Then ' 2017/10/1～2018/3/31
st = r.Value & "_" & Month(r.Offset(0, 1).Value) ' 販売先と月（Month関数）を連結したのがキー
If Not myDic.Exists(st) Then ' もしキーがまだ登録されてない時
myDic.Add st, r.Offset(0, 2).Value ' J列の金額を値とする
Else ' 既に登録済みなら
myDic(st) = myDic(st) + r.Offset(0, 2).Value ' 既に登録されてる値に次の値を加算
End If
End If
Next

・・・文字数の限界はあるのかな？

この回答へのお礼

有難うございました。

お礼日時：2017/11/09 21:50

No.8 回答者： めぐみん_ 回答日時： 2017/11/08 16:34

No.7の補足に対して（こっちは見れました）

いいえ、Findメソッドを用いたとしてもNo.6に書いた問題は解決できません。
特に『日付』についてはFindメソッドは扱いが難しいです。（部分一致の場合）

データを順番に調べていって、『期間内にある』『日付から月だけを抽出する』などを
１個ずつ調べ、あとはDictionaryで纏め上げるのが良いのかもしれません。
ただ私は古いバージョンなので最近のExcelには何か機能はあるかもですが、
個人的にはこのような場合だとDictionary使ってしまいますね。（馬鹿の１つ覚えみたいに）

No.7 回答者： めぐみん_ 回答日時： 2017/11/08 16:22

No.6です。

No.5に補足が付いてるようですが何故か見ることが出来ないですね。
混雑しているのかな？メールにも来ないし。

No.6 回答者： めぐみん_ 回答日時： 2017/11/08 16:03

No.5です。

そのIf文もなんですけど、Application.SumIfs　の条件に
前回はI列（？）に月を示す数値だけを入れてたのに対し、
今回は『年・月・日又は月・日』を入れているじゃないですか？
で、条件として与えるのが『月』を示す数値なので一致しないのです。

なので Application.SumIfs をやめて他の方法に切り替えれば良いのかなと。

No.5 回答者： めぐみん_ 回答日時： 2017/11/08 14:54

No.3です。

もうご覧になってないかな？

問題は

＞Range("i2:i" & zz), Cells(2, j)

ここでしょうね。

データの方は『年・月・日』であるのに対し、抽出条件は『月』のみ。
なのでダメなんでしょうね。

Application.SumIfsではない方法でも良ければいけるかもでしたね。

No.4 回答者： t_fumiaki 回答日時： 2017/11/06 18:31

Range("i2:i" & zz)と言う書き方が間違い。

範囲指定では判定出来ない。セル1個1個で判定。
Range("i" & zz)の様にセルを直打ちにする。

そこら中で使ってるから構造自体を見直す。

これでokの場合にjを求めてループ処理。とか、作り直しが必要。
全面見直し・作り直し。