Excel VBA

Excel VBA シートをコピーする

シート名：sample を好きな名前でコピーするVBA

以下コードを、標準モジュールに貼り付けると使える。

ボタンにVBAを登録しても良い。

Sub sheetcopy()
 Dim sheetname As String
     sheetname = InputBox("作成するシート名を入力", "シート名", "")
     
 If sheetname = "" Then
 
 Else
Worksheets("sample").Copy before:=Worksheets("sample")
ActiveSheet.Name = sheetname
End If

End Sub

-Excel, VBA