Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4003 / 13646 ツリー ←次へ | 前へ→

【58926】集計処理 kazu 08/11/18(火) 16:44 質問[未読]
【58927】Re:集計処理 Jaka 08/11/18(火) 16:58 発言[未読]
【58929】Re:集計処理 himesyara 08/11/18(火) 18:23 回答[未読]
【58936】Re:集計処理 Yuki 08/11/19(水) 9:47 発言[未読]

【58926】集計処理
質問  kazu E-MAIL  - 08/11/18(火) 16:44 -

引用なし
パスワード
   Sub ボタン2_Click()

'4月
Range("B4").Value = Sum(徳永_受注予想!B54 + 濱里_受注予想!B57 + 矢崎_受注予想!B54 + 佐藤_受注予想!B54 + 井口_受注予想!B54)
Range("B5").Value = 0
Range("B6").Value = Range("B4").Value - Range("B5").Value

Range("B8").Value = Range("B4").Value
Range("B9").Value = Range("B5").Value
Range("B10").Value = Range("B8").Value - Range("B9").Value

'5月
Range("C4").Value = Sum(徳永_受注予想!C54 + 濱里_受注予想!C57 + 矢崎_受注予想!C54 + 佐藤_受注予想!C54 + 井口_受注予想!C54)
Range("C5").Value = 0
Range("C6").Value = Range("C4").Value - Range("C5").Value

Range("C8").Value = Range("C4").Value
Range("C9").Value = Range("B9").Value + Range("C5").Value
Range("C10").Value = Range("C8").Value - Range("C9").Value

'6月
Range("D4").Value = Sum(徳永_受注予想!D54 + 濱里_受注予想!D57 + 矢崎_受注予想!D54 + 佐藤_受注予想!D54 + 井口_受注予想!D54)
Range("D5").Value = 0
Range("D6").Value = Range("D4").Value - Range("D5").Value

Range("D8").Value = Range("D4").Value
Range("D9").Value = Range("C9").Value + Range("D5").Value
Range("D10").Value = Range("D8").Value - Range("D9").Value

'1期
Range("E4").Value = Sum(B4、D4)
Range("E5").Value = Sum(B5、D5)
Range("E6").Value = Sum(B6、D6)

Range("E8").Value = Range("D8").Value
Range("E9").Value = Range("D9").Value
Range("E10").Value = Range("D10").Value

'7月
Range("F4").Value = Sum(徳永_受注予想!F54 + 濱里_受注予想!F57 + 矢崎_受注予想!F54 + 佐藤_受注予想!F54 + 井口_受注予想!F54)
Range("F5").Value = 0
Range("F6").Value = Range("F4").Value - Range("F5").Value

Range("F8").Value = Range("F4").Value
Range("F9").Value = Range("D9").Value + Range("F5").Value
Range("F10").Value = Range("F8").Value - Range("F9").Value

'8月
Range("G4").Value = Sum(徳永_受注予想!G54 + 濱里_受注予想!G57 + 矢崎_受注予想!G54 + 佐藤_受注予想!G54 + 井口_受注予想!G54)
Range("G5").Value = 0
Range("G6").Value = Range("G4").Value - Range("G5").Value

Range("G8").Value = Range("G4").Value
Range("G9").Value = Range("F9").Value + Range("G5").Value
Range("G10").Value = Range("G8").Value - Range("G9").Value

'9月
Range("H4").Value = Sum(徳永_受注予想!H54 + 濱里_受注予想!H57 + 矢崎_受注予想!H54 + 佐藤_受注予想!H54 + 井口_受注予想!H54)
Range("H5").Value = 0
Range("H6").Value = Range("H4").Value - Range("H5").Value

Range("H8").Value = Range("H4").Value
Range("H9").Value = Range("G9").Value + Range("H5").Value
Range("H10").Value = Range("H8").Value - Range("H9").Value

'2期
Range("I4").Value = Sum(F4、H4)
Range("I5").Value = Sum(F5、H5)
Range("I6").Value = Sum(F6、H6)

