엑셀 자동화 끝판왕! ChatGPT로 10분안에 자동화 서식 만들기

Sub 테스트()
MsgBox "안녕하세요"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "안녕하세요"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

Sub 거래처검색_출력()
 
'------------------------------
' [코드 목적]
' [거래내역관리] 시트에서 B2, C2 조건에 맞춰
' [거래처DB] 시트에서 거래처를 검색 후,
' 결과를 [거래내역관리] 시트 B5:E열에 출력
'------------------------------
 
Dim wsDB As Worksheet ' 거래처DB 시트
Dim wsMng As Worksheet ' 거래내역관리 시트
Dim lastRow As Long ' 거래처DB 마지막 행
Dim i As Long ' 반복문용 변수
Dim 기준열 As Long ' 검색 기준열
Dim 검색조건 As String ' C2 셀 값
Dim dict As Object ' Dictionary 객체
Dim arrDB As Variant ' DB 전체 배열
Dim arrOut() As Variant ' 출력용 배열
Dim key As Variant
Dim resultCnt As Long
 
'------------------------------
' 시트 객체 설정
'------------------------------
Set wsDB = ThisWorkbook.Sheets("거래처DB")
Set wsMng = ThisWorkbook.Sheets("거래내역관리")
 
'------------------------------
' 검색 기준 가져오기
' B2: "거래처명" → DB 시트의 2열 검색
' B2: "구분" → DB 시트의 3열 검색
'------------------------------
Select Case wsMng.Range("B2").Value
Case "거래처명"
기준열 = 2
Case "구분"
기준열 = 3
Case Else
MsgBox "B2 셀에는 '거래처명' 또는 '구분'을 입력해야 합니다.", vbExclamation
Exit Sub
End Select
 
검색조건 = Trim(wsMng.Range("C2").Value)
If 검색조건 = "" Then
MsgBox "검색할 조건(C2 셀)이 비어있습니다.", vbExclamation
Exit Sub
End If
 
'------------------------------
' 거래처DB 데이터를 배열로 불러오기
' A1:F열 (거래처ID~최근거래일)
'------------------------------
lastRow = wsDB.Cells(wsDB.Rows.Count, 1).End(xlUp).Row
arrDB = wsDB.Range("A2:F" & lastRow).Value
 
'------------------------------
' Dictionary 생성 (빠른 검색용)
' key: 최근거래일 & 구분자, value: 거래처ID~최근거래일 데이터
'------------------------------
Set dict = CreateObject("Scripting.Dictionary")
resultCnt = 0
 
For i = 1 To UBound(arrDB, 1)
If arrDB(i, 기준열) <> "" Then
If InStr(1, arrDB(i, 기준열), 검색조건, vbTextCompare) > 0 Then
' 일치하는 경우 Dictionary에 저장
resultCnt = resultCnt + 1
' Key를 "최근거래일&순번" 으로 설정하여 정렬 시 중복 방지
dict(arrDB(i, 6) & "_" & resultCnt) = Array(arrDB(i, 1), arrDB(i, 2), arrDB(i, 3), arrDB(i, 6))
End If
End If
Next i
 
If dict.Count = 0 Then
MsgBox "조건에 맞는 데이터가 없습니다.", vbInformation
Exit Sub
End If
 
'------------------------------
' Dictionary → 배열 변환
' 최근거래일 기준 내림차순 정렬
'------------------------------
ReDim arrOut(1 To dict.Count, 1 To 4)
 
Dim arrKeys As Variant
arrKeys = dict.Keys
 
' Key(최근거래일)를 기준으로 정렬 (내림차순)
Dim j As Long, tmp
For i = LBound(arrKeys) To UBound(arrKeys) - 1
For j = i + 1 To UBound(arrKeys)
If Split(arrKeys(i), "_")(0) < Split(arrKeys(j), "_")(0) Then
tmp = arrKeys(i)
arrKeys(i) = arrKeys(j)
arrKeys(j) = tmp
End If
Next j
Next i
 
' 정렬된 Key 순서대로 배열에 담기
For i = 1 To dict.Count
tmp = dict(arrKeys(i - 1))
arrOut(i, 1) = tmp(0) ' 거래처ID
arrOut(i, 2) = tmp(1) ' 거래처명
arrOut(i, 3) = tmp(2) ' 구분
arrOut(i, 4) = tmp(3) ' 최근거래일
Next i
 
