Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10091 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【23645】［無題］
質問  Kawaguti Motoichi E-MAIL  - 05/4/1(金) 0:08 -
引用なし
パスワード
   毎日更新するデータを、あらかじめ別に出来ている、日毎に集計する表の該当日にちに記入できるようにしたいのだが？
【23646】Re:［無題］
発言  りすりす  - 05/4/1(金) 0:39 -
引用なし
パスワード
   ▼Kawaguti Motoichi さん：
>毎日更新するデータを、あらかじめ別に出来ている、日毎に集計する表の該当日にちに記入できるようにしたいのだが？

やりたいことは、わかるのですが、

どういうシートのどこの行列から
どこのシートのどこの行列あたりにデータを自動でうつしたいのか

はっきりかかないと
ワークブックの構造がわからないので
誰も質問を読んでも答えは、わかりません
【23649】Re:［無題］
質問  Kawaguti Motoichi E-MAIL  - 05/4/1(金) 9:46 -
引用なし
パスワード
   早速の反応ありがとうございます。説明が稚拙で申し訳ありません
あらためて説明してみます。
＜Sheet１＞の例えば、A1,B1,C1セルに毎日データを更新します
それらのデータを、別＜Sheet２＞のあらかじめ作られた表に、一日目は一番上の空白の行に、＜Sheet1>のA1データをA1に、B1はB1に・・・・貼り付ける。そして翌日更新された新たな＜Sheet１＞のA1のデータは、今度は前日の一段下の行のA2に貼り付ける、同じようにB1のデータはB2に・・・・・と、日毎繰り返して一ヶ月のデータ集計表を作成したいのですが？
▼りすりす さん：
>▼Kawaguti Motoichi さん：
>>毎日更新するデータを、あらかじめ別に出来ている、日毎に集計する表の該当日にちに記入できるようにしたいのだが？
>
>やりたいことは、わかるのですが、
>
>どういうシートのどこの行列から
>どこのシートのどこの行列あたりにデータを自動でうつしたいのか
>
>はっきりかかないと
>ワークブックの構造がわからないので
>誰も質問を読んでも答えは、わかりません
【23696】Re:［無題］
回答  ponpon  - 05/4/1(金) 23:29 -
引用なし
パスワード
   ▼Kawaguti Motoichi さん：
ponponです。こんばんは。

>>>毎日更新するデータを、あらかじめ別に出来ている、日毎に集計する表の該当日にちに記入できるようにしたいのだが？

くわしいシートレイアウトがわからないので、
sheet1は、一行目のA1に「商品」B1に「値段」C1に「個数」の見出しがあり、入力データは、２行目とします。
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
【23728】Re:［無題］
お礼  Kawaguti Motoichi E-MAIL  - 05/4/2(土) 19:08 -
引用なし
パスワード
   ▼ponpon さん：
>▼Kawaguti Motoichi さん：
>ponponです。こんばんは。
>
>>>>毎日更新するデータを、あらかじめ別に出来ている、日毎に集計する表の該当日にちに記入できるようにしたいのだが？
>
>くわしいシートレイアウトがわからないので、
>sheet1は、一行目のA1に「商品」B1に「値段」C1に「個数」の見出しがあり、入力データは、２行目とします。
>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の中で点在していて、しかも１２項目あります。それらをSheet2の一行にまとめたいのです。ponponさんのを参考にして考えてみたいとおもいます。
ところで、そんなことも知らないのかと言われそうですが、Range("A65536")てなんですか調べてみたいと思いますが・・・
本当に有難うございました。
【23730】Re:［無題］
発言  ponpon  - 05/4/2(土) 22:11 -
引用なし
パスワード
   ponponです。こんばんは。

>Range("A65536")てなんですか
エクセルのA列の最終行です。（エクセル2000以降の）だったかな？
Cells(Rows.Count,1）と同じです。

A列のデータの入っているセルを探すために
Range("A1").End(xldown)とするとわかるのですが、空欄があるとそこで止まってしまいます。そこで、最終行(65536行）から上に(xlup)検索して、データの入っている最終行を求める　ということです。だったと思います。
　詳しくは「End」でヘルプを見て頂くか、「Range("A65536")」や「End」でここの掲示板を検索するとわかると思います。私も最近「65536」と覚えられました。
　それと質問する場合は、質問の内容がわかるような見出しにした方が良いと思います。
ではでは。。。
【23733】Re:Range("A65536")
発言  かみちゃん  - 05/4/2(土) 23:07 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>Range("A65536")てなんですか
>エクセルのA列の最終行です。（エクセル2000以降の）だったかな？
>Cells(Rows.Count,1）と同じです。

少し勘違いされるといけませんので、補足させてください。
Range("A1")は、A1セルのことです。
Range("A65536")は、A65536セルのことです。
つまり、Rangeは、セル範囲を指します。決して最終行をさすものではありません。

また、最大行は、Excel97〜Excl2003までは、65536行です。
それ以前のExcel5.0やExcel95は、16384行でした。
さらに、次期バージョンの最終行が65536行である保証はどこにもないので、次の
ようにするとバージョンの違いも吸収できるのではないでしょうか？
Cells(ActiveSheet.Rows.Count, 1)
Excel97〜Excel2003の場合、Range("A65536")と同じになります。
【23736】Re:Range("A65536")
お礼  ponpon  - 05/4/3(日) 0:39 -
引用なし
パスワード
   ponponです。
ありがとうございました。
また一つ脱初心者です。
【23762】Re:Range("A65536")
お礼  Kawaguchi 　Motoichi  - 05/4/3(日) 15:36 -
引用なし
パスワード
   回答して頂いた方全てにお礼申し上げます。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10091 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free