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

작성자:  

 가라미07 (garami07)

추천:  3
파일:     리스트박스 테스트용.xlsb (24.9KB) 조회:  1030
제목:   VBA 리스트박스 검색 의 시작주소를 바꾸고 싶은데...
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(2019):

* 아래줄에 질문을 작성하세요 >>

안녕하세요 
정말 오랜만에 이곳에 방문하였습니다. 

왠만하면 혼자 해결하려고 했는데, VBA를 배운적이 없다보니 힘들어서 염치 없이 질문 드립니다. 

유튜브 강좌를 보면서 어찌 어찌 리스트 박스 검색폼은 만들었는데, 주소를 바꾸려니 안되네요. 

변경할 내용은

1. Sheet1 -> DB 시트
2. 시작셀 : A1 - > C16 입니다. 

고객 정보DB가 워낙 많다보니.. (8천개정도) 검색기능을 넣어야 했습니다. 

부탁드립니다. 

그리고 감사합니다.
 
[불량 게시물 신고]  
voice기존 Sheet1. 부분을 Worksheets("DB") 로 바꾸면 됨니다.

Set RNG = Worksheets("DB").Range("C16").CurrentRegion

If InStr(UCase(Worksheets("DB").Cells(RO + 15, "C")) & Worksheets("DB").Cells(RO + 15, "D"), UCase(Me.TextBox1)) > 0 And Me.TextBox1 <> "" Then

Me.ListBox1.List(ListBox1.ListCount - 1, CLN - 1) = Worksheets("DB").Cells(RO + 15, CLN + 2)
08-02 (13:01)
삭제 ■신고
가라미07voice님 감사합니다. 덕분에 해결되었습니다.08-02 (15:12)
삭제 ■신고
손님55503-31 (18:36)
삭제 ■신고
        
  

작성일 : 2023-08-02(01:55)
최종수정일 : 2023-08-02(01:55)