投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ ベーシック
各資料ごとに1番からの番号を割り振る。AutoFill機能より便利なマクロ

受講生さんの投稿

(投稿ID: 3334)

ForNext構文ですぐに変数（番号）を記入し、変数を可変しながら番号をふるマクロを考えてみました。動画のようにテストを実施しながら作成しました。
動画の見本と異なるのは、1つ下の行と比べて同じか違うかによってわりふる数字を変える点です。
'問題[1]
Sub warifuribangou()
    Dim id
    Dim gyo
    id = 1
    For gyo = 4 To 19
        Range("B" & gyo).Value = id
        If Range("C" & gyo).Value <> Range("C" & gyo + 1).Value Then
            id = id + 1
        End If
    Next gyo
End Sub

'問題[2]
Sub nantoka()
    Dim id
    Dim gt
    Dim gyo
    id = 1
    gt = 1
    For gyo = 4 To 19
        Range("B" & gyo).Value = id
        Range("C" & gyo).Value = gt
        gt = gt + 1
        If Range("D" & gyo).Value <> Range("D" & gyo + 1).Value Then
            id = id + 1
            gt = 1
        End If
    Next gyo
End Sub

2017/08/13 04:35