如何在EXCEL中用VB制作随机点名系统

函数Myrand(部分作为范围，部分作为字符串)作为字符串

零件部门所在的区域；

部分你要抽查的部门可以是一个字符，也可以是一个单元格。

例如:= Myrand($ A $ 1:A $ 8，" eng ")或= Myrand($ A $ 1:A $ 8，A3)。

partnum = 0

对于每一部分中的m

tmpStr = m.Text

如果UCase(tmpStr) = UCase(Part ),则partnum = partnum + 1

下一个m

rand num = Int(part num * 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)。文本

结束功能

用法:

如果部门在A1~A8，人员在B1~B8(该函数自动从部门的最后一列取出人员)，则在其他单元格中输入公式:

= Myrand($ A $ 1:A $ 8，" ENG ")或= Myrand($ A $ 1:A $ 8，A3)。

注:A3中的内容为英文。

我不知道。你可以打电话给我。

祝你好运！