Excel VBA スニペット Do Until~Loop
'条件を満たすまで 前判定Dim n As Longn = 1Do Until n > 5 Debug.Print n n = n + 1Loop'条件を満たすまで 後判定n = 1Do Debug.Print n n = n + 1Loo...
tools
Excel VBA スニペット Excel VBA スニペット Do While～Loop
'条件を満たす間まで 前判定Dim n As Longn = 1Do While n < 5 Debug.Print n n = n + 1Loop'条件を満たす間まで 後判定n = 1Do Debug.Print n n = n + 1L...
Excel VBA スニペット 処理時間の計測
'計測開始 Dim myspeed As Double Dim starttime As Double starttime = Timer'---------------------------'計測終了 myspeed = Timer -...