=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020101&docId=387367411&qb=7JeR7IWAIOyLnO2KuOydtOumhOydhCDshYDqsJLsnLzroZw=&enc=utf8&section=kin.ext&rank=9&search_sort=0&spq=0

Q) 엑셀 파일에서 시트가 100가지가 넘습니다.
한 시트에 100가지가 넘는 시트의 이름만 추출 할려고 합니다.
각 시트마다 더블클릭해서 이름 복사해서 붙여넣기는 너무 힘들더라구요
쉬운 방법이 없을까요?

A) 안녕하세요
답변이 없어 드려봅니다.

모듈창에  아래 매크로를 넣고 실행해 보세요. 
(Alt + F11 --> VBA창에서 --> 삽입 --> 모듈)

* stName(나열할 시트)에  버튼하나 만든 후
 아래 매크로명을 연결하고 클릭하면 매크로 실행됩니다.
도움이 되었기 바라며 날 마다 좋은 날 되헤요.


Sub 시트명나열()
  Dim Ws As Worksheet
  Dim ix As Integer, it As Integer

' stName은 시트명을 나열할시트의 시트명입니다. 
' 님의 해당 시트명으로 수정하세요.
  Set Ws = Sheets("stName")
  With Ws
     it = Worksheets.Count
     .Columns("A:B").EntireColumn.ClearContents
     .Range("a1:b1") = Array("No", "시트명")
     For ix = 1 To it
        .Cells(ix + 1, 1) = ix
        .Cells(ix + 1, 2) = Sheets(ix).Name
    Next ix
    .Columns("A:B").EntireColumn.AutoFit
  End With
End Sub


https://kin.naver.com/qna/detail.naver?d1id=1&dirId=102020101&docId=221244450&qb=7JeR7IWAIO2MjOydvOydmCDsi5ztirjsnbTrpoQ=&enc=utf8&section=kin.ext&rank=28&search_sort=0&spq=0 

7년전 실패했던 간월재를 이번 추석연휴 때 다녀왔다.

가장 쉬운 코스를 검색하여 결정한 배내2공영주차장에서 출발하는 코스로 다녀왔다.

'거의 산책 수준이다', '유모차 밀고도 갈 수 있다' 등등의 표현이 나돌 정도로 쉬운 코스다.

3시간에서 4시간 정도면 왕복가능하다.

코스 초입에서 볼 때는 그저 흐린 날씨라 생각했는데,

간월재에 가까이 다가갈수록 운무가 짙어졌다.

아주 완만한 경사길(임도)이라도 계속 걷다보니 허벅지가 뻐근해졌다.

그래도 그 뻐근한 느낌이 싫지 않았다. 육체가 건강해지는 느낌이 들어서다.

간월재에 올라서니 바람이 심하게 불었다. 심지어 추위를 느낄 정도였다.

나뭇잎은 단풍들고, 누런 억새가 바람 방향에 따라 이리 누었다 저리 누웠다할 모습을 상상하며 가을을 기다려본다. 

간만에 몰입감 최고의 드라마를 정주행 했다.

요즘 넷플릭스에서 최고로 평가받는 '수리남'이다.

내가 한때 좋아했던 하정우의 연기가 뛰어났다.

스토리는 논리적으로 흠이 있지만 속도와 긴장감 최고의 드라마로 손색없다.

다시 보고 또 보고 싶은 드라마다.

짧은 문구 속에 내가 목적한 내용을 온전히 표현하기 쉽지 않다.

그림1에서는 기준데이타가 A1:E26에 담겨져 있다.

이를 토대로해서 품목, 타입 및 주문수량을 감안하여 가격을 자동으로 산출한다.

산출수식은 그림1속에 표기해 둔다(네이버 지식IN에 내가 질문한 내용을 지식인이 알려준 내용임).

그림2는 기준데이타가 I5:Q10에 담겨져 있다.

포멧이 그림1과는 약간 다르기에 이 글에 담아 저장한다.

아래 내용은 내가 네이버 지식IN에 질문을 올려 얻은 답이다.

만약 품목A의 종류가 2개이면, 2개의 셀이 녹색으로 채워지고, 종류가 3개면 3개 셀이 녹색으로 채워지게 하는 것이다.

'B4:B13'블럭을 설정한 후 '조건부 서식'에서 아래와 같이 하면된다.

지식인 도움으로 해결은 했지만 왜 ROW(A1)을 사용하는지 모르겠다. 

앞선 글 "엑셀팁 - 특정 셀의 클릭시 새로운 시트 생성 & 이름 자동"과는

달리 이번 글은 이미 생성되어 있는 시트의 이름을 특정셀의 값으로 가져오는 것이다.

예를들면 홍길동의 자료가 담긴 시트가 있다면, A5셀에  '홍길동'입력하면 그 시트 이름이 '홍길동'으로 자동변환하게 된다.

엑셀에서 '홍길동' 시트 복사하면 시트 이름이 '홍길동 (2)'이 된다.

여기서 A5셀에 '이순신'을 입력하면 시트 이름이 '이순신'으로 자동변환된다.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("A5").Value
End Sub

본 글의 내용은 네이버 지식IN에 올려진 것을 그대로 옮겨왔다.

아래의 코드는 특정 셀에 입력된 내용을 '시트이름'으로 그대로 인용할 수 있는 코드다.

본 코드문에서의 특정 셀은 A2:A1100로 정하였으나 사용자의 의도에 따라 셀 범위를 변경가능하다.

주의할 점은 A2:A1100의 셀을 두번 클릭해야만 새로운 시트 생기면서 셀의 내용이 시트이름이 된다는 점이다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Range("A2:A1100"), Target) Is Nothing Then
        On Error Resume Next
        Dim sh As Worksheet
        Dim shA As Worksheet
        If Target.Value = "" Then Exit Sub
        Set shA = ActiveSheet
        Set sh = Worksheets(CStr(Target.Value))
        If sh Is Nothing Then
            Set sh = Worksheets.Add(, Worksheets(Sheets.Count), 1)
            sh.Name = CStr(Target.Value)
        End If
        shA.Activate
        Cancel = True
    End If
End Sub