ecel随机点名挑选人员.docx

excel随机点名 挑选人员这篇文章，要给大家介绍的是，在Excel中，实现随机点名或挑选人员的例子本站尽量从更专业的角度去给大家讲解有关的技术，本例使用到VBA 代码，代码虽然不多，但是需要你都能理解我们先看下图A列是序号，B列是姓名，现在这个表总的只有9个人，我们要从这九个人当中，每次随机点名，每次挑选一个人员A1序号蛀名一］21姓名132姓名243姓名？54：姓名4657&姓名£8T姓名T98姓名心109姓名勺如下图一样，首先找到控件工具箱，因为我们要添加一个按钮，你可通过菜单能知道“视图” T “工具栏” T “控件工具箱”，这样，就能找到该工具条了1234567891011121314B姓名i姓益姓名4姓名5姓名E姓名T姓若8姓容9Ejrx國箸□I0O噩-J命令按钮|■ JI ■ 然后，如上图一样，在表格的空白地方，添加一个按钮对象接着，我们得修改按钮上面的文字为随机点名，如下图方法为： 右击按钮，在菜单中选择“属性”，就会看到如下图的右边的界面， 找到 Caption 项，改为随机点名即可现在，到了最后一步了，这一步就是给上面的那个按钮添加 VBA 代码，方法为：鼠标左键双击那按钮，会打开一个界面，大体如下图， 一定要找到如下图的位置哦。

最后，将如上图看到的代码，改写为如下图的代码CoBBandBn.1 tonlPrivate Sub CommaitdBntt&nl_ClickDm 風』鈕 My^alue%x + 1) * Knd + m)y = Sheetl. UsedRangze. Rowe. Count - 1MyValne = Int (ty -矗gB砌(“本次被点名的是“乩时Value趾“号；姓名是:“ _ft. WorlcEhe^tE (1).匚gIIm 山艸alug + 1, 2). Valus) End. Sub为方便大家的学习，下面现将VBA代码粘贴如下，以供大家参考:Private Sub CommandButton1_Click()Dim x%, y%, MyValue%x = 1y = - 1'有效数据行减去1就得到人数了，因为第一行不是人的姓名MyValue = Int((y - x + 1) * Rnd + x)MsgBox ("本次被点名的是" & MyValue & "号；姓名是： " &Worksheets(1).Cells(MyValue + 1, 2).Value)End Sub?上面的代码输入好之后，就退出代码编写界面，回到Excel界面，最后，再保存你的Excel文件。

再次打开这个工作薄然后呢，直接点击“随机点名”按钮，就得出如上图的结果了，这就是根据Excel中的姓名，使用控件和VBA实现随机点名的小程序。