|
▼Kawaguti Motoichi さん:
ponponです。こんばんは。
>>>毎日更新するデータを、あらかじめ別に出来ている、日毎に集計する表の該当日にちに記入できるようにしたいのだが?
くわしいシートレイアウトがわからないので、
sheet1は、一行目のA1に「商品」B1に「値段」C1に「個数」の見出しがあり、入力データは、2行目とします。
sheet2は、一行目のA1に「日付」B1に「商品」C1に「値段」D1に「個数」の見出しがあるものとします。
実行は、フォームのコマンドボタンあたりでやってください。
意味が違っていたらごめんなさい。
Sub test()
Dim myVal As Variant
Dim myRng As Range
myVal = Worksheets("sheet1").Range("A2:C2").Value
With Worksheets("sheet2")
Set myRng = .Range("A65536").End(xlUp).Offset(1, 0)
myRng.Value = DateValue(Now)
myRng.Offset(0, 1).Resize(1, 3) = myVal
End With
End Sub
|
|