Vba 콤보 상자 컨트롤은 어떻게 퍼지 검색+병음 검색을 합니까?

개인 하위 워크시트 _SelectionChange(ByVal 대상을 범위로)

오류 발생 시 다음 단계로 진행합니다

Dim strN 을 문자열로 사용

Set CNN = createobject ("adodb.connection")

Cnn 입니다. Open "공급자 = microsoft.jet.oledb.4.0; 데이터 소스 = Z:\ KD \ KD data \ "& amp；; 루스 리프 3. [D2] & "데이터베이스. Mdb'

Sql = "청구 데이터에서 다른 고객명 선택"

StrN = "청구 데이터에서 다른 고객명 선택"

IsNull(strN) 인 경우

MsgBox "데이터베이스가 비어 있을 수 있음"

기타

Arr = CNN 입니다. 실행 (SQL). GetRows

루스 리프 3. 콤보 상자1. List = 워크시트 기능. 돌리다

만약 (목표). 열 = 2 또는 대상. 열 = 3) 및 대상. 그럼 로우 = 2

날짜 (대상) 인 경우

달력 1. 가치 = 목표

기타

달력 1. 오늘

만약 ... 끝날거야

달력 1. Visible =-1

달력 1. Top = ActiveCell 입니다. Top+ActiveCell 을 누릅니다. 높이

달력 1. 왼쪽 = ActiveCell. 왼쪽

기타

달력 1. 표시 = 0

만약 ... 끝날거야

만약 ... 끝날거야

시트 3 인 경우. 셀 (2,3) < & gt ""또는 시트 3. 셀 (2,3) < & gt ""그럼

루스 리프 3. 콤보 상자1. 값 = ""

만약 ... 끝날거야

잘 지냈어요.