| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | 5 | 6 | 7 |
| 8 | 9 | 10 | 11 | 12 | 13 | 14 |
| 15 | 16 | 17 | 18 | 19 | 20 | 21 |
| 22 | 23 | 24 | 25 | 26 | 27 | 28 |
| 29 | 30 | 31 |
Tags
- 태그를 입력해 주세요.
- 에러
- 한글
- 오류
- 회계
- 마이플랫폼
- java
- MIP
- 튜닝
- 이클립스
- DB
- oracle
- error
- Eclipse
- JEUS
- 도서
- 오라클
- Report Designer
- 성능
- 데이터베이스
- 함수
- Book
- 자바
- 엑셀
- JavaScript
- Excel
- Tomcat
- 기타소득
- 톰캣
- miplatform
Archives
- Today
- Total
어느 가을날의 전환점
EXCEL|엑셀 시트(Sheet) 목록 추출 방법 본문
해당 링크 바로가기
이걸 그대로 적용하면 좀 안되더군요.
VBA 기초를 이해한다면 제대로 적용할 수 있습니다.
- 일단 빈 시트를 하나 만들어 이름을 '목록'이라고 합니다.
- 매크로를 하나 만듭니다. 예컨대 '목록추출'이라고 하겠습니다.
- VBA 에디터를 실행합니다.
- 아래와 같이 코드를 입력해봅니다.
Sub 목록추출()
Dim SheetNames()
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
Sheets("목록").Select
Range("A1").Select
For i = 1 To SheetCount
SheetNames(i) = ActiveWorkbook.Sheets(i).Name
ActiveCell = ActiveWorkbook.Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub
이걸 그대로 적용하면 좀 안되더군요.
VBA 기초를 이해한다면 제대로 적용할 수 있습니다.
- 일단 빈 시트를 하나 만들어 이름을 '목록'이라고 합니다.
- 매크로를 하나 만듭니다. 예컨대 '목록추출'이라고 하겠습니다.
- VBA 에디터를 실행합니다.
- 아래와 같이 코드를 입력해봅니다.
Sub 목록추출()
Dim SheetNames()
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
Sheets("목록").Select
Range("A1").Select
For i = 1 To SheetCount
SheetNames(i) = ActiveWorkbook.Sheets(i).Name
ActiveCell = ActiveWorkbook.Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub
'Software' 카테고리의 다른 글
| EXCEL|SUBSTITUTE 함수로 문자열 치환하기(REPLACE) (0) | 2011.11.02 |
|---|---|
| 인코딩|UmileEncoder - 프리셋(SKY_K3G) (0) | 2011.06.30 |
| OZ|오즈 리포팅 툴 참조 링크 (0) | 2011.06.08 |
| CHROME|크롬 팁 - 양식 자동 완성 관리 / 삭제(제거) (0) | 2011.05.02 |
| ERwin|Window 7, Vista 등에서 도움말 실행 시 Not enough memory 오류 해결 방법 (0) | 2010.10.22 |
Comments