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

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

엑셀 다른파일 비교하기 2

VBA 조회 수 4008 추천 수 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
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 50247
482 엑셀일반 엑셀 그래프 관련 질문 [2] [레벨:4]나카타 2013-07-22 3554
481 VBA 도형에 회전에 관해서.... [5] [레벨:2]루이비나 2012-05-27 3555
480 엑셀 서식을..안 바뀌게 [1] [레벨:1]ottee 2010-10-04 3592
479 엑셀일반 하이퍼 링크 추가 질문 file [1] [레벨:5]눈물바다 2014-09-27 3605
478 날짜/시간 수식 엑셀 시간관련문의 file [1] [레벨:1]박주연 2013-02-08 3622
477 아별툴관련질문 스타일 삭제 질문입니다. imagefile [1] [레벨:0]blueclip 2011-12-07 3629
476 엑셀일반 엑셀로 임대료 계산 질문입니다. file [2] [레벨:5]정화 2013-07-31 3651
475 VBA 아별님 안녕하세요? 파이스입니다. _ 엑셀창과 VBE창 창전환 쉽게 하는 방법 [3] [레벨:6]파이스 2011-11-23 3657
474 엑셀일반 값더하기 단축기는 없나요? [4] [레벨:1]azess 2013-12-12 3659
473 함수질문입니다~^^ (셀 값 자체 변경하기_반올림) [1] [레벨:1]ctg0303 2011-04-14 3678
472 시각화 시켜논 셀의 모양을 표로 만들기(질문) file [4] [레벨:6]ryanoh 2010-09-30 3680
471 엑셀일반 시트의 연도별 사용내역 중 각 시트의 해당연도 페이지만 한꺼번에 인쇄하는 법? file [3] [레벨:4]성투은자 2013-04-02 3685
470 VBA VBA 실행시 경고 메세지 출력하기 [2] [레벨:5]맑은이슬 2013-06-21 3686
469 엑셀일반 폴더이름을 엑셀로 가져오고 싶습니다. imagefile [5] [레벨:1]통통삼겹살 2012-07-03 3690
468 엑셀일반 부분합 질문입니다. file [7] [레벨:5]정화 2013-02-06 3699
467 엑셀일반 엑셀 질문있습니다~! [1] [레벨:1]얀수기 2013-03-15 3709
466 엑셀일반 경력 합산 file [4] [레벨:3]읍내꽃미남 2014-01-07 3724
465 VBA 엑셀에서 웹페이지 종료하는 방법 [3] [레벨:1]sd99 2013-05-19 3728
464 엑셀일반 한가지 질문요 [레벨:1]싸이킥 2015-01-10 3740
463 엑셀일반 가입인사겸 질문올립니다. _ 파일오류,매크로바이러스,데이터손실 복구 방법 [3] [레벨:1]바람길 2011-11-16 3747