Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Mac OS X : Excel 2016)
マクロ シートコピー 移動挿入について
投稿日時: 20/05/22 00:13:03
投稿者: トンチンカン

マクロでシートをコピーし最後尾に移動挿入させたいのですが、うまくいきません。
どなたかご教授ください。
 
Sub 新しい頁()
'
' 新しい頁 Macro
'Worksheets("マスタ"). Move After :Worksheets(Worksheets.Count)
'ActiveSheet.Name = "コピー"
' Keyboard Shortcut: Ctrl+Shift+N
'
End Sub
 
これのどこが悪いのでしょうか
よろしくお願いします。 :?:

回答
投稿日時: 20/05/22 09:24:06
投稿者: WinArrow
投稿者のウェブサイトに移動

トンチンカン さんの引用:
マクロでシートをコピーし最後尾に移動挿入させたいのですが、うまくいきません。
どなたかご教授ください。
 
Sub 新しい頁()
'
' 新しい頁 Macro
'Worksheets("マスタ"). Move After :Worksheets(Worksheets.Count)
'ActiveSheet.Name = "コピー"
' Keyboard Shortcut: Ctrl+Shift+N
'
End Sub
 
これのどこが悪いのでしょうか
よろしくお願いします。 :?:

 
 
プロシジャ内のコードが全部コメントアウトしてありますが、
そのことは、理解されていますか?
 
コメントアウトを解除したとして
>After :Worksheets(Worksheets.Count)
引数の指定が間違っています。
After:=Worksheets(Worksheets.Count)
に変更してみてください。

回答
投稿日時: 20/05/22 10:25:37
投稿者: simple

ワークシート名から推測すると、こうかもしれません。

    Worksheets("マスタ").Copy After:=Worksheets(Worksheets.count)
    ActiveSheet.Name = "コピー"

投稿日時: 20/05/22 10:30:29
投稿者: トンチンカン

WinArrow さんの引用:
トンチンカン さんの引用:
マクロでシートをコピーし最後尾に移動挿入させたいのですが、うまくいきません。
どなたかご教授ください。
 
Sub 新しい頁()
'
' 新しい頁 Macro
'Worksheets("マスタ"). Move After :Worksheets(Worksheets.Count)
'ActiveSheet.Name = "コピー"
' Keyboard Shortcut: Ctrl+Shift+N
'
End Sub
 
これのどこが悪いのでしょうか
よろしくお願いします。 :?:

 
 
プロシジャ内のコードが全部コメントアウトしてありますが、
そのことは、理解されていますか?
 
コメントアウトを解除したとして
>After :Worksheets(Worksheets.Count)
引数の指定が間違っています。
After:=Worksheets(Worksheets.Count)
に変更してみてください。

 
 
コメントありがとうございます!!
マクロについては自動記録しかわかりません
 
次のように直しましたがシートコピーして最後尾に行きませんでした。
再度お願い致します。
 
Sub 新しい頁()
'
' 新しい頁 Macro
'Worksheets("マスタ"). Move After : =Worksheets(Worksheets.Count)
'ActiveSheet.Name = "コピー"
' Keyboard Shortcut: Ctrl+Shift+N
'
End Sub
 

投稿日時: 20/05/22 10:38:34
投稿者: トンチンカン

simple さんの引用:
ワークシート名から推測すると、こうかもしれません。
    Worksheets("マスタ").Copy After:=Worksheets(Worksheets.count)
    ActiveSheet.Name = "コピー"

 
あがとうございました。
できました。!
はじめてマクロ文で出来ました。
これからよろしくお願いいたします。