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... 続きをみる

3.N4ST分析

ナンバーズ4のストレート分析 マクロ　対話型 変数　知らなかった本当の使い方 Sub kiguu_tyusyutu()’各集計間隔での奇数、偶数出現回数集計 Dim kai As long, i As long, ii As long, r As long, t As long, x As lon... 続きをみる

2.N4ST分析

ナンバーズ4ストレート分析  Sub next_total() '次合計を表示する Dim kai As long kai = Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Cells(2, 15) Sheets("次数字").Select Range("jj12:kt6000").ClearCont... 続きをみる

1.N4ST分析

'ナンバーズ4のストレート分析 Dim hit_m(4000, 4) As String  Dim hitx(4000, 4) As long  Dim hit(4000, 4) As long ーーーーーーーーーーーーーーーーーーーーーーーーーー Sub saikeisanoff()'再計算オフ... 続きをみる

3.ナンバーズ4パターン表作成関係エクセルマクロ（3）

記事目次　ナンバーズ4 変数　知らなかった本当の使い方  Sub kiguu間隔() '奇遇表示と奇偶間隔でアンダーバー引く  （ 16パターンの間隔） Dim i As long, k As long, gyou As long, kiguu As long Dim kiguin As Stri... 続きをみる

2.ナンバーズ4パターン表作成関係エクセルマクロ（2）

記事目次　ナンバーズ4  Sub s_b_copy()　’上の表の右端と同じデータ（box番号）を探し下端コピーする 　Dim gyou As long Sheets("欠け算並び").Select gyou = Cells(1, 2) + 1 　saikeisanon Range("b9") =... 続きをみる

1.ナンバーズ4パターン表作成関係エクセルマクロ（1）

記事目次　ナンバーズ4  上表の様に関数やマクロを使って表示しています。 関数は一部を残して、あとは値コピーするようにしています。 ①当選番号の欄は文字対応としておきます。（0から始まる場合があるので） ②①の番号を4つに分解して合計や奇数偶数や大小関係を計算します。 ③また②を元にパターン表を作... 続きをみる