Range("I8").Value = Range("H8").Value
Range("I9").Value = Range("H9").Value
Range("I10").Value = Range("H10").Value

'10月
Range("J4").Value = Sum(徳永_受注予想!J54 + 濱里_受注予想!J57 + 矢崎_受注予想!J54 + 佐藤_受注予想!J54 + 井口_受注予想!J54)
Range("J5").Value = 0
Range("J6").Value = Range("J4").Value - Range("J5").Value

Range("J8").Value = Range("J4").Value
Range("J9").Value = Range("H9").Value + Range("J5").Value
Range("J10").Value = Range("J8").Value - Range("J9").Value

'11月
Range("K4").Value = Sum(徳永_受注予想!K54 + 濱里_受注予想!K57 + 矢崎_受注予想!K54 + 佐藤_受注予想!K54 + 井口_受注予想!K54)
Range("K5").Value = 0
Range("K6").Value = Range("K4").Value - Range("K5").Value

Range("K8").Value = Range("K4").Value
Range("K9").Value = Range("J9").Value + Range("K5").Value
Range("K10").Value = Range("K8").Value - Range("K9").Value

'12月
Range("L4").Value = Sum(徳永_受注予想!L54 + 濱里_受注予想!L57 + 矢崎_受注予想!L54 + 佐藤_受注予想!L54 + 井口_受注予想!L54)
Range("L5").Value = 0
Range("L6").Value = Range("L4").Value - Range("L5").Value

Range("L8").Value = Range("L4").Value
Range("L9").Value = Range("K9").Value + Range("L5").Value
Range("L10").Value = Range("L8").Value - Range("L9").Value

'3期
Range("M4").Value = Sum(J4、L4)
Range("M5").Value = Sum(J5、L5)
Range("M6").Value = Sum(J6、L6)

Range("M8").Value = Range("L8").Value
Range("M9").Value = Range("L9").Value
Range("M10").Value = Range("L10").Value

'1月
Range("N4").Value = Sum(徳永_受注予想!N54 + 濱里_受注予想!N57 + 矢崎_受注予想!N54 + 佐藤_受注予想!N54 + 井口_受注予想!N54)
Range("N5").Value = 0
Range("N6").Value = Range("N4").Value - Range("N5").Value

Range("N8").Value = Range("N4").Value
Range("N9").Value = Range("L9").Value + Range("N5").Value
Range("N10").Value = Range("N8").Value - Range("N9").Value

'2月
Range("O4").Value = Sum(徳永_受注予想!O54 + 濱里_受注予想!O57 + 矢崎_受注予想!O54 + 佐藤_受注予想!O54 + 井口_受注予想!O54)
Range("O5").Value = 0
Range("O6").Value = Range("O4").Value - Range("O5").Value

Range("O8").Value = Range("O4").Value
Range("O9").Value = Range("N9").Value + Range("O5").Value
Range("O10").Value = Range("O8").Value - Range("O9").Value

'3月
Range("P4").Value = Sum(徳永_受注予想!P54 + 濱里_受注予想!P57 + 矢崎_受注予想!P54 + 佐藤_受注予想!P54 + 井口_受注予想!P54)
Range("P5").Value = 0
Range("P6").Value = Range("P4").Value - Range("P5").Value

Range("P8").Value = Range("P4").Value
Range("P9").Value = Range("O9").Value + Range("P5").Value
Range("P10").Value = Range("P8").Value - Range("P9").Value

'4期
Range("Q4").Value = Sum(N4、P4)
Range("Q5").Value = Sum(N5、P5)
Range("Q6").Value = Sum(N6、P6)

Range("Q8").Value = Range("P8").Value
Range("Q9").Value = Range("P9").Value
Range("Q10").Value = Range("P10").Value

'累計
Range("R4").Value = Sum(E4、I4、M4、Q4)
Range("R5").Value = Sum(E5、I5、M5、Q5)
Range("R6").Value = Sum(E6、I6、M6、Q6)

