# 시트 생성 VB

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

<sxh vb>
Sub copy_tomorrow_sheet()

    ' 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>