| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
리스트에서 텍스트박스 값을 기준으로 검색하여 리스트박스에 구현하고 있습니다.. 이를 텍스트박스 두개로 이름+연락처 조건으로 하고자하는데 아무리 해봐도 되질않네요 ㅠ 인터넷으로 짜집기 하는 수준이라 너무 어렵습니다 ㅠㅜ 도움요청드립니다.
==============[leegun님 글에 대한 답변입니다]==============
검색버튼의 매크로를 아래와 같이 수정하세요.
Private Sub CommandButton1_Click()
Dim os As Range
Dim 찾은셀 As Range, 셀 As Range
Dim 행 As Integer, 열 As Integer
Dim 첫번째셀주소 As String
Dim 찾은정보() As Variant
ki = UCase(TextBox1.Value) '이름
kj = UCase(TextBox2.Value) '연락처
ListBox1.Clear
If Len(ki) > 0 Then
Set rData = Worksheets("테스트").Range("A23").CurrentRegion
Set os = rData.Columns("D")
Set 찾은셀 = os.Find(what:=ki, lookat:=xlPart)
If Not 찾은셀 Is Nothing Then
첫번째셀주소 = 찾은셀.Address
Do
ReDim Preserve 찾은정보(24, 행)
Set 레코드 = Intersect(찾은셀.EntireRow, rData)
If 찾은셀.Offset(0, 1) = kj Then ' 연락처 비교
For Each 셀 In 레코드
찾은정보(열, 행) = 셀.Value
열 = 열 + 1
Next
행 = 행 + 1
열 = 0
End If
Set 찾은셀 = os.FindNext(찾은셀)
Loop While Not 찾은셀 Is Nothing And 찾은셀.Address <> 첫번째셀주소
With ListBox1
.ColumnCount = 23
.ColumnWidths = "3.6cm;3.5cm;3.6cm;2.4cm;3cm;2.3cm;2.2cm;2.2cm;2.2cm;1.3cm;1cm;1.7cm;2.3cm;2cm;1.5cm;2.7cm;1.7cm;1.6cm;2cm;4cm;2.3cm;2.4cm;1.7cm"
.Column = 찾은정보
End With
Else
MsgBox "검색 결과가 존재하지 않습니다."
End If
End If
End Sub
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
