ワークシートを任意の枚数挿入
Sub SheetAdd()
Dim myMsg As String, myTitle As String
Dim AddNum As Integer
myMsg = “追加するシート枚数を入力” myTitle = “ワークシートを挿入”
AddNum = Application.InputBox(Prompt:=myMsg, Title:=myTitle, _
Default:=1, Type:=1)
ActiveWorkbook.Worksheets.Add _
after:=Worksheets(Worksheets.Count), _
Count:=AddNum
End Sub
Dim myMsg As String, myTitle As String
Dim AddNum As Integer
myMsg = “追加するシート枚数を入力” myTitle = “ワークシートを挿入”
AddNum = Application.InputBox(Prompt:=myMsg, Title:=myTitle, _
Default:=1, Type:=1)
ActiveWorkbook.Worksheets.Add _
after:=Worksheets(Worksheets.Count), _
Count:=AddNum
End Sub
0 コメント:
コメントを投稿