No.4ベストアンサー
- 回答日時:
A1に
=RAND()
で、A52 までコピー。
B1(こちらが使用する数字)に
=RANK(A1,$A$1:$A$52,1)+COUNTIF($A$1:A1,A1)-1
で、B52 までコピー。
ではいかがでしょう。
A列に複数生じた同じ数字は、B列では常に上のほうが小さく
なるのが欠点ですが……。
この回答へのお礼
お礼日時:2008/07/24 02:56
回答ありがとうございました。追加でもう1個乱数を発生させて、同じ数字の際の上下をランダム判定させる、という方法で対処することにしました。
他に回答頂いた方々も、大変ありがとうございました。
No.3
- 回答日時:
ANo.1の補足です。
乱数を発生させた際、可能性としてたまたま、A10とA51が同じ数字ということ(重複)が考えられます。そうした場合RANK関数で1~52が重複なくとりだせくなる(重複数字・欠番数字が発生します)ので、それを回避する方法としては、A列のセルに入れる数式を
=RAND()+ROW()
としてあげればいいかと思います。なお、ROW()は行番号を取り出す関数です。A1に =row() と入力すれば返される値は1、A29に =row() と入力すれば返される値は29となります。
No.2
- 回答日時:
ランダム自体はRAND関数でできますが計算のたびに変化するので
順番付けまでしかできませんが良いでしょうか?
A1=RAND()
B1=RANK($A$1:$A$52,A1)
として52行目までコピーします。B1:B52に1~52の数値がランダムで並びます。
後は再計算が働く状況(セルに入力とかシートの移動)で更新されます。
C列以降に記号やトランプの数字を対応させればよりよいかと思います。
1枚ずつめくるような感じにしたい場合は、マクロを使うしかありませんけどね。
No.1
- 回答日時:
乱数を用いて、例えばA列を作業列として
「A1」セルに =rand() と入力し、それを「A52」セルまでコピーする。B列にランダムに1~52を表示するものとして
「B1」セルに =RANK(A1,$A$1:$A$52,1) と入力し、それを「B52」セルまでコピーする。
更新する場合は「F9」キーを押せば再計算してくれます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# カードシャッフルのブログラムを使ってc言語でブラックジャックをしたい 2 2022/04/12 15:13
- Visual Basic(VBA) Powerpointでランダムな数字の結果を表示するマクロ 2 2023/08/04 10:04
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) ExcelVBAでリストの項目に必要数と同じ手配数を分配していくマクロを作りたいです。 1 2022/07/29 18:36
- Excel(エクセル) エクセルのデータ整形について 3 2022/11/12 00:27
- Excel(エクセル) エクセルの表でダブりを解消する方法を、教えてください。 5 2023/04/12 12:11
- Excel(エクセル) エクセルで不可日と祝祭日の考慮してランダムに毎日の当番表を作成したいと思っています。 1 2023/07/12 21:14
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelについて教えてください
-
【マクロ】名前を保存する際に...
-
エクセル マクロ チェックボックス
-
Excel 複数列 A列B列C列一致 D...
-
エクセル vbaについて教えてく...
-
エクセルであるセルに数字を入...
-
【Excel】数字を3倍にし、なお...
-
Excel分析ツールでのポアソン回...
-
エクセルVBA、別ブックへ転記す...
-
【マクロ】顧客番号にて一致さ...
-
Excelでセルの値が同じか...
-
(マクロ)データをAブックからB...
-
エクセルを使っていて2024/5/15...
-
エクセル共有したが、アクセス...
-
エクセル②
-
エクセルのデーターが2か月前の...
-
UNIQUE関数が使えないバージョ...
-
INDIRECTを使わず excelで複数...
-
Excelで縦軸の書式を0:00形式の...
-
【マクロ】読取専用のファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報