Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23176 / 76732

←次へ　｜　前へ→


	【58926】集計処理

kazu

- 08/11/18(火) 16:44 -


	引用なし

	パスワード

Sub ボタン2_Click()

'４月
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

'５月
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

'８月
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

'９月
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が定義されていません。とエラーがでます。
どの部分が悪いのでしょうか？教えてください。

3 hits

▼

【58926】集計処理 kazu 08/11/18(火) 16:44

≪