[함수]파일 및 시트명

시트명 

=REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"")

년/월/시트명

=DATE(YEAR(TODAY()),MONTH(TODAY()),REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),""))

파일명 

=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-5)

현재파일의 시트로의 하이퍼링크

=HYPERLINK(CONCATENATE(MID(CELL("filename"),FIND("[",CELL("filename")),FIND("]",CELL("filename"))-FIND("[",CELL("filename"))+1), K2, "!a8"),K2)

줄바꿈

CHAR(10)

시트명 오름차순정렬 메크로

Sub SheetsSort()

 Dim i As Integer

 Dim j As Integer

 Dim intCount As Integer

 Dim varTemp

 Dim strName() As String

    

   intCount = Sheets.Count

    ReDim strName(intCount)

    

    For i = intCount To 1 Step -1

        strName(i) = Sheets(i).Name

    Next i

    

    For i = UBound(strName()) - 1 To LBound(strName()) Step -1

        For j = 1 To i

            If strName(j) > strName(j + 1) Then

                varTemp = strName(j)

                strName(j) = strName(j + 1)

                strName(j + 1) = varTemp

                Sheets(varTemp).Move after:=Sheets(strName(j))

            End If

        Next j

    Next i

    Sheet1.Activate

End Sub