[ 엑셀VBA ] 시트이동

 

 

[ 엑셀VBA ] 시트이동

 

 

엑셀에서 다양한 서식이나 프로그램을 만들다 보면 시트이동을 하는 경우가 많다. 일반적으로 정해진

 

이름을 갖는 시트이동의 경우 매크로를 사용하여 이름을 정해놓고 하나씩 지정이 가능한데 새로운

 

이름이 생성된다음 해당 시트로 이동해야하는 경우는 조금은 난감할 때가 있다.

 

 

1. 아래는 일정한 셀에 시트이름을 입력 후 이동하는 방법

2. Input상자를 통해 이름을 입력받아 이동하는 방법

 

위 두가지 코드를 포스팅해본다.

 

 

일정한 셀에 시트이름을 입력 후 이동하는 방법

Public Sub SelectSheet()
    Dim SheetName As String
    Dim NewSheet As Worksheet
    
    SheetName = ActiveSheet.Range("A4").Value   --> A4값을 시트이름으로 지정/새시트생성
    If Evaluate("ISERROR(" & SheetName & "!A1)") Then
        Worksheets("Template").Copy After:=Worksheets(Worksheets.Count)
        Set NewSheet = ActiveSheet
        NewSheet.Name = SheetName
    Else
        Worksheets(SheetName).Activate
    End If

End Sub

 

 

 

Input상자를 통해 이름을 입력받아 이동하는 방법
Public Sub SelectSh()

    Dim SheetName As String
    Dim a As String
    a = Application.InputBox("시트이름 입력", a)
   
    SheetName = a  --> InputBox값을 시트이름으로 지정/새시트생성
    If Evaluate("ISERROR(" & SheetName & "!A1)") Then
        Worksheets("Template").Copy After:=Worksheets(Worksheets.Count)
        Set NewSheet = ActiveSheet
        NewSheet.Name = SheetName
    Else
        Worksheets(SheetName).Activate
    End If
End Sub

 

 

위 내용이 도움이 되었길바라며 포스팅을 마감한다.

 

 

 

시트이동.xls