VBA_100_41

今日もVBA100本ノック～ゆっくりわちょんさんのYoutube見ながら写経。

暗算するVBAを作成する途中

RandBetween関数のところで次のエラー

コンパイルエラー　引数は省略できません。とのこと。

Option Explicit

Sub inputBoxさん10回()

    Dim ans, ansX, num1, num2
    Dim i As Long
    Dim cnt As Long
    cnt = 0
    
    For i = 1 To 10
        num1 = WorksheetFunction.RandBetween(1.99)
        num2 = WorksheetFunction.RandBetween(1.99)
        ansX = CStr(num1 + num2)
'        ans = InputBox(num1 + num2)
        ans = InputBox(num1 & " + " & num2)
    
    If ans = ansX Then
        cnt = cnt + 1
     End If
    
    Next

    MsgBox cnt & "問正解！"
End Sub

今日はここでおしまいにしますー