趣味のエクセルマクロ&数字選択式宝くじ

ナンバーズ4などの数字選択式宝くじデータ分析用の自作マクロおよびナンバーズ4などの各種データリストなどをブログにしています。

ナンバーズのデータについて考える 2

ナンバーズ4の出現状況や毎回の当選番号分析などを書いて行きます。


ナンバーズ4でのペア数字の出現状況(4906回~4963回)



ナンバーズ4での3桁数字の出現状況(4906回~4963回)


(255は315回目に出現していた。メモしている)


ナンバーズ4での2桁、3桁の組み合わせには確率があって、確率的に動いていますね。
今までの間には、良く出ている組合わせと出ていない組み合わせがあります。


今までに良く出たから今後はあまり出ないだろう、あるいはまだまだ出るとかは分からないですが?自分なりに決めて過去の出方から推測するしかないと思います。
過去の出方の確率には絶対的な答えが無い気がします。(だから成立しているw)
答えが無いから分からないと決めつけないで、何とか考えるのが大事な気がします。



=====================================================================
4970回(火)当選番号  3127


2→3→休→5→6→7→8→9→0→1→2→3      2→休→0→休→8→7  他
かけ算3721 類似かけ算2714 隠れかけ算3412 3927 表裏ペア27  回号連動7

なんか?かけ算数字が気に成って3927考えたが、3721とはw
=====================================================================
4971回(水)当選番号  2850


--2→1→0
シングル連番無 回号連動無
類似かけ算2510 5840 2桁かけ算1202 隠れかけ算2408  4520  表裏ペア05 
=====================================================================
4972回(木)当選番号  9125  (ストレート3回目)


7→8→9 2→1→0→9 2→3→休→5 8→7→休→5
類似かけ算 2510 2918 2桁かけ算1202 1505 回号連動29 合計17
ホットナンバー 2(8827→3127→9125)


=====================================================================
4973回(金)当選番号 7015  (ストレート2回目)


3→2→1→0    7→8→9→0
表裏ペア05  類似かけ算 1505  1707  2桁かけ算 1505  2510 回号連動7 合計13
(表裏ペア--5違いのペア数字---ナンバーズ4全体の46%)

合計20がしばらく出てないようで(maxです)、そろそろ狙って行く頃なのかどうか?


=====================================================================
4974回(月)当選番号  2120  (ストレート3回目)


2→1→0   7→8→9→0→1
ダブル全連番 小数字(4以下構成) かけ算数字1202
類似かけ算2204 隠れかけ算2510  ホットナンバー1,2 ペア ?12?多出現

=====================================================================
4975回(火)当選番号  7706  (ストレート2回目)


合計20出現 ダブル 類似かけ算無  隠れかけ算1707  回号連動 7
類似当選番号 4954回6807 4967回0774 4975回7706
=====================================================================
4976回(水)当選番号  1776  (ストレート2回目)


表裏ペア16   類似かけ算 1707  2桁かけ算1606 1707   回号連動67
ダブル3個引張(677が前回495回のはまりのせいか?)


=====================================================================
4977回(木)当選番号  2323


0→1→2 (7706→1776→2323)
ダブルダブル発生 引張無 類似かけ算無 小数字 合計10  ホットナンバー2(下表)

=====================================================================
4978回(金)当選番号  8989


6→7→休→9 (7706→1776→休→8989)
連続ダブルダブル 引張無 類似かけ算9981 大数字 合計34 回号連動89
(連続ダブルダブルは過去に2回程ある  データについて考える4943回より)
・パターン表 4969回-4976回

=====================================================================
4979回(月)当選番号  1265


03789無 回号連動無 引張無 独立2連番 表裏ペア16 合計14
類似かけ算2510 2612 隠れかけ算2816
         (4979回までのボックスペア集計)


=====================================================================
4980回(火)当選番号  8946      (4956回 6894)


3→休→5→6
回号連動489 表裏ペア49 合計27 類似かけ算 4936 6848 6954 隠れかけ算8864
ホットナンバー6 (7706→1776→3休→8946)
=====================================================================
4981回(水)当選番号  0278


3→休→5→6 →7 (2323→休→1265→8946→0278)
シングル昇順番号 回号連動8 表裏ペア27 合計17(前回より10下がる)
類似かけ算無 2桁かけ算8972  隠れかけ算2408 4728 8972
類似番号 4954-6807 4958-7278 4966-7908 4969-8827 4971-2850
(4957回8943次回7278 4980回8946次回0278 同パターン?)
=====================================================================
4982回(木)当選番号 7212


9→0→1     9→8→    5→4→休→2
回号連動2 表裏ペア27 ホットナンバー2(1265→0278→休→7212)
類似かけ算1202 2714 2桁かけ算1202 1707 隠れかけ算2612 3721 
・4982回での出目出現状況(全体で2は弱いが直近10回では一番強くなっている)

=====================================================================
4983回(金)2355


9→0→1→2 8→7→休→5
回号連動3 ダブル連番23 類似かけ算3515 5525 隠れかけ算5735
類似番号 4960回3155 
=====================================================================
4984回(月)6376


9→0→1→2→3 (8946 → 0278→ 7212→ 2355→ 6376)
回号連動無 ダブルと連番 類似かけ算6636 合計22
番号変化パターンに類似は? 4960回3155→2336   2355→6376 今回
=====================================================================
4985回(火)6563


