1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

엑셀 다른파일 비교하기 2

VBA 조회 수 3613 추천 수 0 2012.08.23 16:06:34

안녕하세요. 아별님 파이스입니다!


그간 폭염같은 무더위에 이어

이제는 질릴것 같은 빗줄기까지... 잘 지내고 계셨나요?


오늘은 지난번에 드렸던 질문의 확장판(?) 같은 것인데요,

우선 지난번에 가르쳐 주신 다음과 같은 프로시져가 있습니다.


Option Explicit

Sub compareSheets()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim r As Long, c As Long
    Dim maxr As Long, maxc As Long
    Dim diff As Long

    Set ws1 = Sheets(1)
    Set ws2 = Sheets(2)

    maxr = ws1.UsedRange.SpecialCells(xlLastCell).Row
    maxc = ws1.UsedRange.SpecialCells(xlLastCell).Column

    diff = 0
    For r = 1 To maxr
        For c = 1 To maxc
            If ws1.Cells(r, c).Formula <> ws2.Cells(r, c).Formula Then
               diff = diff + 1
               ws1.Cells(r, c).Interior.ColorIndex = 3
               ws2.Cells(r, c).Interior.ColorIndex = 3
            End If
        Next c
    Next r

    MsgBox "다른셀의 개수 :" & diff

End Sub


위의 내용은 서로다른 두시트를 비교하는 내용으로,


7, 8행 의

Set ws1 = Sheets(1)
Set ws2 = Sheets(2)

부분을


Set ws1 = workbook(1).Sheets(1)
Set ws2 = workbook(2).Sheets(1)

로 변형하기도 하면서 잘 쓰고 있었는데요,


갑자기 이런 상황이 발생한 것입니다.

각각 시트가 10개 이상인 2개의 엑셀파일(워크북)을 통채로 비교하려면 어떻게 해야되지???

저는 순간 멍해지면서 이리저리 수정 해보기 시작했습니다.


위의 7,8행을

Set ws1 = workbook(1)
Set ws2 = workbook(2)

으로도 고쳐보고


Set ws1 = workbook(1).Sheets(1)&Sheets(2)&Sheet(3)......
Set ws2 = workbook(2).Sheets(1)&Sheets(2)&Sheet(3)......

으로도 고쳐보고


3행의 ws1 지정도 workbook으로 바꾸어보고 해봤으나...


아쉽게도 모두 작동하지 않았습니다. ㅠ.ㅠ


위와 같은 상황에서 한수 가르침을 청하겠습니다.

편안한 하루 보내십시오.


댓글 '2'

profile

[레벨:30]아별

2012.08.28 23:53:48
*.130.73.75

파이스님..

VBA의 기본 개념 부터 다시 공부해보실 것을 권해드립니다.

책을 한권 사서 엑셀의 개체 모델부터 찾아보세요..

 

Application이 최 상위고..

Workbook 다음에 WorkSheet 그리고 맨 하단이 Range입니다.

 

시트가 각각 10개인 웍북을 비교하려면 어떻게 하겠습니까?

set wb1 = workbooks(1)

set wb2 = workbooks(2)

라고 각각의 웍북을 정의해주고요..

 

for i = 1 to wb1.Sheets.count

      ' 이 안에 각각의 웍크시트를 비교해주는 기능이 필요하겠죠?

      if wb1.sheets(1).cells(1,1) = wb2.sheets(i).cells(1,1) then

             '셀에 체크..

      End If

next i

 

위 수식에서 cells안의 (1,1) 질문 올리신 글의 r과c에 대응해서 변경해보시기 바랍니다.

 

일단 이정도만 팁을 드려봅니다.

물고기를 잡는 방법을 알려드리는 심정으로 댓글 달아봤습니다.

 

 

그냥 잡아드리는게 좋을까요?

답변을 달면서 항상 하는 고민입니다.

 

즐거운 하루 되세요.. ^^

[레벨:6]파이스

2012.09.14 15:47:15
*.39.170.193

넵 답변이 늦었습니다. 죄송합니다.

확실히 물고기를 잡아보고 다시 글 남기도록 하겠습니다 + +

친절하고 자세한 답변 감사합니다!

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40215
482 엑셀일반 메크로 사용법좀 알려주세요 [1] [레벨:1]everytting 2012-08-31 1566
481 엑셀수식 조건부서식과 "숫자"&"문자" 글자 높이 문제 file [2] [레벨:4]성투은자 2012-08-30 3091
480 피벗테이블 피벗테이블 옵션 file [3] [레벨:3]블루짱이 2012-08-29 1620
479 VBA .Find Find 함수를 이용한 검색 관련 질문 [1] [레벨:1]YeonG 2012-08-28 2534
478 피벗테이블 함수 관련 질문 드립니다. _ 피벗테이블로 요약하기 기초 file [1] [레벨:3]블루짱이 2012-08-28 1529
477 이미지,도형 등 엑셀 이미지 첨부 질문... _ 이미지 첨부시 파일 연결로 엑셀 파일 용량 줄이는 방법 [4] [레벨:2]큰아빠에요 2012-08-28 8313
476 엑셀버그 상대참조 수식 관련해서 질문입니다~ _ 상대참조 복사가 안되는 엑셀 버그 file [3] [레벨:4]요셉 2012-08-27 1812
475 배열수식 엑셀의 신님께 질문드립니다. _ 배열수식으로 데이터 왼쪽 정렬로 표시하기 file [3] [레벨:1]현구 2012-08-24 1913
474 엑셀수식 고수님들 도와주세요 ~ 엑셀에서 글자색에 따른 if함수 수식 가능해요? [1] [레벨:1]관절결림 2012-08-23 3944
» VBA 엑셀 다른파일 비교하기 2 [2] [레벨:6]파이스 2012-08-23 3613
472 차트 추세선 시작점, 그래프 시작과 맞추는 법 imagefile [2] [레벨:4]쟈니 2012-08-21 4561
471 엑셀일반 엑셀 숨겨진데이터에 맞춰서 내용붙여넣기 방법문의요^^ [3] [레벨:1]가까이하기엔먼엑셀 2012-08-16 2097
470 VBA 파일&폴더 파일 만들기 _ 파일 생성, 폴더 생성, 파일 존재하는지 여부 확인 등 [4] [레벨:3]엑셀대단해 2012-08-15 7349
469 엑셀수식 제가 질문을 잘못 드린것 같아요? file [4] [레벨:2]북곰 2012-08-14 1502
468 엑셀수식 엑셀 질문 입니다? file [1] [레벨:2]북곰 2012-08-13 1470
467 엑셀수식 공백에만 동일한 함수 넣기! [4] [레벨:3]jmsynn 2012-08-13 1706
466 pivot 다중범위통합 ㅠㅠ 할수없이 _ 피벗테이블 다중 통합 범위 [4] [레벨:5]눈물바다 2012-08-08 3885
465 엑셀수식 수식질문이욤.ㅠㅠ [1] [레벨:5]눈물바다 2012-08-08 1602
464 엑셀일반 특정 조건에 맞는 행(또는 열) 삭제 방법 궁금해요~ [2] [레벨:3]jmsynn 2012-08-07 2923
463 VBA .Find 주소 검색기 이름중복검색 file [3] [레벨:1]최종원 2012-08-07 2852