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

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

두 자료를 비교하여 같은 값을 다른 시트에...

조회 수 9652 추천 수 0 2010.05.11 21:04:48

입력 1과 입력2의 품목은  매일 그 수가 증가하고 입력2에 품목을 적으면 입력1과 비교하여 공통된 값(품목)을 다른 시트에 나타나게
하고 싶습니다.


댓글 '1'

profile

[레벨:30]아별

2010.05.14 04:08:04
*.166.197.43

와우.. 새벽 4시..

제가 미쳤나 봅니다. 내일 출근해야하는데.. ㅋㅋ

 

첨부파일에 자세히 적었으니..  참고하세요..

abyul_QnA_QueryJoin_20100514-2.xls

 

일단.. 님이 요구하시는 것은..

DataBase를 결합하는 문제와 비슷해서 SQL을 사용했습니다. 

엑셀의 기본 기능인 데이터 통합이나.. 고급필터 따위로는 불가능하죠..

 

첨부파일에는 외부데이터 연결을 통해서 SQL을 사용하는 방법을 나름~ 상세히 적어놨구요..

실제 기능 구현은 아래의 VBA코드로 했습니다.

아래 코드들이 사용됐습니다.

 

사실 구현은 좀 더 일찍 끝났지만.. 자꾸 에러가 나서 에러 찾는데 시간을 좀 보냈습니다.

에러의 원인은.. 회원님이 주신 샘플 데이터에서 "입력2" 테이블의 "품목" 필드명이 "픔목"이기 때문이었습니다. 두둥!

프..음..목.. =_=;;;

 

Option Explicit

 

Dim strFilePath As String
Dim strFolder As String
Dim strQuery As String
   
Sub makeQueryTable()
   
    strFilePath = ThisWorkbook.FullName
    strFolder = ThisWorkbook.Path
    strQuery = "SELECT s1.품목,  s1.규격,  s1.단가 FROM DBinput1  s1, DBinput2  s2 WHERE s1.품목 = s2.품목"

    Dim rngTarget As Range
    Set rngTarget = ActiveSheet.Range("B2")
   
    Dim qt As queryTable
    If ActiveSheet.QueryTables.Count >= 1 Then
        For Each qt In ActiveSheet.QueryTables
            qt.Delete
        Next qt
    End If

    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Excel Files;DBQ=" & strFilePath & " ;DefaultDir=" & strFolder & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5" _
        ), Array(";")), Destination:=rngTarget)
        .CommandText = Array(strQuery)
        .Name = "abyulQuery001"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

End Sub


Sub ShowDB1()
    strQuery = "SELECT * FROM DBinput1"
    Call changQuery
End Sub

Sub ShowDB2()
    strQuery = "SELECT * FROM DBinput2"
    Call changQuery
End Sub

Sub ShowDBAll()
    strQuery = "(SELECT * FROM DBinput1) UNION ALL (SELECT * FROM DBinput2)"
    Call changQuery
End Sub

Sub ShowDoubleCode()
    strQuery = "SELECT s1.품목,  s1.규격,  s1.단가 FROM DBinput1  s1, DBinput2  s2 WHERE s1.품목 = s2.품목"
    Call changQuery
End Sub


Private Function changQuery()
    If strFilePath = "" Then strFilePath = ThisWorkbook.FullName
    If strFolder = "" Then strFolder = ThisWorkbook.Path
    With ActiveSheet.QueryTables(1)
        .Connection = Array(Array( _
        "ODBC;DSN=Excel Files;DBQ=" & strFilePath & " ;DefaultDir=" & strFolder & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5" _
        ), Array(";"))
        .CommandText = Array(strQuery)
        .Refresh BackgroundQuery:=False
    End With
End Function

 


첨부
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40187
821 엑셀일반 엑셀파일 비밀번호 단체 설정 가능한가요? [30] [레벨:4]쟈니 2012-06-18 53734
820 엑셀일반 회원만 질문을 올릴 수 있습니다. [레벨:30]아별 2010-09-21 33139
819 기타 [필독] 질문시.. 엑셀 파일 첨부, 윈도우버전과 엑셀버전 표기, 답변 받으면 피드백 댓글 꼭 달기.. [레벨:30]아별 2011-08-11 26717
818 엑셀일반 행높이 최대치 조절 가능할까요? _ Excel 사양 및 제한 [3] [레벨:6]파이스 2012-06-01 14256
817 엑셀 웹커리에서 URL 바꾸기 매크로 질문 [1] [레벨:1]밥사마 2009-09-01 13153
816 엑셀- sumif와 sumcol 혼용사용에 대해서 (급해요) [1] 아놔 2009-07-31 12873
815 엑셀일반 엑셀에서 사진 고정하는 방법 없을까요? [3] [레벨:3]빛의행운아 2012-07-30 12555
814 제가 해외 사우디에서 파일을 받았는데 글씨가 계속 깨짐니다. file [1] [레벨:0]홍콩중국홍콩 2010-05-10 10880
813 또 다시 질문이 있어서 왔습니다. (일자별 관리시트에서 이전 시트 값(전일 잔액 등) 자동 불러오기) file [1] [레벨:3]harcz 2010-05-22 10838
812 엑셀수식 3차 방정식 풀기. [1] [레벨:3]rynoel 2012-06-13 10688
811 엑셀에서 지수값 계산하기 [1] [레벨:2]양다원 2009-07-21 10348
810 셀색깔별로 합계를 내고 싶습니다. file [1] [레벨:1]지민 2010-04-09 10329
809 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10168
808 엑셀 주식형 차트 2009-08-17 9904
807 엑셀에서 특정데이터 불러오기 [1] [레벨:1]쒸뱅이 2009-07-17 9858
806 엑셀일반 셀 안에 삽입된 이미지의 정가운데(가로+세로)정렬 방법이 궁금합니다. [6] [레벨:6]파이스 2011-10-11 9779
805 VBA 엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select imagefile [1] [레벨:5]눈물바다 2009-08-27 9729
» 두 자료를 비교하여 같은 값을 다른 시트에... file [1] [레벨:1]프로도 2010-05-11 9652
803 시트 이동/복사 시 나오는 에러에 대해 질문드립니다 [1] [레벨:1]잔차 2010-02-10 9616