개발 노트, Excel VBA.

1195 단어 Excel
1. 모든 Sheet를 가져와 현재 셀에 나열합니다.
 
Sub GetAllSheets()
    For i = 1 To Sheets.Count
            ActiveCell.Offset(1, 0).Range("A1").Select
           ActiveCell.Value = Sheets(i).Name
    Next i
End Sub

2. 위에 링크를 추가합니다.
Sub GetAllSheets()
For i = 1 To Sheets.Count
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Sheets(i).Name + "!A1", TextToDisplay:=Sheets(i).Name

Next i
End Sub

삼.

좋은 웹페이지 즐겨찾기