시트 생성 VB

엑셀에서, 기존의 시트를 복사하는 스크립트 입니다.

<sxh vb>
Sub copytomorrowsheet()

' basic 시트를 찾는다.
' 복사
' 이름 바꾸기
' 날짜 셀 바꾸기.

Dim sIdx As Integer
Dim sCnt As Integer
Dim strName() As String
Dim sName As String
Dim sDate As Date

' 전체 시트수를 얻는다.
sCnt = Sheets.Count
            
' 맨 앞 시트에 삽입
' ActiveWorkbook.ActiveSheet.Copy Before:=ActiveWorkbook.Sheets(1)

' 맨 마지막 시트에 삽입
ActiveWorkbook.ActiveSheet.Copy After:=ActiveWorkbook.Sheets(sCnt)
    
' 동일한 날짜의 시트가 있는지 확인한다. 있으면 그 다음날짜로(+1) 변경한다.
sDate = Date
sName = sDate
For sIdx = 1 To sCnt Step 1
    If sName = Sheets(sIdx).Name Then
        sDate = sDate + 1
        sName = sDate
        ' 처음 시트부터 다시 비교한다.
        sIdx = 1
    End If
Next sIdx

' 시트의 이름을 지정한다.
ActiveSheet.Name = sDate


' 특정 셀에 값을 입력한다.
ActiveWorkbook.Sheets(sName).Range("P2").Value = sName

End Sub
</sxh>