Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10976 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18826】行のコピー　ペースト 学生。 04/10/13(水) 17:53 質問[未読]
【18830】Re:行のコピー　ペースト IROC 04/10/13(水) 20:46 回答[未読]
【18832】Re:行のコピー　ペースト 学生。 04/10/14(木) 9:11 お礼[未読]
【18834】Re:行のコピー　ペースト IROC 04/10/14(木) 9:52 回答[未読]
【18922】Re:行のコピー　ペースト 学生。 04/10/16(土) 12:04 お礼[未読]
【18826】行のコピー　ペースト
質問  学生。  - 04/10/13(水) 17:53 -
引用なし
パスワード
   行をコピーし、好きな行にペーストしたいのですが
そういったことは出来るのでしょうか？

行を指定しないと、コピーした行の下にペーストされてしまいます。
行を固定して指定するのではなく
その時その時でペーストする行を変えていきたいのですが
一体どうしたらいいのでしょうか（>。<）

初心者なのでもうさっぱりです。。。
誰かわかる方よろしくおねがいします！！
【18830】Re:行のコピー　ペースト
回答  IROC  - 04/10/13(水) 20:46 -
引用なし
パスワード
   Inputboxメソッドで使用者に入力してもらえばよいと思います。
【18832】Re:行のコピー　ペースト
お礼  学生。  - 04/10/14(木) 9:11 -
引用なし
パスワード
   ▼IROC さん：
>Inputboxメソッドで使用者に入力してもらえばよいと思います。

ありがとうございます！
さっそくやってみます。
【18834】Re:行のコピー　ペースト
回答  IROC  - 04/10/14(木) 9:52 -
引用なし
パスワード
   私なりに作ってみたので、参考にして下さい。


Sub CopyRow()
Dim copyRange As Range
Dim myRange As Range

　　Set copyRange = ActiveWindow.RangeSelection
　　copyRange.EntireRow.Select
　　　　
　　On Error GoTo ErrEnd
　　Set myRange = Application.InputBox(Selection.Address(0, 0) & _
　　　　　　　　　" 行目をコピーします。" & Chr(13) & _
　　　　　　　　　" 貼付け先を選択して下さい。", Type:=8)
　　On Error GoTo 0
　　
　　Selection.Copy Destination:=myRange.EntireRow
　　myRange.EntireRow.Resize(Selection.Rows.Count).Select
　　
　　Exit Sub
ErrEnd:
　　MsgBox "キャンセルしました。"
End Sub
【18922】Re:行のコピー　ペースト
お礼  学生。  - 04/10/16(土) 12:04 -
引用なし
パスワード
   うまくコピーペーストができました！！
ほんとうにありがとうございます！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10976 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free