- ·上一篇:圆圈excel表格里怎么打
- ·下一篇:excel表格怎么让最大值上色
excel表格怎么快速随机点名
1.在Excel中怎样实现随机点名
可以这样来实现:
假设,名字在A1:A10中
利用公式直接引用单元的的内容(直接引用公式和随机函数公式)
=INDIRECT("$A"&RANDBETWEEN(1,10))
另:如果名字在B列就将"$A"改成"$B"
2.在EXCEL中如何用VB做一个随机点名系统
我为你写了一个自定义函数,请试下。
代码如下: Function Myrand(PartAre As Range, Part As String) As String 'PartAre 部门所在区域; 'Part 你期望抽查的部门,可以是字符,也可以是单元格 'eg: =Myrand($A$1:$A$8,"ENG") 或者 =Myrand($A$1:$A$8,A3) partnum = 0 For Each m In PartAre tmpStr = m.Text If UCase(tmpStr) = UCase(Part) Then partnum = partnum + 1 Next m randnum = Int(partnum * Rnd()) + 1 partnum = 0 For Each m In PartAre tmpStr = m.Text If UCase(tmpStr) = UCase(Part) Then partnum = partnum + 1 If partnum = randnum Then Exit For End If Next m Myrand = Cells(m.Row(), m.Column() + 1).Text End Function 用法: 部门在A1~A8,人员在B1~B8(函数自动从部门后一列取人员),则在其他单元格中输入公式: =Myrand($A$1:$A$8,"ENG") 或者 =Myrand($A$1:$A$8,A3) 注:A3中的所填写的内容为 ENG 不清楚可以Hi我。 GoodLuck!。
