시트 추가하기

시트추가하기같은 하찮은걸 원했다기 보다는 시트를 추가했을 때, ‘첫번째 시트’가 바뀌게 되는데, 순서와 갯수를 컨트롤하는 것을 알아보고자 했다. 추가하는 건 덤으로 알게됐으니…;;;

myimg



Sub sheets_add()

Dim addNUM As Integer

On Error Resume Next
    Application.DisplayAlerts = False
      addNUM = Application.InputBox("시트를 몇장 추가하시겠습니까?", , , , , , , 2)
    Application.DisplayAlerts = True

If MsgBox("시트를 " & addNUM & "장 추가하시겠습니까?", vbYesNo) = vbYes Then
    Worksheets.Add before:=Worksheets(1), Count:=addNUM
End If

lsSHEETS_COUNT = Worksheets.Count

MsgBox _
"마지막워크시트 이름은 " & Worksheets(lsSHEETS_COUNT).Name & " 입니다." & vbCr & _
"첫번째워크시트 이름은 " & Worksheets(1).Name & " 입니다."

End Sub


여러가지 조건하고 조합해서 상황에 맞춰 쓰면 될 일이다.

끝.