일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
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 |
- 기타소득
- DB
- 이클립스
- Book
- 에러
- 튜닝
- JavaScript
- java
- 한글
- 데이터베이스
- oracle
- 태그를 입력해 주세요.
- 성능
- Excel
- 함수
- Eclipse
- Report Designer
- 오류
- 회계
- MIP
- 톰캣
- error
- 도서
- 오라클
- miplatform
- 엑셀
- 마이플랫폼
- 자바
- Tomcat
- JEUS
- Today
- Total
목록sheet (3)
어느 가을날의 전환점
● 오류 내용엑셀의 sheet를 복사 시 이름 중복 오류가 발생 함.- 이동하거나 복사하려는 시트에 대상 워크시트에 있는 이름 ~이 있습니다. ● 해결 방법해당 시트에 이미 동일한 손상된 이름이 포함되어 있는 경우 발생. 1) [수식]-[이름 관리자]에서 사용하지 않거나 직접 만들지 않은 이름을 모두 제거. (Print Title/Print Area를 제외하고 모두 삭제.) 2) 이름을 제거한 후에도 동일한 이름 관련된 창이 나타난다면, 숨겨진 이름이 있는 경우. VBA 매크로(Alt+F11)를 실행하여 [삽입]-[모듈]에 아래 내용을 입력해 후 실행(F5). Sub Show_Names()'/// (숨겨진) 모든 이름을 보이게 함Dim n As NameFor Each n In ThisWorkbook.Na..
* File Path + [File Name] + Sheet Name:=Cell("filename")C:\Documents\[sample.xlsx]sheet1 * File Name:=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1,SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)sample.xlsx #참조https://support.microsoft.com/en-us/kb/323225
해당 링크 바로가기 이걸 그대로 적용하면 좀 안되더군요. 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 = ..