Excel VBA質問箱 IV

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

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


57738 / 76732 ←次へ | 前へ→

【23728】Re:[無題]
お礼  Kawaguti Motoichi E-MAIL  - 05/4/2(土) 19:08 -

引用なし
パスワード
   ▼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")てなんですか調べてみたいと思いますが・・・
本当に有難うございました。
1 hits

【23645】[無題] Kawaguti Motoichi 05/4/1(金) 0:08 質問
【23646】Re:[無題] りすりす 05/4/1(金) 0:39 発言
【23649】Re:[無題] Kawaguti Motoichi 05/4/1(金) 9:46 質問
【23696】Re:[無題] ponpon 05/4/1(金) 23:29 回答
【23728】Re:[無題] Kawaguti Motoichi 05/4/2(土) 19:08 お礼
【23730】Re:[無題] ponpon 05/4/2(土) 22:11 発言
【23733】Re:Range("A65536") かみちゃん 05/4/2(土) 23:07 発言
【23736】Re:Range("A65536") ponpon 05/4/3(日) 0:39 お礼
【23762】Re:Range("A65536") Kawaguchi  Motoichi 05/4/3(日) 15:36 お礼

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