Excel VBA質問箱 IV

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

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


33750 / 76734 ←次へ | 前へ→

【48200】値の格納
質問  hiro  - 07/4/7(土) 23:44 -

引用なし
パスワード
   いつも教えて頂きありがとうございます
またお聞きしたいのですが
毎日の売上表を作成しています
シート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枚での対応は解消できず悩んでおります
初心者のぶんざいで 贅沢な質問して申し訳ありませんが どうぞよろしくお願いいたします

2 hits

【48200】値の格納 hiro 07/4/7(土) 23:44 質問
【48207】Re:値の格納 ウッシ 07/4/8(日) 10:13 発言
【48242】Re:値の格納 hiro 07/4/9(月) 21:46 お礼

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