[Excel] 시트 생성 VB

시트 생성 VB

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

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