ラベル ☆MSExcel の投稿を表示しています。 すべての投稿を表示
ラベル ☆MSExcel の投稿を表示しています。 すべての投稿を表示

2012/08/01

2012/07/19

2012/03/29

2012/03/28

ワークシートを任意の枚数挿入

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