如何通過VBA在Excel工作表中進行抽獎

在Excel工作表中，您還可以進行抽獎。 在本文中，我們將向您展示如何在Excel中完成此任務。

抽獎在我們的日常生活中很常見。 例如，您需要在一年末向員工發放獎金。 您想隨機選擇一些幸運的員工。 因此，您可以使用Excel文件進行抽獎。

抽獎

在這一部分，我們將詳細介紹這些方法。

1. 用員工的所有信息打開Excel文件。 在此的示例工作表中有18名員工。 現有獎金是根據其銷量計算的。
2. 然後按鍵盤上的快捷鍵“ Alt + F11”以打開Visual Basic編輯器。
3. 之後，將新模塊插入編輯器。
4. 在此步驟中，將以下代碼複製到新模塊中：

Sub MakeLuckyDraw()
  Dim nNumber As Integer, nRowIndex As Integer

  'Generate a random number
  nNumber = Int(Rnd() * (19 - 2 + 1)) + 2

  'Go through the list
  For nRowIndex = 2 To 19
    If nRowIndex = nNumber Then
      MsgBox "The lucky one is " & Cells(nRowIndex, 1).Value
    End If
  Next nRowIndex
End Sub

在此代碼中，公式“ Int（Rnd（）*（19 – 2 + 1））+ 2”將確保隨機數在2-19之間。 您也可以根據需要修改公式。

實際上，除了上面的公式生成數字之外，您還可以使用工作表函數“ RandBetween”。 並且您需要更改模塊中的代碼。

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)

5. 之後，單擊功能區中的“開發人員”選項卡。
6. 然後單擊工具欄中的“插入”按鈕。
7. 在下拉列表中，選擇選項“按鈕”。
8. 之後，在工作表中單擊。 您將看到“分配宏”窗口。
9. 在此窗口中，單擊您輸入到新模塊中的宏。
10. 然後單擊“確定”按鈕。
11. 接下來，您可以在工作表中看到該按鈕。 右鍵單擊按鈕。
12. 在彈出窗口中，選擇選項“編輯文本”。
13. 現在給按鈕起一個名字。 我們將其命名為“幸運者”。
14. 您已完成所有設置，現在可以開始活動了。點擊按鈕。
15. 然後，您將看到一個彈出窗口，其中帶有您的員工姓名。

從以上步驟可以看出，使用Excel進行幸運抽獎非常方便。 下次您還可以考慮將Excel文件用於這些任務。

如何修復Excel文件

只要遇到Excel中的錯誤，大多數用戶將退出Excel應用程序。 下次他們打開Excel文件時，這些問題將不再存在。 但是，如果遇到嚴重的Excel問題，則需要採取其他措施。 您可以使用第三方工具 修復損壞的Excel xlsx 並修復Excel錯誤。這也是處理Excel錯誤最有效的方法。

作者簡介：

Anna Ma是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 修復損壞的文檔數據 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM