趣味のエクセルで当てよう！ロト・ナンバーズ

当選狙いで、ナンバーズ4をメインにロト、ビンゴ5などの各種データリストや、それらの分析用エクセルVBAなどについて書いてます。

2016年3月のブログ記事

  • 2.LOTO6SLJ

    記事目次　ロト・ビンゴ  ロト6において、第1の番号と残りの6つの番号の組み合わせをペア集計します。同じように第2の番号と残りの5つ、第3、第4、第5、第6も同じようにします。 出目に対応したセルを作っておいてそこで計算と出力してます。 （ボーナス番号は除く） Sub 同伴数字()'ロト6で何と何... 続きをみる

  • 1.LOTO6SLJ

    ロト6の各パターン分析 記事目次　ロト・ビンゴ 1~43の当選番号の当選間隔表示 Sub 最後当選へコピー() 'ファイル LOTO6からファイルLOTO6SlJ.xlsmのシート（最後の当選）にコピーする。 (LOTO6.xlsmのシート表 (2)の.最新当選1106回のみ) gyou = Wi... 続きをみる

  • 2.LOTO6

    記事目次　ロト・ビンゴ クロ作成方法12（マクロ自動記録） Sub c_and_s() '第一数字から小さい順にソート、（自動マクロ記録で作成） kaigo = Sheets("元ﾃﾞｰﾀ").Cells(1, 38)  Sheets("表 (2)").Select   Range(Cells(2... 続きをみる

  • 1.LOTO6

    記事目次　ロト・ビンゴ  ユーザーホーム（UserForm） 変数　知らなかった本当の使い方 'マクロ実行-------表示パターン選択-------パターンで表示する Public pata_1 As String, pata_2 As String Public pata_f As long ... 続きをみる

  • 2.miniloto

    記事目次　ロト・ビンゴ 前回の数字に.対して次回に出た各数字（ペア）の累計　ボーナス数字含む 変数　知らなかった本当の使い方 Sub after_32no() '後追い数字  緑色は平均より出ている Dim i As long, ii As long, iii As long Dim countr... 続きをみる

  • 1.miniloto

    記事目次　ロト・ビンゴ B~G列の当選番号データからｊ~AN列のパターン表をマクロで表示する。 ユーザーホーム（UserForm）  変数　知らなかった本当の使い方  Public pata_1 As String, pata_2 As String Public pata_f As long D... 続きをみる

  • 4.No.3 分析

    変数　知らなかった本当の使い方 ナンバーズ3 の 各属性（5803回） - 趣味のエクセルで当てよう！ロト・ナンバーズ Sub Copi_propaty() Dim Maxx As long, gokeimax As long, start As long start = MsgBox("「データ... 続きをみる

  • 3.No.3 分析

    変数　知らなかった本当の使い方 Sub kiguu3間隔() '奇数偶数の間隔でアンダーバー引く Dim i As long, k As long, gyou As long, kiguu As long Dim kiguubar As Range , nkiguubar As Range 'オブ... 続きをみる

    nice! 1

  • 2.No.3 分析

    変数　知らなかった本当の使い方  Sub pear_suji()   'ペアストレート数字百十、百一、十一に別に回号、間隔、番号を出力。 Dim j As long, k As long, i As long, Maxx As long Dim  yretu As long, loopend As... 続きをみる

  • 1.No.3 分析

    Dim hit_m(10000, 3) As String Dim kiguu(10000, 3) As String　'奇数偶数3桁用文字配列変数 Dim hit(10000, 3) As long　’出目3桁用整数配列変数 Dim hitx(10000, 3) As long ーーーーーーーー... 続きをみる

  • N0.4予測パターン抽出

    Sub box_kensaku() ’ナンバーズ4のボックス出現回数集計 Dim bango As String   On Error GoTo errorcheck Sheets("box").Select Range("B3:W65").Select bango = Application.I... 続きをみる

  • 3.Ｎ4プロパティ分析

    マクロ作成方法12（マクロ自動記録） Sub 二桁毎の各種分析() 'マクロ記録で作成     Range("B3:X104").Select Selection.Copy Range("B150").Select ActiveSheet.Paste Range("B260").Select Ac... 続きをみる

  • ２.N4プロパティ分析

    Sub copytotal() gyou = ActiveCell.Row iti = Cells(gyou, 2) kankaku_gk = Cells(gyou - 1, 4 + iti) If kankaku_gk = "●" Then kankaku_gk = 0   Range(Cell... 続きをみる

  • 1.N4プロパティ分析

    Sub 横飛び記入() '記入する行をクリックした後マクロ実行する。 　retu = ActiveCell.Column 　gyou = ActiveCell.Row For i = 0 To 20 　　If Cells(gyou, retu + i) <> "" Then End 　If Cel... 続きをみる