| |
いつも教えて頂きありがとうございます
またお聞きしたいのですが
毎日の売上表を作成しています
シート1の1行目が項目でA部門 B売上 C利益 D累計売上 E累計利益 部門はA31まで30部門あります 毎日BとC列にデータを入力していますDE列には数式を入れてます 現状恥ずかしながら この同じシートを1ヶ月分31枚作っています（指定された日にちの表をプリントしなくてはならない為）
できることなら シート1枚で対応できないでしょうか？その日入力したデータを一旦 格納して、
入力シートのどこかに
出したい日にちを打ち込んだらその日のデータが表示されるようにしたいのですが
（H1に2を入力すると2日のデータを表示）
Sub 累計()
Dim A As Integer
Dim B As Integer
A = Range("A65536").End(xlUp).Row
For B = 2 To A
Worksheets("Sheet2").Cells(B, 4) = Worksheets("Sheet2").Cells(B, 2) + Worksheets("Sheet1").Cells(B, 2)
Worksheets("Sheet2").Cells(B, 5) = Worksheets("Sheet2").Cells(B, 3) + Worksheets("Sheet1").Cells(B, 3)
Next B
End Sub
今のところ セルに数式入れずに2日目シートの累計計算までしかできていません
それでもシート1枚での対応は解消できず悩んでおります
初心者のぶんざいで 贅沢な質問して申し訳ありませんが どうぞよろしくお願いいたします
|
|
hiro
- 07/4/7(土) 23:44 -
