中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

　　這篇文章，要給大家介紹的是，在Excel中，實(shí)現(xiàn)隨機(jī)點(diǎn)名或挑選人員的例子。

　　本站盡量從更專業(yè)的角度去給大家講解有關(guān)的技術(shù)，本例使用到VBA代碼，代碼雖然不多，但是需要你都能理解。

　　我們先看下圖。A列是序號(hào)，B列是姓名，現(xiàn)在這個(gè)表總的只有９個(gè)人，我們要從這九個(gè)人當(dāng)中，每次隨機(jī)點(diǎn)名，每次挑選一個(gè)人員。

　　如下圖一樣，首先找到控件工具箱，因?yàn)槲覀円砑右粋€(gè)按鈕，你可通過菜單能知道“視圖”→“工具欄”→“控件工具箱”，這樣，就能找到該工具條了。

　　然后，如上圖一樣，在表格的空白地方，添加一個(gè)按鈕對(duì)象。

　　接著，我們得修改按鈕上面的文字為隨機(jī)點(diǎn)名，如下圖。方法為：右擊按鈕，在菜單中選擇“屬性”，就會(huì)看到如下圖的右邊的界面，找到Caption項(xiàng)，改為隨機(jī)點(diǎn)名即可。

　　現(xiàn)在，到了最后一步了，這一步就是給上面的那個(gè)按鈕添加VBA代碼，方法為：鼠標(biāo)左鍵雙擊那按鈕，會(huì)打開一個(gè)界面，大體如下圖，一定要找到如下圖的位置哦。

　　最后，將如上圖看到的代碼，改寫為如下圖的代碼。

　　為方便大家的學(xué)習(xí)，下面本站將VBA代碼粘貼如下，以供大家參考：

　　Private Sub CommandButton1_Click()
　　　Dim x%, y%, MyValue%
　　　x = 1
　　　y = Sheet1.UsedRange.Rows.Count - 1'有效數(shù)據(jù)行減去１就得到人數(shù)了，因?yàn)榈谝恍胁皇侨说男彰?br>　　　MyValue = Int((y - x + 1) * Rnd + x)
　　　MsgBox ("本次被點(diǎn)名的是" & MyValue & "號(hào)；姓名是：" & Worksheets(1).Cells(MyValue + 1, 2).Value)
　　End Sub 

　　上面的代碼輸入好之后，就退出代碼編寫界面，回到Excel界面，最后，再保存你的Excel文件。再次打開這個(gè)工作薄。

　　然后呢，直接點(diǎn)擊“隨機(jī)點(diǎn)名”按鈕，就得出如上圖的結(jié)果了，這就是根據(jù)Excel中的姓名，使用控件和VBA實(shí)現(xiàn)隨機(jī)點(diǎn)名的小程序。