どなたかご存じでしたら回答をお願いします。
数字選択式宝くじロト6、ミニロトの抽選結果をエクセルにつけております。
それを利用して、『最新抽選回数から指定した範囲迄の抽選結果を別シートに表示させる。』
方法が知りたいです。
【抽選結果シート】 ※631回を最新抽選回数とする。
抽選回 第1数字 第2数字 第3数字 第4数字 第5数字 第6数字 ボ数字
619 2 11 29 31 33 38 14
620 7 10 13 19 31 38 12
621 6 15 16 28 36 40 20
622 7 16 18 20 27 36 41
623 7 8 16 35 39 42 9
624 4 8 12 22 25 30 43
625 5 17 26 37 39 42 20
626 6 13 14 22 26 28 10
627 2 4 7 19 34 42 30
628 7 13 15 18 29 38 30
629 6 16 21 30 34 43 36
630 3 7 13 18 19 41 38
631 2 5 7 10 36 40 12
【抽出回数】 6
【抽出シート】 ※最新抽選回から6回前迄の抽選結果を表示。
抽選回 第1数字 第2数字 第3数字 第4数字 第5数字 第6数字 ボ数字
626 6 13 14 22 26 28 10
627 2 4 7 19 34 42 30
628 7 13 15 18 29 38 30
629 6 16 21 30 34 43 36
630 3 7 13 18 19 41 38
631 2 5 7 10 36 40 12
◎注意事項
・抽選結果シートは第1回抽選から最新抽選回まで入力されています。
・最新抽選回は毎回抽選結果を追加入力します。
・抽出回数には1~999までの数字が入ります。
・抽出シートには、最新抽選回から抽出回数で指定した回数まで遡り、
その範囲の抽選結果シートの内容が表示されます。
・エクセルは2007です。
以上、ご回答よろしくお願いします。
No.3ベストアンサー
- 回答日時:
こんにちは!
一例です。
Sheet1のデータをSheet2に表示するようにしてみました。
Sheet2の1行目はSheet1と同様の項目が入っているものとします。
Sheet2のA2セルに
=INDEX(Sheet1!A:A,MATCH(LARGE(Sheet1!$A:$A,7-ROW(A1)),Sheet1!$A:$A,0))
という数式を入れ
下へ6行分コピー! そのまま列方向へオートフィルでコピーではどうでしょうか?
※ 今回は「6」回分ですが、表示回数を変えたい場合は数式内の
>7-ROW(A1)
の部分で調整してください。m(_ _)m
お久しぶりです。
ご回答ありがとうございます。
シンプルな方法でできるんですね。
また、抽出回数を式に取り込むのはgoodです。
No.5
- 回答日時:
抽出シートは下図のようになっているとします。
セルB1に週出回数を入力すると表示されます。
Private Sub Worksheet_Change(ByVal Target As Range)
Set WS01 = Sheets("抽選結果")
If Target.Address <> "$B$1" Then Exit Sub
If Target = "" Then Exit Sub
If Cells(Rows.Count, 1).End(xlUp).Row <> 3 Then
Range("A4:H" & Cells(Rows.Count, 1).End(xlUp).Row).Clear
End If
myRow1 = WS01.Cells(Rows.Count, 1).End(xlUp).Offset(-Target.Value + 1).Row
myRow2 = WS01.Cells(Rows.Count, 1).End(xlUp).Row
WS01.Range("A" & myRow1 & ":H" & myRow2).Copy Destination:=Range("A4")
End Sub
No.4
- 回答日時:
エクセルのフィルターオプションという機能をご存知でしょうか。
http://www.eurus.dti.ne.jp/yoneyama/Excel2007/ex …
などを参考にしてください。
【抽出回数】 6
と入力した場合に、抽出の条件を関数で表示したくなるとおもいますが。
B1セルに 6 と入っているとして
抽選回
=">=" &LARGE(Sheet1!A:A,B1)
とでもすればOKですし
毎回、フィルターオプションの操作をするのも厄介といわれるなら
マクロの記録で 操作内容を VBA化してください。
No.2
- 回答日時:
例えば元の表がシート1にあり、1行目は項目名でA1セルからH1セルまであり、2行目から下方にデータがあるとします。
抽出の結果をシート2に表示させるとします。シート2のA1セルには遡って表示する抽出回数を例えば6行遡るのでしたら6と入力します。2行目には項目名を入力するとしてA3セルには次の式を入力してH3セルまでオートフィルドラッグコピーしたのちに下方にもオートフィルドラッグコピーします。
=IF(OR(MAX(Sheet1!$A:$A)=0,ROW(A1)>$A$1),"",IF(MAX(Sheet1!$A:$A)<6,INDEX(Sheet1!$A:$H,ROW(A1)+1,COLUMN(A1)),INDEX(Sheet1!$A:$H,MATCH(MAX(Sheet1!$A:$A),Sheet1!$A:$A,0)-$A$1-1+ROW(A1),COLUMN(A1))))
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 超常現象・オカルト 未来が見える超能力を持った、回答者のかたに質問です。あさって月曜日抽選のロト6はどういう数字が来ます 1 2022/09/10 17:52
- くじ・懸賞 明日木曜日抽選のロト6で来そうな数字をお願いします。 3 2023/01/25 17:55
- くじ・懸賞 6月30日、明日抽選のロト6はどんな数字が来そうですか? 2 2022/06/29 19:26
- くじ・懸賞 ところで今夜抽選のロト6はどんな数字を予想しますか? 5 2023/04/27 15:59
- くじ・懸賞 ナンバーズ4とか毎日ストレートが30本前後当選していますが、本当に買って当選してると思います? スト 2 2023/04/04 08:37
- くじ・懸賞 本日8月11日抽選のロト6の予想をお願いします。どんな数字が来そうですか?4.14辺りってどうですか 2 2022/08/11 01:32
- くじ・懸賞 LOTO6やLOTO7などの宝くじの抽選器は本当にランダムに出てくるのですか? それとも人が話し合っ 1 2022/07/11 15:40
- ライブ・コンサート・クラブ チケット申込後の支払いについて 1 2023/04/25 00:00
- Excel(エクセル) エクセル関数について 8 2023/06/28 17:04
- Excel(エクセル) Excelの関数でこんな処理ができますか 1 2023/02/08 13:46
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
ACCESS VBA でのエラー解決の根...
-
アクセスクエリの計算
-
Microsoft365にAccessってあり...
-
実行時エラー3131 FROM 句の構...
-
Access VBA を利用して、フォル...
-
Accessのクエリで、replace関数...
-
Access DTPickerの初期表示月を...
-
Accessのスプレッドシートエク...
-
エクセルのデータをアクセスに...
-
Accessのフォーム上のテキスト...
-
AccessのDBを理解するコツは?
-
Access IF文でテーブルに存在し...
-
【Access】Dcount関数の複数条...
-
accessの代わりになるもの
-
accessでlaccdbファイルが削除...
-
Accessのデータ型の日付/時刻型...
-
Accessで独自メニューバーまた...
-
Access DAOのExecuteメソッドの...
-
DoCmd.SearchForRecord が動か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Access Error3061 パラメータが...
-
Microsoft365にAccessってあり...
-
Accessのクエリで、replace関数...
-
Accessのリンクテーブルのパス...
-
Access VBA [リモートサーバー...
-
ACCESS VBA でのエラー解決の根...
-
accessデータを指定したExcel、...
-
Accessのスプレッドシートエク...
-
CSVファイルの「0落ち」にVBA
-
【Access】Dcount関数の複数条...
-
Accessのフォーム上のテキスト...
-
Access VBA を利用して、フォル...
-
実行時エラー3131 FROM 句の構...
-
Vba Userformを前面に出すについて
-
Accessでフォームに自動入力し...
-
Accessレポートのチェックボッ...
-
Accessのテキストボックスの入...
-
Access 複数条件検索の設定が上...
-
accessのフォームに設置したボ...
おすすめ情報