함수 Myrand (부분은 범위로, 부분은 문자열로) 를 문자열로 사용합니다
부품 부서가 있는 영역입니다.
추출 할 부서의 일부는 문자 또는 셀일 수 있습니다.
예: = Myrand($ A $ 1:A $8, "eng") 또는 = myrand ($ a $1:a)
Partnum = 0
각 섹션의 m 에 대해 다음을 수행합니다
TmpStr = m.Text
UCase(tmpStr) = UCase(Part) 인 경우 partnum = partnum+1
다음 m
Randnum = int (partnum * rnd ())+1
Partnum = 0
각 섹션의 m 에 대해 다음을 수행합니다
TmpStr = m.Text
UCase(tmpStr) = UCase(Part) 인 경우
Partnum = partnum+1
Partnum = randnum 이면 종료합니다
만약 ... 끝날거야
다음 m
Myrand = Cells(m.Row (), m.Column()+1). 텍스트
기능을 종료합니다
사용법:
부서가 A 1~A8 에 있고 개인이 B 1~B8 에 있는 경우 (이 함수는 부서의 마지막 열에서 사람을 자동으로 제거함) 다른 셀에 공식을 입력합니다.
= Myrand($ A $ 1:A $8, "ENG") 또는 = Myrand($ A $ 1:A $8)
참고: A3 의 내용은 영어입니다.
잘 모르겠어요. 너는 나에게 전화해도 된다.
행운을 빕니다!