-
여러 시트를 쉽게 이동하기VB(A) 2018. 1. 5. 13:13
100개의 시트가 있을 때 이를 쉽게 이동할 수 있는 트리형 매크로
추가기능을 활용하여 어느 시트에 있든 매크로를 쉽게 실행할 수 있다.
아래 코드는 노드를 추가하는 내용
Private Sub CreateNodes()Dim i As IntegerDim j As IntegerDim c As IntegerFor i = 1 To 100 Step 10TreeView1.Nodes.Add Key:=Sheets(i).Name, Text:=Sheets(i).Name & " ~ " & Sheets(i + 9).NameFor j = 1 To 10TreeView1.Nodes.Add Sheets(i).Name, relationship:=tvwChild, Text:=Sheets(j + c).NameNext jc = c + 10Next iEnd Subcs 'VB(A)' 카테고리의 다른 글
[정규식] 숫자를 한글로 변환 (0) 2018.02.23 도로명주소 가져오기 (0) 2018.02.13 [정규식] 텍스트 파일을 조건에 맞게 쪼개서 가져오기 (0) 2017.12.31 웹페이지 파싱 (0) 2017.09.23 [월보용] 데이터 합치기 (0) 2017.09.01 댓글