[[20031027104639]]　『VBA：右隣のシートにコピー』（じゃぽね）　ページの最後に飛ぶ

『VBA：右隣のシートにコピー』（じゃぽね）

　いつも本当に助けられております。宜しくお願いします。
　
　以下のマクロでアクティブシート全体をシート２
　に貼り付けているのですが、その貼り付け先を
　右隣のシートにしたいのです。アフターとか使って
　見たのですが、うまくいきません。ご教授ください。

    Cells.Select
    Selection.Copy
    Sheets("2").Select   
    ActiveSheet.Paste

 これでできると思いますが。
 （kazu）

 Sub NextSheetCopy()
    ActiveSheet.Select
    Cells.Select
    Selection.Copy
    ActiveSheet.Next.Select 
    ActiveSheet.Paste
 End Sub

 ご参考までに・・・

 Sub Macro2()
 Dim i As Long

    If Worksheets(Worksheets.Count).Name = ActiveSheet.Name Then
        MsgBox "右隣にシートがありません。"
        Exit Sub
    End If

    For i = 1 To Worksheets.Count - 1
        If Worksheets(i).Name = ActiveSheet.Name Then
            ActiveSheet.Cells.Copy Destination:=Worksheets(i + 1).Cells
            Exit Sub
        End If
    Next i

 End Sub
  (INA)

（kazu）さん(INA)さんありがとうございました。家宝にさせていただきます。
　それと重ねてで恐縮ですが、Cells.Selectの部分なのかしれませんが、
　コピー元の範囲を選択が残ってしまいます。これを消すステートもあるので
　しょうか。ずうずうしくて申し訳ありませんが、よろしくお願いします。
　それと本当に基本的なことで恐縮ですが、私の入力した文字は大きいように
　思います。どのようにしたら皆さんと同じになりますでしょうか。
（じゃぽね）

 >コピー元の範囲を選択が残ってしまいます。
 >これを消すステートもあるのでしょうか。
  Range("A1").Select 適当なセルを選択すればよいです。

 >私の入力した文字は大きいように
  最初に半角スペースを入力すると小さくなります。

  (INA)

 早速ご丁寧にありがとうございます。文字も小さくなりました。（じゃぽね）

コメント返信：

[ 一覧(最新更新順) ]

[[20031027104639]] 『VBA：右隣のシートにコピー』（じゃぽね） ページの最後に飛ぶ

[[20031027104639]]　『VBA：右隣のシートにコピー』（じゃぽね）　ページの最後に飛ぶ