2→3→休→5      8→7→休→5→休→3
6の連続ダブル  引張3個  合計20 回号連動5  類似かけ算5630 6636 
前回とほぼ同じ、6376 6563 でダブル6に対して連番
=====================================================================
4986回(水) 7870


5→6→休→8
回号連動8 7のダブル  類似かけ算無 2桁かけ算7856 隠れかけ算 1707
ホットナンバー 7(0278→6376→7870)
類似番号 0278(5違い)7706(2違い)0774(4違い)7278(2違い)6807(1違い)
=====================================================================
4987回(木) 7395


6→5→休→3      5→6→休→8→9      2→3→休→5→休→7
オール奇数シングル  回号連動79  ホットナンバー 7 3 5
類似かけ算 7963 5735 3927 

=====================================================================
4988回(金)

マクロ作成方法17(フローチャート作成)

複雑なプログラムを作る際フローチャートを作成します。フローチャートは設計図です。
だから、エクセルでも何千行のマクロの場合作るそうです。


私の場合は数十行の小さなマクロなので作らないですね。とか言うか私はフローチャートは苦手なのですw でも頭の中で処理の流れは浮かんでいるので問題無いです。


たとえば基本的な処理の流れとして簡単ですが下記の事を意識しています。
(1)データの入力
(2)入力データから計算
(3)出力


この場合、どんな結果(出力)が欲しいのかが目的にあって、どうしたら実現できるかが手段としてのマクロ作成。抜けが起きないようにするのがフローチャートだと思います。


エクセルマクロは基本的に


左から右に


上から下に


動いて行きます。


だから、下に行く場合必要な処理が終わっていないと止まってしまいます。
(マクロエラーの場合も止まりますが)


作成マクロはマクロボタンを押したときからマクロが処理実行されます。


次にもし、いろんな条件によって処理が変わるなら
その条件を判断して次の処理に進みます。


最後にマクロが止まって終わります。



マクロ作成方法16(自動記録・ファイル)


自動記録マクロで別のファイルを開いて元のファイルの指定セルにコピーして見ました。


「No.4予測パターン抽出.xlsm」のファイル上でNUMBERS 関 連フォルダーにある「n4プロパティ分析.xlsm」ファイルを開いてコピーしています。


手入力でこのマクロを作るのは非常に面倒ですね。普段ファイル操作しているのを自動記録で作成して行くのが良いですね。


Sub 間隔コピー()
 ChDir "C:\Users\km\Desktop\NUMBERS 関 連"
    Workbooks.Open Filename:="C:\Users\km\Desktop\NUMBERS 関 連\n4プロパティ分析.xlsm"

 Windows("n4プロパティ分析.xlsm").Activate
    Sheets("千百分析").Select
    Range("K1:DF83").Select
    Selection.Copy
   
    Windows("No.4予測パターン抽出.xlsm").Activate
     Sheets("間隔").Select
    Range("B3").Select
    ActiveSheet.Paste


End Sub







すでに別のファイルを開いておいて、今のファイルにコピーします。
別のファイルが閉じていた場合、エラーになります。
エラーにさせたくない時はマクロ間隔コピーのようにすれば良いでしょう。


Sub 最後当選へコピー() '占星術コピイ含む
'
' LOTO6から最後の当選にコピーする。
gyou = Windows("LOTO6SlJ.xlsm").ActiveCell.Row
    If Cells(gyou, 2) <> "" And Cells(gyou, 4) <> "" Then End
    Windows("LOTO6.xlsm").Activate
    Sheets("表 (2)").Select
     Range(Cells(gyou - 1, 1), Cells(gyou - 1, 52)).Select
    Selection.Copy
    Windows("LOTO6SlJ.xlsm").Activate
     Sheets("最後当選").Select
    Cells(gyou, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
   Call 飛び記入_6
  
    Range("BA3").Select
    Selection.Copy
  
   
    Cells(gyou, 53).Select
   
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
       
   Call copiii   '占星術コピイ
      
    Sheets("最後当選").Select
       
  Cells(gyou, 3).Select
End Sub




Sub 飛び記入_6() '記入する行をクリックした後マクロ実行する。


retu = ActiveCell.Column
gyou = ActiveCell.Row


For i = 0 To 42
  If Cells(gyou - 1, 10 + i) = "●" Or Cells(gyou - 1, 10 + i) = "○" Then
    If Cells(gyou, 10 + i) = "" Then Cells(gyou, 10 + i) = 1
  Else
    If Cells(gyou, 10 + i) = "" Then Cells(gyou, 10 + i) = Cells(gyou - 1, 10 + i) + 1
  End If
Next i


End Sub



Sub copiii() '占星術コピイ


 Windows("LOTO6.xlsm").Activate
  Sheets("元データ").Select
    Range("DF4:DQ50").Select
    Selection.Copy
    Windows("LOTO6SlJ.xlsm").Activate
   
   
   Sheets("占星術").Select
    Range("C9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  Range("C9:N51").Select
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).AboveBelow = xlAboveAverage
    With Selection.FormatConditions(1).Font
        .Color = -16752384
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13561798
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).AboveBelow = xlBelowAverage
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    ActiveWindow.SmallScroll Down:=-12
    Range("B2").Select


End Sub