VBA次の一歩

YouTube VBA
【EXCEL VBA】 VBA次の一歩 マクロで金運アップ! 入れ子のFor Next・判断文・シートをアクティブに・表示位置の制御・罫線 等 VBA 中級編<世界一わかりやすいマクロ徹底解説>
EXCEL VBA中級編です。むずかしい言葉は使わず、やさしく詳しく丁寧に解説しています。フローチャートからプログラムを作成していきます。今回は帳票作成の基本プログラムです。これを習得して、ぜひ実務に生かしてください。これからプログラムを始めたい方、VBAに一度挫折した方も挑戦してみてください。一緒にやってみてく...
Option Explicit
Sub 金運アップ()
Dim i As Long    '千の値
Dim j As Long    '百の値
Dim k As Long    '十の値
Dim l As Long    '一の値
Dim Goukei As Long '4数字の合計
Dim Bango As Long '4数字

Dim Siteibango As Long
Dim m As Long     '行を表す
Dim n As Long     '列を表す
Dim cunt As Long '24の組合せをカウントする

Worksheets("入力").Activate

Siteibango = Cells(7, 3) '組合せを数える番号

Worksheets("組合せリスト").Activate

Cells.Select
Selection.ClearContents
Range("A1").Select

m = 1                    '行の初期値
n = 1
cunt = 0
For i = 0 To 9
    For j = 0 To 9
        For k = 0 To 9
            For l = 0 To 9
                Goukei = i + j + k + l
                If Goukei = Siteibango Then
                
                    'Cells(m, n) = i * 1000 + j * 100 + k * 10 + l
                    Cells(m, n) = Format(i * 1000 + j * 100 + k * 10 + l, "'0000")
                    'Siteibango = Format(i * 1000 + j * 100 + k * 10 + l, "'0000")
                    'MsgBox Bango
                    m = m + 1          '1行下に移動
                    cunt = cunt + 1     '24の組み合わせをカウントする
                End If
                If m > 50 Then          '50行目まで表示した時の処理
                    n = n + 1           '1列右に移動
                    m = 1               '1行目に戻る
                End If
            Next l
        Next k
    Next j
Next i

'MsgBox "24の組合せは…" & cunt & "個でした"

'Worksheets("入力").Activate
Worksheets("入力").Cells(9, 3) = cunt
End Sub

この動画の参考ファイルのLink
https://1drv.ms/x/s!AtH3WjvXQPcTu0zY75gOIJkgIECK

コメント