在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!