[[20170601083925]]　『毎日の入力表から別シートに時系列に１か月分の個』（むっく）　ページの最後に飛ぶ

『毎日の入力表から別シートに時系列に１か月分の個数を転送したい。毎日数字が変わるのでコピペができず困ってます。』（むっく）【削除：20170602225323に別スレをたててしまっています】

教えてください。
エクセルでやりたいのです。

 毎日の入力データをsheet1にしてsheet2に１か月分の反映データをいれたいのですが。
sheet1は次のような表です。

毎日の個数Ｄをsheet2の該当する商品の日にちのところに個数を移したいのです。個数は毎日変わります。

 Ａ 　　　Ｂ 　Ｃ 　Ｄ　ＥＦＧＨ
 薬品名 濃度 重量 個数　５月3日
イ ←4行目
ロ
 ハ

sheet2（5月）は次のような表です。

 Ａ 　　　Ｂ Ｃ 　　Ｄ　Ｅ　　Ｆ　　 
 薬品名 前月在庫数 １日 ２日 ３日→続く
４行目 イ
5 ロ
6 ハ

以上よろしくお願いします

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

むっくさん

幾つかお尋ねします。
・Sheet1,Sheet2の各4行目から並んでいる薬品名はSheet1とSheet2で同じでしょうか？
・Sheet1の個数をSheet2の該当日付に移送するでいいのでしょうか？
・Sheet1は毎日日付が変わって、その日その日のデータを入力なさるのでしょうか？

以上、よろしくお願いいたします。
（パオ～～ン） 2017/06/01(木) 12:09

パオ～～ンさま
早速お便りありがとうございます。

1.Sheet1,Sheet2の各4行目から並んでいる薬品名はSheet1とSheet2で同じでしょうか→全く同じです。
2.Sheet1の個数をSheet2の該当日付に移送するでいいのでしょうか→そうしたいのです。しかし翌日新たにsheet1に個数を入力したときsheet2の前日の数字がそのまま残っているようにしたいのですが。
3.Sheet1は毎日日付が変わって、その日その日のデータを入力なさるのでしょうか→そうしたいのですが

よろしくお願いします。
（むっく） 2017/06/01(木) 13:44

むっくさま

マクロはご存知でしょうか？
以下のマクロを標準モジュールに登録して実施すると、ご希望の処理ができると思います。

Sub Sample()
'
' Macro1 Macro
'

    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Dim Dd As Variant
    Dim I  As Long
'
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")

    Dd = Day(S1.Range("E1").Value)
    For I = 4 To S1.Range("A" & Rows.Count).End(xlUp).Row
        S2.Cells(I, Dd + 3).Value = S1.Cells(I, 4).Value
    Next I
End Sub

（パオ～～ン） 2017/06/01(木) 16:23

コメント返信：

[ 一覧(最新更新順) ]

[[20170601083925]] 『毎日の入力表から別シートに時系列に１か月分の個』（むっく） ページの最後に飛ぶ

[[20170601083925]]　『毎日の入力表から別シートに時系列に１か月分の個』（むっく）　ページの最後に飛ぶ