Excelであみだくじ を作ってみよう

シートのVBAコード

下記のVBAコードを追加してください。

Private Sub CommandButton3_Click()
    ExAtariStart 1
End Sub

Private Sub CommandButton4_Click()
    ExAtariStart 2
End Sub

Private Sub CommandButton5_Click()
    ExAtariStart 3
End Sub

Private Sub CommandButton6_Click()
    ExAtariStart 4
End Sub

Private Sub CommandButton7_Click()
    ExAtariStart 5
End Sub

Private Sub CommandButton8_Click()
    ExAtariStart 6
End Sub

Private Sub CommandButton9_Click()
    ExAtariStart 7
End Sub

Private Sub CommandButton10_Click()
    ExAtariStart 8
End Sub

Private Sub CommandButton11_Click()
    ExAtariStart 9
End Sub

Private Sub CommandButton12_Click()
    ExAtariStart 10
End Sub

Private Sub CommandButton13_Click()
    ExAtariStart 11
End Sub

Private Sub CommandButton14_Click()
    ExAtariStart 12
End Sub

Private Sub CommandButton15_Click()
    ExAtariStart 13
End Sub

Private Sub CommandButton16_Click()
    ExAtariStart 14
End Sub

Private Sub CommandButton17_Click()
    ExAtariStart 15
End Sub

Private Sub CommandButton18_Click()
    ExAtariStart 16
End Sub

Private Sub CommandButton19_Click()
    ExAtariStart 17
End Sub

Private Sub CommandButton20_Click()
    ExAtariStart 18
End Sub

Private Sub CommandButton21_Click()
    ExAtariStart 19
End Sub

Private Sub CommandButton22_Click()
    ExAtariStart 20
End Sub