Excel VBA質問箱 IV

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

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


3857 / 13646 ツリー ←次へ | 前へ→

【59815】セルの貼り付けについて教えてください Tuyoshi 09/1/9(金) 19:22 質問[未読]
【59816】Re:セルの貼り付けについて教えてください ponpon 09/1/9(金) 20:11 発言[未読]
【59821】Re:セルの貼り付けについて教えてください こらあ 09/1/10(土) 0:10 発言[未読]
【59823】Re:セルの貼り付けについて教えてください かみちゃん 09/1/10(土) 10:22 発言[未読]
【59826】Re:セルの貼り付けについて教えてください Tuyoshi 09/1/10(土) 17:53 お礼[未読]

【59815】セルの貼り付けについて教えてください
質問  Tuyoshi  - 09/1/9(金) 19:22 -

引用なし
パスワード
   どなたか教えていただけないでしょうか?

Seet1(A1:K20)に表を作成し、コマンドボタンにてSheet2のA1に貼り付け
再度、コマンドボタンを押したとき同じく貼り付けた下端に貼り付けをし
これの繰り返しの操作で下の行に連続で貼り付けたいのですが?

よろしかったらアドバイスください。お願いします。

【59816】Re:セルの貼り付けについて教えてください
発言  ponpon  - 09/1/9(金) 20:11 -

引用なし
パスワード
   ▼Tuyoshi さん:
>Seet1(A1:K20)に表を作成し、

これはもう作っているのですよね。

コマンドボタンにてSheet2のA1に貼り付け
>再度、コマンドボタンを押したとき同じく貼り付けた下端に貼り付けをし
>これの繰り返しの操作で下の行に連続で貼り付けたいのですが?
>
なら、こんなもんでしょうか?

Sub test()
  Dim myR As Range
 
  Set myR = Sheets("Sheet1").Range("A1:K20")
  myR.Copy Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1)
  Set myR = Nothing
 
End Sub

【59821】Re:セルの貼り付けについて教えてください
発言  こらあ  - 09/1/10(土) 0:10 -

引用なし
パスワード
   >よろしかったらアドバイスください。お願いします。
じゃあ、アドバイスを。

 ==  ル ー ル を 守 り な さ い。 ===

マルチポストについて
別のサイト(掲示板)にまったく同じ目的の投稿をすることを、一般
に「マルチポスト」といいます。当質問箱では、マルチポストは原則
認めています。つまり、ほかのサイトで質問したことをこのサイトで
質問してもかまわないということです。

しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ
質問を出しました」ということを宣言してください。そして、仮に他
のサイトで解決したのなら、ここにも必ずその顛末を書いてくださ 
い。質問しっぱなし、というのはモラルに反します。「解決したから
いいや」というのではありません。

また、マルチポストを明示的に禁止しているサイトとのマルチポスト
をしてはいけません。

【59823】Re:セルの貼り付けについて教えてください
発言  かみちゃん E-MAIL  - 09/1/10(土) 10:22 -

引用なし
パスワード
   こんにちは。かみちゃん です。

最近、またマルチポストの投稿が出てきていますね。
あまり、それだけを指摘するのも個人的には、好きではないのですが、一応。

> 「○○にも同じ質問を出しました」

http://www.moug.net/faq/viewtopic.php?t=36809&sid=fc422d5cb46d8912902b41d60e0d9bf1
にもコメントがついていますので、参考にしてみてください。

> 仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください

あちらは、一定期間で過去ログが消えるので、できれば、どのように解決できたのか
こちらにも紹介していただけるとうれしいですね。

【59826】Re:セルの貼り付けについて教えてください
お礼  Tuyoshi  - 09/1/10(土) 17:53 -

引用なし
パスワード
   ▼こらあ さん:
おっしゃる通りです。
大変失礼をいたしました。
これから十分に注意したいと思います。

本当に申し訳ございません。

参考になるプログラムを教えていただき感謝しております。
ありがとうございました。

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