Visual Basic の知識が無いので、エクセル関数に限定して教えて欲しいのですが、
(例)
(1)ロト6の予想システムを表計算でしたい。使用数字は、1~43
(2)セルB1~C43までの表がある
(3)B1~B43には1~43の数字
(4)C1~C43には、独自の予想法により、関数で絞り込んだ数字の隣に◎、候補以外は空白
(5)◎がついた候補数字のみを、ランダムで6個抽出する関数を設定したい
フィルタ機能を使って、データ抽出する「マクロボタン」の登録とかでもやってみたのですが、
最後のランダムで抽出する段階で、わからず手詰まりになってしまいます。
良い方法がありましたら、是非教えて下さい。お願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
E列には次の式を入力して下方にオートフィルドラッグコピーします。
=IF(B1="","",RAND())
F列にはE列に表示されるデータのうちで何番目に大きい数値(ランク)を選択するかを自分で決めてその数字をF1セルから下方に入力します。例えば1,5,10,15,20・・・のように入力します。これで一次の選考基準を決定します。二次の選考はF1セルからF6セルに入力したランクで行うことにします。
F列にデータを自分で入力した後でC1セルには次の式を入力して下方にオートフィルドラッグコピーします。
=IF(COUNTIF(F$1:F$43,RANK(E1,E$1:E$43))=0,"","◎")
D1セルには次の式を入力して下方にオートフィルドラッグコピーします。
=IF(OR(C1="",C1<>"◎"),"",IF(COUNTIF(F$1:F$6,RANK(E1,E$1:E$43)),"◎",""))
D列にはC列で選ばれたうちの6つのセルに表示されることになります。
No.1
- 回答日時:
簡単な方法:
A1に
=IF(C1="◎",RAND(),"")
と記入してA43までコピー貼り付ける
E1からE6に1,2,3,4,5,6を記入する
F1に
=VLOOKUP(SMALL(A:A,E1),A:B,2,FALSE)
と記入し,F6までコピー貼り付ける。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) SUMIF関数について 4 2023/06/14 13:13
- Excel(エクセル) エクセルで重複データから重複を削除して指定の列に抽出したい 11 2022/05/11 11:26
- Excel(エクセル) エクセルのデータの抽出について 3 2022/09/15 23:56
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Excel(エクセル) エクセル関数について 8 2023/06/28 17:04
- Visual Basic(VBA) Powerpointでランダムな数字の結果を表示するマクロ 2 2023/08/04 10:04
- Excel(エクセル) エクセルで#以降の文字を取得したい 1 2022/03/28 13:14
- Excel(エクセル) エクセルで一つのセル内の特定の数字のみ足す方法 6 2022/12/06 15:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報