Excel VBA質問箱 IV

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

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


57770 / 76732 ←次へ | 前へ→

【23696】Re:[無題]
回答  ponpon  - 05/4/1(金) 23:29 -

引用なし
パスワード
   ▼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

0 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 お礼

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