【Excel】vbaで別シートからランダム抽出する方法【コピペOKです】

こんにちは、さすを(@sasuwo0409)です。

いきなりですが、

Excelの別シートからランダムでデータを抽出して表示させたい！

と思ってはいませんか？

今回の記事は、vbaを使ってExcelの別シートからランダムでデータを抽出して表示する方法を解説していきます。

それでは本文をどうぞ。

困っている人

Excelの別シートからランダムでデータを抽出して表示させたいんだけどどうすればいいのかわからない、、

同じシートからランダム抽出する方法について書いてある記事は見つけたんだけど、、

さすを

この悩みを解決します！

この記事を読むとわかること：

Excelの別シートからランダムでデータを抽出する方法

筆者の情報：

現役システムエンジニア兼ブロガー
過去に6,000万のPython案件を受注

【Python】機械学習の始め方【完全初心者向け】

「機械学習って何？」「機械学習を学ぶにはどうすればいいの？」「機械学習を学んで便利なものをつくりたい！」と思ってはいませんか？この記事は、現役エンジニアの筆者が、機械学習の始め方を詳しく紹介しています。機械学習のスキルを身に着ける手順を知りたい方は必見です。

※０円のサンプルテキストという近道
独学よりプログラミングスクールの方が効果は出やすいですが、値段が高く、なかなか手を出しづらいですよね。techgymでは無料のサンプルテキストをもらえるので、これを使ってPythonの基礎を学ぶのもありだと思います。

>>techgymの無料サンプルテキストはこちらから

1.【Excel】vbaで別シートからランダム抽出する方法
2.【Excel】vbaを使わずに別シートからランダム抽出もできる
- 最後に：自動化で作業効率を上げていこう

1.【Excel】vbaで別シートからランダム抽出する方法

Excelのvbaを使って別シートからランダム抽出するための手順は以下の5つです。

拡張子を「.xlsm」として保存する
データを作成する
表示させるシートを作成する
開発タブを表示させる
vbaで処理を書く

1-1.拡張子を「.xlsm」として保存する

vbaは、エクセルのファイル拡張子が「.xlsm」でないと使うことができません。

ですので、ファイル保存時に「.xlsm」として保存する必要があります。

1-2.データを作成する

拡張子が「.xlsm」のファイルを作ったら、データを作成していきましょう。

Excelを開いて、新規のシートを作成し、データを追加します。
（シート名や書き込むセルの場所はどこでもOKですが、vbaにも影響ができるので適宜変更してください。）

ランダム列には「=RAND()」と入力してEnterキーを押せばOKです。

RAND：
　0 以上1未満の実数をランダムに返す関数。
　ワークシートが計算されるたびに、新しい実数の乱数が返される。

入力したランダム列を全てコピーするか、セルの右下部分をドラックアンドドロップして項目のあるすべてのセルに反映すればデータの入力は完了です。

1-3.表示させるシートを作成する

データを作成したら、ランダム抽出させるシートを作っていきましょう。

ランダム抽出を表示したいセルには「=抽出したいExcelシート名!セルの番号」を書けばOKです。

補足：
例）赤枠に別シートの情報を入れたい場合の手順。

1.別シートの名前(今回はマスタ)と、セルの場所を覚える。

2. 「=抽出したいExcelシート名!セルの番号」 に当てはめてデータを入力する。

さすを

項目名も同様に行えばOKです！

1-4.開発タブを表示させる

表示させたいデータを作成したら、開発タブをExcelに表示させていきましょう。

さすを

エクセルのタブに「開発」があればこの項目はスキップしてください！

開発タブの表示方法は以下の3ステップです。

Excel上で「ファイル」→「オプション」→ 「リボンのユーザー設定」の順にクリックする。
左画面から「開発」をクリックし、「追加(A)>>」をクリックする。
画面右下の「OK」をクリックする。

これらの作業をすると、Excelのタブに開発タブが出現します。

これで、vbaで処理を書く環境が整いました。

1-5.vbaで処理を書く

「開発タブ」→「挿入」→「ボタン(フォームコントロール」の順にクリックし、任意の場所にボタンを作成します。

ボタンを作成しようとすると、以下のような画面が出てくるので「新規作成」をクリックします。(マクロ名は好きなように設定してOKです。)

以下のソースコードをコピーして貼り付ければOKです。

Sub ボタン10_Click()
'
' 抽選のボタン Macro
'

'
    Range("C2").Select
    Calculate
    ActiveWorkbook.Worksheets("マスタ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("マスタ").Sort.SortFields.Add Key:=Range("D5"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("マスタ").Sort
        .SetRange Range("B5:D25")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("B5").Select
    Sheets("ランダム抽出").Select
    Range("A1").Select
End Sub

注意：