다른 워크 시트와 같이 삽입 된 워크 시트의 이름을 지정합니다.

Question

통합 문서에 새 시트를 추가하고 활성 워크 시트와 똑같은 이름을 지정하고 그 뒤에 '이라는 이름을 지정하고 싶습니다. 활성 시트의 이름이 0908 인 경우 새로 삽입 한 워크 시트의 이름을 0908'으로 지정합니다.

조금 씩 검색하여 다른 시트에 대한 참조가있는 시트의 이름을 지정하는 방법을 보았습니다. 다른 워크 시트의 값에 대해서만 이름을 지정했습니다.

다른 워크 시트 내부를 참조하기위한 코드입니다.

Worksheets.add.Name = Worksheets("MENU").Range("B2").value 

Answer 1

이와 비슷한 것이 좋습니다.

Worksheets.add.Name = ActiveSheet.Name & "xxx" 

활성 시트의 이름을 읽고 문자열을 추가하기 만하면됩니다.

하지만 시트 끝에 아포스트로피가 작동하지 않습니다!

Worksheets.add.Name = ActiveSheet.Name & "'s" 

Answer 2

당신은 같은 코드를 찾고 될 수 있습니다이 같은 다른 문자 뒤에 경우
에만 허용됩니다.

Dim WsName As String 
Dim Ws As Worksheet 

WsName = ActiveSheet.Name 
Set Ws = Worksheets.Add(After:=Worksheet(Worksheets.Count)) 
Ws.Name = WsName & "1" 

Answer 3

는 " '"후 문자가 있어야, 당신이 후 공간을 추가

Worksheets.Add.Name = ActiveSheet.Name & "' " 

사용할 수있는'당신이 찾고 있던 효과를 줄 것입니다.