|
▼ponpon さん:
>▼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
PonPonさんありがとうございます。
早速実行してみました。OKでした。
実は私が現在苦慮している集計は、実はもっと複雑で、まず日々更新するデータがSheet1の中で点在していて、しかも12項目あります。それらをSheet2の一行にまとめたいのです。ponponさんのを参考にして考えてみたいとおもいます。
ところで、そんなことも知らないのかと言われそうですが、Range("A65536")てなんですか調べてみたいと思いますが・・・
本当に有難うございました。
|
|