나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 신동 (sindong404)

추천:  2
파일:     도와주세요[47].xls (31.5KB) 조회:  3502
제목:   위에 대한 파일입니다.; 다시 답니다;
　 　 　
　 ;ㅋ 　
[불량 게시물 신고]  
황기성Sub 폼불러오기()
Dim c As Range
Dim rngDb As Range
Set rngDb = Range("B2:B" & Range("B1").End(xlDown).Row)

With UserForm1
    .ListBox1.Clear
    For Each c In rngDb
        If Application.WorksheetFunction.CountIf(Range(c.Offset(0, 1), c.Offset(0, 5)), "+") >= 5 Then
            .ListBox1.AddItem c.Value
        Else
        End If
    Next c
    .Show
End With
End Sub

데이터의 양이 많다면 고급필터로 처리한 뒤, 그 데이터를 한꺼번에 가져오도록 하세요

그럼...행운이 있으시길...!		07-31 (12:40)
ⓧ삭제 ■신고
신동감사합니다..ㅜ_ㅜ07-31 (12:48)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-31(12:22)
최종수정일 : 2003-07-31(12:22)
　


 ◎ 관련글
  제 목   작성자   날짜
도와주세요~ 신동 2003-07-31
◎ 위에 대한 파일입니다.; 다시 답니다; 신동 2003-07-31
위에 대한 파일입니다.; 다시 답니다; 사내 2003-07-31
위에 질문에 대한 파일입니다 비포앤에프터 2003-07-31