사이즈 I, l, m, n
시트 21. 셀. 워크시트 셀을 비워 둡니다.
L = userform15.combobox1.value 변수 l 은 목록 상자의 값과 같습니다.
I = 시트 5 입니다. 범위 ("A65536"). 끝내기 (XLUP). 행 변수 I 는 a 열에 있는 비어 있지 않은 셀의 최대 수와 같습니다.
M = 적용. 워크시트 Function.CountIf (워크시트 5). 범위 ("m3:m" & amp；; I), l) 시트 5 에 따른 워크시트 통계 기능. 범위 ("m3: m"&: m "& A) 통계
호출 재고 비우기 호출 프로세스 재고 비우기
N = 시트12 입니다. 범위 ("G65536"). 끝내기 (XLUP). Row+ 1 변수 n 은 g 열에서 비어 있지 않은 셀의 최대 수와 같습니다.
만약 내가<& gt ""와 m>0 이라면 I= ""또는 m 이 0 이면.
5 페이지. Range ("a2: n" & 5 페이지. 범위 ("A65536"). 끝내기 (XLUP). 행). 자동 필터링 필드: = 13, 조건 1: = L 다음은 필터링 기준입니다. 익숙하지 않은 경우 /office/VBA/API/Excel 을 참조할 수 있습니다. 범위. 자동 필터링.
5 페이지. Range ("a2: n" & 5 페이지. 범위 ("A65536"). 끝내기 (XLUP). 행). 복사 시트 21. Range("a 1 ") 셀 영역이 워크시트 2 1 에 복사됩니다. 범위 ("A 1").
시트 21인 경우. 범위 ("a65536"). 끝내기 (xlUp). 로우-1< = 시트12 입니다. 범위 ("b65536"). 끝내기 (xlup). 행-7 그런 다음 열 a 에서 가장 큰 비어 있지 않은 행이 열 b 에서 가장 큰 비어 있지 않은 행에서 7 을 뺀 값보다 작으면 다음 루프 코드를 실행합니다.
I = 2 tosheet 2 1 의 경우. 범위 ("A65536"). 끝내기 (XLUP). 행주기.
시트12. 범위 ("c" & ampn) = 시트 21. 범위 ("b" & ampI) 커뮤니티 영역 할당
시트12. 범위 ("d" & ampn) = 시트 21. 범위 ("c"& 나)
시트12. 범위 ("e" & ampn) = 시트 21. 범위 ("d"& 나)
시트12. 범위 ("f" & ampn) = 시트 21. 범위 ("e"& 나)
시트12. 범위 ("g" & ampn) = 시트 21. 범위 ("f"& 나)
시트12. 범위 ("h" & ampn) = 시트 21. 범위 ("g"& 나)
시트12. Range(" I "& amp；; N) = 시트 21. 범위 ("h"& 나)
시트12. 범위 ("j" & ampn) = 시트 21. 범위 ("n"& 나)
시트12. Range ("D3") = 시트 21. Range(" I "& amp；; 나)
시트12. Range ("F3") = 시트 21. 범위 ("j"& 나)
시트12. Range ("i3") = 시트 21. 범위 ("a"& 나)
시트12. 범위 ("d" & ampSheet 12. 범위 ("b65536"). 끝내기 (xlUp). Row) = 시트 21. 범위 ("k"& 나)
시트12. 범위 ("j" & ampSheet 12. 범위 ("b65536"). 끝내기 (xlUp). Row) = 시트 21. 범위 ("l"& 나)
시트12. Range ("I2") = 시트 21. 범위 ("m"& 나)
N = n+1
그리고 나서
MsgBox "쿼리 완료!" 팝업 메시지 상자
기타
MsgBox "데이터가 너무 큽니다. 문서 행 수를 늘리십시오! 클릭합니다 팝업 메시지 상자
만약 ... 끝날거야
5 페이지. Range ("a2: n" & 5 페이지. 범위 ("a65536"). 끝내기 (xlUp). 행). 자동 필터링
기타
MsgBox "입력한 단일 번호가 잘못되었습니다!"
만약 ... 끝날거야
끝단 접합