Skip to content

콩이아빠2009.08.05 09:37
Sub 시트명정열()
Dim sCnt As Integer
Dim i As Integer

sCnt = ActiveWorkbook.Worksheets.Count
For i = 2 To sCnt
Sheets("main").Range("a" & i) = Sheets(i).Name
Next
End Sub
파일 첨부

여기에 파일을 끌어 놓거나 파일 첨부 버튼을 클릭하세요.

파일 크기 제한 : 0MB (허용 확장자 : *.*)

0개 첨부 됨 ( / )

Korea NO.1 VISION 2020 / Designed by HJS_Sketch

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소