Note: The other languages of the website are Google-translated. Back to English

Excelで宝くじ番号を生成する方法は?

Excelで宝くじ番号を生成したり、Excelで自分で宝くじ番号ジェネレーターを作成したりすることを考えたことはありますか? この記事では、それを簡単に行うためのXNUMXつの方法を紹介します。


Excel関数で宝くじ番号を生成する

この方法では、いくつかのExcel関数を適用して宝くじ番号を生成する手順を説明します。 そして、あなたは次のようにすることができます:

1。 空白のワークシートに、以下のスクリーンショットに示すように、範囲A1:C1に列ヘッダーを入力します。

2。 列A、列B、および列Cに数式を入力します。

(1)セルA2に、数式を入力します = RAND()、次に、塗りつぶしハンドルをA2:A50の範囲にドラッグします。
(2)セルB2に、数式を入力します =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1、次にフィルハンドルを範囲B2:B50にドラッグします。 (数式では、A2は現在のセルに残された乱数、$ A $ 2:$ A $ 50はすべて最初の数式で取得した乱数、B $ 1は列Bの最初のセル、B1は現在のセルより上のセルです。細胞)。
(3)範囲C2:C50に、1から49までのシーケンス番号を入力します。

次に、左のスクリーンショットが示すようにテーブルを取得します。

 

ノートリボン 数式は複雑すぎて覚えられませんか? 数式を定型句として保存して、後でワンクリックで再利用できるようにします。
続きを読む...     無料体験

3。 以下のスクリーンショットに示すように、空白の範囲を見つけて、シーケンス番号を水平方向に続けて入力します。

4。 最初のシーケンス番号1の下に、式を入力します = VLOOKUP(G1、$ B $ 1:$ C $ 50,2、FALSE) その中に、フィルハンドルを必要な範囲にドラッグします。

注意:この数式では、G1は最初のシーケンス番号が1のセルで、$ B $ 1:$ C $ 50は一意のランク列とボール番号列です。2は、範囲$ B $ 1:$ C $ 50のXNUMX番目の列で値を見つけることを意味します。 。

次に、以下のスクリーンショットに示すように宝くじ番号を取得します。

5。 これはオプションです。 現在のワークシートが更新されたときに宝くじ番号が自動的に変更されないようにするには、 > 計算オプション > マニュアル.

Excelでいくつかの一連のデータのすべての組み合わせを簡単に一覧表示します

Excel用のKutools すべての組み合わせを一覧表示 ユーティリティは、いくつかの特定の一連のデータから可能なすべての組み合わせを一般化するように設計されており、以下のスクリーンショットに示すように、これらの組み合わせを列にリストします。 フル機能の無料トライアル30日!
すべての組み合わせのリストとして1

Kutools for Excel -Excel用の300以上の便利なツールが含まれています。 30日間のフル機能の無料トライアル、クレジットカードは必要ありません! 今すぐ入手

VBAマクロで宝くじ番号を生成する

この方法では、VBAマクロを適用してExcelで宝くじ番号を生成する方法を説明します。 次のようにしてください。

1。 押す 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2に設定します。 OK をクリックします。 インセット > モジュール 新しいモジュールウィンドウを開き、次のVBAコードを貼り付けます。

VBA:Excelの宝くじ番号ジェネレーター

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3。 プレス F5 キーを押すか、 ラン このVBAマクロを実行するためのボタン。

4。 ポップアップダイアログボックスで、宝くじ番号を出力するセルを指定し、[ OK ボタン。

次に、6つの一意の宝くじ番号が生成され、指定されたセルに表示されます。


Kutools forExcelで宝くじ番号を生成する

Kutools for Excelがインストールされている場合、 ランダムデータを挿入 ユーティリティは、Excelで宝くじ番号を一度に生成するのに役立ちます。

Kutools for Excel -Excel用の300以上の便利なツールが含まれています。 30日間のフル機能の無料トライアル、クレジットカードは必要ありません! 今すぐ無料トライアル!

1。 A6:F1などの1つの隣接するセルを選択し、[ クツール > インセット > ランダムデータを挿入.

2。 これで、[ランダムデータの挿入]ダイアログボックスが表示されます。 に移動します 整数 タブ、タイプ 1 in From ボックス、タイプ 49 in ボックス、チェックボックス 一意の値 オプションをクリックし、 OK ボタン。 これで、6つの一意の宝くじ番号が生成され、選択したセルにすぐに表示されます。

Kutools for Excel -Excel用の300以上の便利なツールが含まれています。 30日間のフル機能の無料トライアル、クレジットカードは必要ありません! 今すぐ入手


デモ:Kutools forExcelで宝くじ番号を生成する


Kutools for Excel Excel用の300以上の便利なツールが含まれており、30日以内に無制限に無料で試すことができます。 今すぐダウンロードして無料トライアル!

関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
コメントを並べ替える
コメント (12)
5の5を評価 · 1の評価
このコメントは、サイトのモデレーターによって最小化されました
ssoftwareを見つけやすくしてください
このコメントは、サイトのモデレーターによって最小化されました
ラッキーナンバーを獲得したい
このコメントは、サイトのモデレーターによって最小化されました
:私はあなたの新しいプログラムを試してみたいです数字がどのように予測するかを見てください
このコメントは、サイトのモデレーターによって最小化されました
ケララ宝くじの翌日の推測を計算します
このコメントは、サイトのモデレーターによって最小化されました
干し草、サンタナムあなたはこのプログラムですべての勝利を収めましたか?
このコメントは、サイトのモデレーターによって最小化されました
ケララ州の宝くじの翌日の宝くじ番号を計算する-インド
このコメントは、サイトのモデレーターによって最小化されました
ステップBの式のCOUNTIF(B $ 1:B1、B1)-1の目的は何ですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはヒョンサップキム、
COUNTIF(B $ 1:B1、B1)-1は、列Bでの重複を防ぎます。たとえば、B1が一意の値である場合、この部分は0を返し、ランキング結果には影響しません。 B1が重複している場合、この部分はランキング結果をわずかに調整します。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは私はあなたがここに示したVlookupの方法を試しましたが、それはうまく機能し、1から49の範囲の数値を簡単に生成できます。

しかし、たとえば、実行中の数字の代わりに、25から1までの49の数字を使用するなど、一部の数字を削除することを考えていました。Vlookupの数式を調整して、機能させるにはどうすればよいですか。
5の5を評価
このコメントは、サイトのモデレーターによって最小化されました
こんにちはヨギ、申し訳ありませんが、あなたのリクエストをよく理解していません。 25から1までの49の数字があるとはどういう意味ですか?
このコメントは、サイトのモデレーターによって最小化されました
はい25から1までの49の数字。
同じ数式を使用してみましたが、25より大きい数値を選択すると、シーケンス内の次の数値を表示できず、エラーが発生します。
5の5を評価
このコメントは、サイトのモデレーターによって最小化されました
アマンダさん、ありがとうございました。
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0  文字
推奨される場所