Range("R8").Value = Range("Q8").Value
Range("R9").Value = Range("Q9").Value
Range("R10").Value = Range("Q10").Value

End Sub


上記を実行するとSubまたはFunctionが定義されていません。とエラーがでます。
どの部分が悪いのでしょうか?教えてください。

【58927】Re:集計処理
発言  Jaka  - 08/11/18(火) 16:58 -

引用なし
パスワード
   >Sum(J4、L4)
大体こんな感じ。

Application.sum(Range("J4"),Range("L4"))

WorkSheetfunctionを入れても良いけど。

【58929】Re:集計処理
回答  himesyara  - 08/11/18(火) 18:23 -

引用なし
パスワード
   >Sum(J4、L4)

 ↓

WorksheetFunction.Sum(Range("J4,L4"))

【58936】Re:集計処理
発言  Yuki  - 08/11/19(水) 9:47 -

引用なし
パスワード
   ▼kazu さん:

ついでに添削

Sub ボタン2_Click()
  Dim sht1  As Worksheet
  Dim sht2  As Worksheet
  Dim sht3  As Worksheet
  Dim sht4  As Worksheet
  Dim sht5  As Worksheet
  Dim sht   As Worksheet
  Dim i    As Long
  Dim y    As Long
  
  Set sht1 = Worksheets("徳永_受注予想")
  Set sht2 = Worksheets("濱里_受注予想")
  Set sht3 = Worksheets("矢崎_受注予想")
  Set sht4 = Worksheets("佐藤_受注予想")
  Set sht5 = Worksheets("井口_受注予想")
  Set sht = Worksheets("Sheet1")

  y = 2
  With sht
    .Cells.ClearContents
    For i = 1 To 16
      If i Mod 4 = 0 Then
        .Cells(4, i + 1).Value = Application.Sum(.Range(.Cells(4, y), .Cells(4, i)))
        .Cells(5, i + 1).Value = Application.Sum(.Range(.Cells(5, y), .Cells(5, i)))
        .Cells(6, i + 1).Value = Application.Sum(.Range(.Cells(6, y), .Cells(6, i)))
        .Cells(8, i + 1).Value = Application.Sum(.Range(.Cells(8, y), .Cells(8, i)))
        .Cells(9, i + 1).Value = Application.Sum(.Range(.Cells(9, y), .Cells(9, i)))
        .Cells(10, i + 1).Value = Application.Sum(.Range(.Cells(10, y), .Cells(10, i)))
        y = y + 4
      Else
        .Cells(4, i + 1).Value = sht1.Cells(54, i + 1).Value + sht2.Cells(57, i + 1).Value _
                    + sht3.Cells(54, i + 1).Value + sht4.Cells(54, i + 1).Value _
                    + sht5.Cells(54, i + 1).Value
        .Cells(5, i + 1).Value = 0
        .Cells(6, i + 1).Value = .Cells(4, i + 1).Value - .Cells(5, i + 1).Value
        .Cells(8, i + 1).Value = .Cells(4, i + 1).Value
        If i = 1 Then
          .Cells(9, i + 1).Value = .Cells(5, i + 1).Value
        Else
          .Cells(9, i + 1).Value = .Cells(9, i).Value + .Cells(5, i + 1).Value
        End If
        .Cells(10, i + 1).Value = .Cells(8, i + 1).Value - .Cells(9, i + 1).Value
      End If
    Next
    .Cells(4, i + 1).Value = Application.Sum(.Range("E4"), .Range("I4"), .Range("M4"), .Range("Q4"))
    .Cells(5, i + 1).Value = Application.Sum(.Range("E5"), .Range("I5"), .Range("M5"), .Range("Q5"))
    .Cells(6, i + 1).Value = Application.Sum(.Range("E6"), .Range("I6"), .Range("M6"), .Range("Q6"))
    .Cells(8, i + 1).Value = .Range("Q8").Value
    .Cells(9, i + 1).Value = .Range("Q9").Value
    .Cells(10, i + 1).Value = .Range("Q10").Value
  End With
End Sub

4003 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free