當前位置:柔美女性網 >

綠色生活 >心理 >

wps2016如何做姓名隨機抽取

wps2016如何做姓名隨機抽取

wps2016如何做姓名隨機抽取

方法如下:1.首先打開或編輯好要進行隨機生成姓名的表格。 2.接着可以點擊【公式-插入函數】打開插入函數對話框。 3.或者直接在單元格中輸入【indirect】函數,這樣wps2016就能做姓名隨機抽取

第一步,製作抽籤界面。

打開WPS表格2009,新建一個空白文檔。假設一個年級有20個班,在a1單元格中錄入“班主任姓名”,在(a2:a21)單元格區域中錄入班主任姓名在b1單元格中錄入“抽中班級”,在(b2:b21)單元格區域中錄入“未抽籤”字樣若用e3單元格顯示抽籤後抽到的班級,則將e3單元格設置合適的邊框和字號接着執行“視圖→工具→控件工具箱”,單擊“命令按鈕”,在e3單元格下方插入兩個按鈕,並在“屬性”窗口中設置Caption選項分別為“抽籤”和“停止”,名稱選項為默認的CommandButton1和CommandButton2。

第二步,為按鈕實現其功能。

雙擊“抽籤”按鈕,打開代碼窗口,輸入下列代碼(該代碼中包含“停止”按鈕的代碼):

Option Explicit

Dim flag As Boolean, i, j, m As Integer

Private Sub CommandButton1_Click()

flag = True '初始化中斷變量 當中斷變量為真時開始抽籤

tiaozhuan1:

For i = 1 To 20 '假如有20個班

DoEvents '釋放程序控制權 允許執行其它事件

For j = 2 To 21 '第2行到21行

If Cells(j, 2) = i Then GoTo tiaozhuan2

Next

Cells(3, 5) = i '即e3單元格顯示循環變量的值

If flag = False Then GoTo tiaozhuan3 '如果按下了停止按鈕則退出

tiaozhuan2:

Next

If flag = True Then GoTo tiaozhuan1

'如果一次循環結束還沒按下停止按鈕則進行下一次循環

tiaozhuan3:

For m = 2 To 21

If Cells(m, 2) = "未抽籤" Then

Cells(m, 2) = Cells(3, 5)

Exit Sub

End If

Next

End Sub

Private Sub CommandButton2_Click()

flag = False '中斷循環

End Sub

現在關閉代碼窗口,退出設計模式,一個抽籤程序就製作好了。當單擊“抽籤”按鈕,在e3單元格中輪流顯示沒有被抽中的班級,單擊“停止”按鈕時e3單元格顯示該班主任抽中的班級,並將抽中的班號自動填寫到相應的單元格中,該班號不再參與下一輪抽籤當下一位班主任單擊“抽籤”按鈕時進行下一輪抽籤

用你給出的數組的例子,比如在A2:E7範圍內隨機提取一個數字,可以使用OFFSET函數。可以在數組外的任意一個單元格輸入:

=OFFSET($A$2,RANDBETWEEN(1,5),RANDBETWEEN(1,4))

即可提取區域內任意一個單元格的內容。

因為數據是不規則的,所以用數據範圍來挑選比較麻煩,而用隨機偏移量,也就是隨機指定單元格的方法比較方便。隨意單元格的位置隨機偏移便是最省最有效也最快速的選擇。你可以試一下。

  • 文章版權屬於文章作者所有,轉載請註明 https://rmnxw.com/zh-hk/lvse/xinli/zww54x.html