Excel VBA質問箱 IV

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

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


10963 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   うまくコピーペーストができました!!
ほんとうにありがとうございます!!

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