논리일까, 직관일까?

VBA랑 그다지 친한 사이는 아니지만 아래와 같이 짜 봤습니다. 되도록 확장을 고려했고 예시하신 대로 외곽선, 셀 병합을 하도록 하다 보니 코드가 길어졌는데, 찬찬히 보시며 응용해 보세요. (데이타에 셀 병합이 없을 경우) 　 A B C D E 1 d:\data\excel\test\ 가져올 열 수 2 2 3 2008-11-27 4 파일명 시트명 데이터..

A B C D E F G H I J K L M N O P Q R 1 날짜 요일 휴무 계획 연도 2009 번호 성명 코드 개수 휴무일 2 2009-01-01 5 8 -2 0 계획 월 1 1 A 8 4 6 14 21 28 　 3 2009-01-02 6 6 5 0 2 B 7 4 8 15 22 29 　 4 2009-01-03 7 4 -2 0 확인 결과 3 C 4 4 6 13 20 27 　 5 2009-01-04 1 7 -2 0 4회 여부 11 4 D 1 4 9 16 23 30 　 6 2009-01-05 2 10 9 0 A 목요일 x 0 5 E 2 4 3 11 22 29..

http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=FoR8fAi5rWgyt6BTlOqsmQAptbWObuXK 　 A 1 중구 필동 1번지 2 중구 필동 1-11 3 중구 필동 1-2 4 중구 필동 1 희망APT 1001-203 5 중구 필동 1 희망APT 101-204 6 중구 충무로2가 3-5 7 중구 충무로2가 31 A빌딩 5층 8 중구 충무로2가 31 A빌딩 502호 9 중구 충무로2가 산30번지 10 중구 충..

http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=kZ9tfO7fdboPQs7T+4Sw2K+Woa1WWzMC 1. 함수 방식 　 A B C D E F G H I J K L M N O 1 2 5 3 5 3 25 16 27 0 4 4 3 4 5 3 9 12 15 5 7 6 32 1 2 2 4 15 5 7 6 32 9 27 14 18 23 2 3 5 5 13 11 25 49 33 　 　 　 　 　 3 2 0 6 5 3 25 16 27 15 5 7 6 32 0 2 2 7 9 27 14 18 23 5 3 25 16 27 1 3 4 8 13 11 25 49 33 2 2 3 9 　 　 　 　 　 ..

http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=GAyTP/AXQwwVu6bQ3VKOsUWtyLATqcXH 　 A B C D 1 1 IMC101 I651-IB-S081/1 2 2 2 IMC101 I730-EC-101 2 3 3 IMC101 I730-EC-201 2 4 4 IMC101 I730-EC-301 2 5 5 IMC101 I730-EC-401 2 데이타가 위와 같이 A열 부터 위치할 때, 아무 데이타든지 클릭한 후 아래 매크로를 호출하면 됩니다. ------------------------..

http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=GAyTP/AXQwwVu6bQ3VKOsUWtyLATqcXH 　 A B C D 1 1 IMC101 I651-IB-S081/1 2 2 2 IMC101 I730-EC-101 2 3 3 IMC101 I730-EC-201 2 4 4 IMC101 I730-EC-301 2 5 5 IMC101 I730-EC-401 2 데이타가 위와 같이 A열 부터 위치할 때, 아무 데이타든지 클릭한 후 아래 매크로를 호출하면 됩니다. ------------------------..

http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=F58Bnp3HKRQdqYHoxQEGbQ7uZdb74Ouj Sub 구분행_삽입() Dim i As Integer Dim icount As Integer Dim irow As Integer ' 행 삽입 irow = ActiveSheet.Range("c1").CurrentRegion.Rows.Count '전체 행 수 For i = irow To 2 Step -1 If Cells(i, 3) <> Cells(i - 1, 3) Then '직전행과 데이타가 다르면 Rows(i).Insert '행 삽..

http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=3EyGLOqSHaN6aKDnS5LSfwWHz6QD0j7F 아래 코드를 참조하여 작업해 보세요. 제 나름대로 문제없이 데이타를 가져옴을 확인했습니다. (질문의 마지막 부분, '참조 파일들을 열지않고' 데이타를 가져오는 건 불가능할 것인 바, 사람이 일일이 화일을 열어주지 않더라..

아래와 같이 짜 봤으나 이상하게 실행속도가 느림. 향후 점검용...(2008.02.07) Sub 합계검색() ' ' 합계검색 Macro ' ' Keyboard Shortcut: Ctrl+Shift+T Dim i, j, k, l, cr, nrow, ncol, myAns, srow, scol, strt As Byte nrow = 16: ncol = 3 srow = 2: scol = 1 ReDim A(nrow, ncol) As Long ReDim B(ncol) As Long ReDim c(ncol) As Byte 'Reading For i = 0 To ncol For j = 0 To nrow..

먼저 만든 조합(combination)을 원용하여 합산 조합을 구하는 프로그램임. 더 효율적으로 작성할 날이 언젠간 오겠거니...(2008.09.04) CTRL+Break (Pause)로 중단됩니다. 진행 상품 금액 데이터 개수 15 5 0 MBS 312,000 허용 오차 0 3 1 ABS 107,000 조합 합계 682,821 4 2 가스공사채권 249,000 6 3 도로공사 124,500 10 4 고속철도공..