'------------------------------
' 출력 전 기존 데이터 삭제
'------------------------------
With wsMng
.Range("B5:E" & .Rows.Count).ClearContents
End With
 
'------------------------------
' 결과 배열 출력
'------------------------------
wsMng.Range("B5").Resize(dict.Count, 4).Value = arrOut
 
MsgBox dict.Count & "건의 검색 결과가 출력되었습니다.", vbInformation
 
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
'----------------------------------------
' [코드 목적]
' [거래내역관리] 시트의 B5:B1000 범위 중 하나를 선택하면
' 해당 거래처ID를 기반으로 거래처정보(DB)와 구매내역(DB)을 검색 후 출력
'----------------------------------------
 
Dim wsMng As Worksheet ' 거래내역관리 시트
Dim wsDB As Worksheet ' 거래처DB 시트
Dim wsBuy As Worksheet ' 구매내역DB 시트
Dim lastRow As Long
Dim rng As Range
Dim selID As String
 
Dim arrDB As Variant ' 거래처DB 배열
Dim arrBuy As Variant ' 구매내역DB 배열
Dim arrOut() As Variant ' 구매내역 출력용 배열
Dim i As Long, j As Long
Dim cnt As Long
Dim tmp
 
'----------------------------------------
' 시트 객체 설정
'----------------------------------------
Set wsMng = Me
Set wsDB = ThisWorkbook.Sheets("거래처DB")
Set wsBuy = ThisWorkbook.Sheets("구매내역DB")
 
'----------------------------------------
' 선택된 셀이 B5:B1000 범위 안에 있는지 확인
'----------------------------------------
Set rng = wsMng.Range("B5:B1000")
If Intersect(Target, rng) Is Nothing Then Exit Sub
 
' 선택된 셀이 여러 개일 경우 첫 번째만 사용
If Target.CountLarge > 1 Then Exit Sub
 
' 선택된 셀이 비어 있으면 동작하지 않음
If Trim(Target.Value) = "" Then Exit Sub
 
' 선택된 거래처ID 저장
selID = Trim(Target.Value)
 
'----------------------------------------
' [거래내역관리] H2, J2 초기화
'----------------------------------------
wsMng.Range("H2").ClearContents
wsMng.Range("J2").ClearContents
 
'----------------------------------------
' 거래처DB에서 거래처ID 검색 → 담당자(H2), 연락처(J2)에 출력
'----------------------------------------
lastRow = wsDB.Cells(wsDB.Rows.Count, 1).End(xlUp).Row
arrDB = wsDB.Range("A2:F" & lastRow).Value
 
For i = 1 To UBound(arrDB, 1)
If arrDB(i, 1) = selID Then
wsMng.Range("H2").Value = arrDB(i, 4) ' 담당자
wsMng.Range("J2").Value = arrDB(i, 5) ' 연락처
Exit For
End If
Next i
 
'----------------------------------------
' 구매내역DB에서 거래처ID 검색
' C열(3번째)에서 선택된 ID와 같은 행 추출
'----------------------------------------
lastRow = wsBuy.Cells(wsBuy.Rows.Count, 1).End(xlUp).Row
arrBuy = wsBuy.Range("A2:F" & lastRow).Value
 
cnt = 0
For i = 1 To UBound(arrBuy, 1)
If arrBuy(i, 3) = selID Then
cnt = cnt + 1
ReDim Preserve arrOut(1 To 5, 1 To cnt)
arrOut(1, cnt) = arrBuy(i, 1) ' 구매ID
arrOut(2, cnt) = arrBuy(i, 2) ' 날짜
arrOut(3, cnt) = arrBuy(i, 4) ' 제품명
arrOut(4, cnt) = arrBuy(i, 5) ' 수량
arrOut(5, cnt) = arrBuy(i, 6) ' 금액
End If
Next i
 
'----------------------------------------
' 기존 데이터 (G5:K열) 삭제
'----------------------------------------
wsMng.Range("G5:K" & wsMng.Rows.Count).ClearContents
 
'----------------------------------------
' 검색 결과 출력 (G5셀부터)
'----------------------------------------
If cnt > 0 Then
' arrOut을 전치(transpose)하여 행 방향으로 출력
wsMng.Range("G5").Resize(cnt, 5).Value = Application.Transpose(arrOut)
End If
 
End Sub