VBAを介してExcelワークシートでラッキードローを作成する方法

エクセルソリューション 2025 年 10 月 3 日
今すぐ共有：

Excelワークシートでは、ラッキードローを作成することもできます。 この執筆記事では、Excelでこのタスクを完了する方法を紹介します。

ラッキードローは私たちの日常生活で非常に一般的です。 たとえば、年末に従業員にボーナスを与える必要があります。 幸運な従業員をランダムに選びたいと思います。 したがって、Excelファイルを使用してラッキードローを作成できます。

ラッキードローを作る

このパートでは、メソッドを詳細に紹介します。

  1. 従業員のすべての情報を含むExcelファイルを開きます。 この例では、ワークシートに18人の従業員がいます。 また、既存のボーナスは販売量に応じて計算されます。例:
  2. 次に、キーボードのショートカットキー「Alt + F11」を押して、VisualBasicエディターを開きます。
  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)
  1. その後、リボンの「開発者」タブをクリックします。
  2. 次に、ツールバーの「挿入」ボタンをクリックします。
  3. ドロップダウンリストで、[ボタン]オプションを選択します。挿入ボタン
  4. その後、ワークシートをクリックします。 「マクロの割り当て」ウィンドウが表示されます。
  5. このウィンドウで、新しいモジュールに入力したマクロをクリックします。マクロの割り当て
  6. そして、「OK」ボタンをクリックします。
  7. 次に、ワークシートにボタンが表示されます。 ボタンを右クリックします。
  8. ポップアップウィンドウで、[テキストの編集]オプションを選択します。
  9. 次に、ボタンに名前を付けます。 「ラッキーパーソン」と名付けます。テキストの編集
  10. 設定はすべて完了しました。これでアクティビティを開始できます。ボタンをクリックしてください。
  11. 次に、従業員の名前が記載されたウィンドウポップアップが表示されます。結果

上記の手順から、Excelを使用してラッキードローを作成すると非常に便利であることがわかります。 次回は、これらのタスクにExcelファイルを使用することも検討できます。

Excelファイルを修復する方法

大多数のユーザーは、Excelでエラーが発生する限り、Excelアプリケーションを終了します。 そして、次にExcelファイルを開いたときに、問題は発生しなくなります。 ただし、Excelの重大な問題が発生した場合は、追加のアクションを実行する必要があります。 サードパーティのツールを使用して、 破損したExcelxlsxを修復する そして、Excelのエラーを修正します。これは、Excelのエラーに対処する最も効果的な方法でもあります。

著者紹介：

Anna Maは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したドキュメントデータを修復する と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。