|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): 2000
3. CPU (486,PentiumI/II/III/IV...): IV
4. RAM (32,64,128,256,512MB,1G...): 256
* 아래줄에 질문을 작성하세요 >>
안녕하세요.. 연일 고생이 많습니다.
질문 904번에 올린 내용인데... 제가 아직 초보라... 답을 주셨는데도..
응용이 힘들어서 실무문서를 직접 올립니다.
고수님들.. 부탁드립니다.
==============[문혜주님 글에 대한 답변입니다]==============
좋은 답변이 올라왔지만 기왕 만든 거 올립니다.
DAO를 이용했습니다...
하시는일 잘 되시기를......
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("u9").Address Then
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Qry As String
Dim tempQry As String
Dim i As Integer
Dim splitArr As Variant
Dim str As String
Qry = "SELECT 기계ID "
Qry = Qry & "FROM [리스트$] "
Qry = Qry & "WHERE 관리번호 in(" & Target.Value & ");"
Set db = OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0;")
Set rs = db.OpenRecordset(Qry)
With rs
If rs.RecordCount = 0 Then Exit Sub
Do Until .EOF
str = str & !기계ID & " "
.MoveNext
Loop
str = Left(str, Len(str) - 1)
Range("F9").Value = str
End With
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End If
End Sub
|
|