No.2ベストアンサー
- 回答日時:
ん~、
・どの程度のことをなさりたいのか
・どの程度のスキルをお持ちなのか
判らなかったので静観していたのですが、
なかなか回答がつかないようですし、
コーディング技術に関するご質問でもないようなので、
とりあえずご参考まで。
-----------------------------------------
●まずは素朴に関数で。
B1セルを
=INDEX($A$1:$A$1000,INT(RAND()*1000)+1)
として必要な人数分下方にフィルすれば、一応結果はでます。
F9キーを押せば再抽出されます。
※1
他のセルに何か入力した場合もその都度再抽出されるので、
抽出した名前を用いてなんらかの処理する場合には、
コピー>値貼り付けで確定する必要があります。
※2
それぞれ個別に選んでいるだけなので、
同じ名前が重複して選ばれる可能性があります。
まぁ、対象データは名前ですし、5人程度であれば、
目視で確認して再抽出すれば良いかもしれませんが…。
※3
ボタンをクリックして再抽出、というのは、
VBAを使わなければ基本的にできません。
-----------------------------------------
●VBAで
・値として抽出
・重複がないように抽出
・ボタンをクリックして再抽出
するためには、やはり、VBAでプログラミングしたマクロを、
コマンドボタン等に登録することになります。
以下、あくまでサンプルですが…。
動作の概要
A1:A1000の範囲から
5つをランダムに抽出して、
B列1行目から表示する。
'-----------------↓ ココカラ ↓-----------------
Sub Sample()
Dim 抽出結果() As Integer
Set 抽出範囲 = Range("A1:A1000")
抽出数 = 5
結果列 = "B"
ReDim 抽出結果(抽出数)
For i = 1 To 抽出数
Do
抽出結果(i) = Int(Rnd * 抽出範囲.Rows.Count + 1)
If i = 1 Then Exit Do
f = True
For j = 1 To i - 1
If 抽出結果(i) = 抽出結果(j) Then f = False
Next j
Loop Until f
Cells(i, 結果列) = 抽出範囲(抽出結果(i))
Next i
End Sub
'-----------------↑ ココマデ ↑-----------------
選んだものが、既に選んでいるものと重複するか否かを、
その都度総当りでチェックして、重複する場合は選び直しています。
抜き出す数が多くなると賢い方法とは言えませんが…。
以上ご参考まで。
deus_ex_machinaさんありがとうございます。
1日にご回答いただいていたのに、gooからの「新しい回答が投稿されました」を
見落としていました(汗)
本日のassault852さんの投稿のお知らせで気が付きました。
●まずは素朴に関数で。 こちらでやりたいことができました。
ボタンを使ってとなるとVBAのスキルが必要みたいで、私には
だるまさんです(手も足も出ない)
というとことで関数のやり方を活用させていただきます。
VBAのほうも勉強して試してみたいと思います。
アドバイスいただいた皆さんに感謝いたします m(__)m
No.3
- 回答日時:
>やっぱり私のやりたいやり方はVBAのスキルとかが必要なんでしょうか
もちろんです。
そういう意味では#2の回答が適切でしょう。
お勉強するつもりがなければ、あまり複雑なことは望まない方がよろしいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで早押しゲームを作りたい 4 2022/05/12 13:46
- Visual Basic(VBA) Powerpointでランダムな数字の結果を表示するマクロ 2 2023/08/04 10:04
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Excel(エクセル) エクセルで2つの表を比較して、文字列が同じだが、その行のある値が違うものを抽出したい 1 2022/10/06 21:48
- 数学 既存の数列のランダム性について(初歩的質問) 2 2022/06/07 20:04
- Excel(エクセル) ランダムに並んだ人の名前から、全種類の人を抜き出す関数 7 2022/07/08 08:06
- その他(データベース) Q&Aフォームを作成したいのですが、どう設計してよいか分かりません、アドバイスお願い致します。 1 2023/07/27 19:04
- Excel(エクセル) エクセルで不可日と祝祭日の考慮してランダムに毎日の当番表を作成したいと思っています。 1 2023/07/12 21:14
- 政治 選挙はランダム投票でするべきだろう。 ランダム投票とは、国民から無作為に投票者を抽出する投票制度。 4 2022/06/24 17:09
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「.movpkg」「.m3u8」ファイル...
-
WPS Officeって有料ですか?
-
YahooのIDがロックされてしまい...
-
ITの見積もりってなんであんな...
-
CAE
-
STEAM版BF4が起動しない
-
グーグルクロムにダウンロード...
-
プレイやに入れたいのですが、...
-
自分の使っている再生ソフトは...
-
『ブ』の変換について
-
jtrim 1.53cが正常な動きをし...
-
ゆうちょ認証アプリが使えません
-
LDPlayerのマクロの編集方法を...
-
マックの表計算ソフト
-
自分で描いた下手な絵を綺麗に...
-
一太郎2021で画像サイズをmmで...
-
拡張子が異なりファイル名が同...
-
新バージョンPDFでのスナップシ...
-
Winrarの移行
-
編集ソフト ビデオ パットを使...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ITの見積もりってなんであんな...
-
YahooのIDがロックされてしまい...
-
「.movpkg」「.m3u8」ファイル...
-
ゆうちょ認証アプリが使えません
-
jtrim 1.53cが正常な動きをし...
-
ATOKをお使いの方、今後もVer U...
-
CMYKのペイントソフトを探して...
-
グーグルクロムにダウンロード...
-
ホームページビルダーのバージ...
-
自分で描いた下手な絵を綺麗に...
-
パソコンでJPEG画像ファイルを...
-
マックの表計算ソフト
-
Numbersについてお伺いです。 ...
-
写真の印刷レイアウトについて
-
STEAM版BF4が起動しない
-
フォルダ内にある全ファイルの...
-
gimpで文字の細工をしたい
-
新バージョンPDFでのスナップシ...
-
Windows 11 に対応する作業
-
先日からDigiBestTVで「デバイ...
おすすめ情報