ツール | MitoNote

Q: Do Until~Loop

'条件を満たすまで 前判定 Dim n As Long n = 1 Do Until n > 5 Debug.Print n n = n + 1 Loop '条件を満たすまで 後判定 n = 1 Do Debug.Print n n = n + 1 Loop Until n > 5

Q: Do While～Loop

'条件を満たす間まで 前判定 Dim n As Long n = 1 Do While n < 5 Debug.Print n n = n + 1 Loop '条件を満たす間まで 後判定 n = 1 Do Debug.Print n n = n + 1 Loop While n < 5

a

Do Until~Loop

'条件を満たすまで　前判定
Dim n As Long
n = 1
Do Until n > 5
    Debug.Print n
    n = n + 1
Loop

'条件を満たすまで　後判定
n = 1
Do
    Debug.Print n
    n = n + 1
Loop Until n > 5

a

Do While～Loop

'条件を満たす間まで　前判定
Dim n As Long
n = 1
Do While n < 5
    Debug.Print n
    n = n + 1
Loop

'条件を満たす間まで　後判定
n = 1
Do
    Debug.Print n
    n = n + 1
Loop While n < 5

a

処理時間の計測

'計測開始
    Dim myspeed As Double
    Dim starttime As Double
    starttime = Timer
'---------------------------

'計測終了
   myspeed = Timer - starttime
   Debug.Print "処理時間：" & myspeed & "秒"
'---------------------------