- Excel VBA 質問スレ Part37 [転載禁止]©2ch.net
703 ：デフォルトの名無しさん[sage]：2015/07/30(木) 04:18:29.77 ID:3TLsFD+R - Sub NewSheet(Name As String, ByVal cnt As Long)
Dim WS As Worksheet, f As Boolean
Dim NameCnt As String
If cnt Then NameCnt = Name & cnt Else NameCnt = Name
For Each WS In ThisWorkbook.Worksheets
If WS.Name = NameCnt Then f = True: Exit For
Next
If f Then
Call NewSheet(Name, cnt + 1)
Else
Set WS = ThisWorkbook.Worksheets.Add
WS.Name = NameCnt
End If
End Sub
|
|