'【コードウインドウ】 Private Declare Function GetTickCount Lib "kernel32" () As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub test0() Dim For0 As Long, For1, Tck0 As Long, Tck1 As Long For For0 = 0 To 100 Tck0 = GetTickCount For For1 = 1 To 100 Sleep For0 Next For1 Tck1 = GetTickCount Debug.Print "Sleep " & For0 & " = " & Tck1 - Tck0 & " ミリ秒" Next For0 End Sub ________________________________________ 【イミディエイトウインドウ】 Sleep 0 = 0 ミリ秒 Sleep 1 = 93 ミリ秒 Sleep 2 = 203 ミリ秒 Sleep 3 = 296 ミリ秒 Sleep 4 = 406 ミリ秒 Sleep 5 = 499 ミリ秒 Sleep 6 = 609 ミリ秒 Sleep 7 = 686 ミリ秒 Sleep 8 = 811 ミリ秒 Sleep 9 = 889 ミリ秒 Sleep 10 = 1014 ミリ秒 Sleep 11 = 1092 ミリ秒 Sleep 12 = 1202 ミリ秒 Sleep 13 = 1294 ミリ秒 Sleep 14 = 1404 ミリ秒 Sleep 15 = 1498 ミリ秒 Sleep 16 = 1607 ミリ秒 Sleep 17 = 1700 ミリ秒 Sleep 18 = 1794 ミリ秒 Sleep 19 = 1903 ミリ秒 Sleep 20 = 1997 ミリ秒 Sleep 21 = 2106 ミリ秒 Sleep 22 = 2200 ミリ秒 Sleep 23 = 2293 ミリ秒 Sleep 24 = 2403 ミリ秒 Sleep 25 = 2496 ミリ秒 Sleep 26 = 2605 ミリ秒 Sleep 27 = 2699 ミリ秒 Sleep 28 = 2808 ミリ秒 Sleep 29 = 2901 ミリ秒 Sleep 30 = 2995 ミリ秒 Sleep 31 = 3105 ミリ秒 Sleep 32 = 3198 ミリ秒 Sleep 33 = 3292 ミリ秒 Sleep 34 = 3400 ミリ秒 Sleep 35 = 3510 ミリ秒 Sleep 36 = 3604 ミリ秒 Sleep 37 = 3697 ミリ秒 Sleep 38 = 3791 ミリ秒 Sleep 39 = 3900 ミリ秒 Sleep 40 = 4009 ミリ秒 Sleep 41 = 4103 ミリ秒 Sleep 42 = 4197 ミリ秒 Sleep 43 = 4290 ミリ秒 Sleep 44 = 4414 ミリ秒 Sleep 45 = 4493 ミリ秒 Sleep 46 = 4602 ミリ秒 Sleep 47 = 4696 ミリ秒 Sleep 48 = 4805 ミリ秒 Sleep 49 = 4898 ミリ秒 Sleep 50 = 5008 ミリ秒 Sleep 51 = 5101 ミリ秒 Sleep 52 = 5195 ミリ秒 Sleep 53 = 5304 ミリ秒 Sleep 54 = 5397 ミリ秒 Sleep 55 = 5492 ミリ秒 Sleep 56 = 5600 ミリ秒 Sleep 57 = 5710 ミリ秒 Sleep 58 = 5803 ミリ秒 Sleep 59 = 5897 ミリ秒 Sleep 60 = 5990 ミリ秒 Sleep 61 = 6100 ミリ秒 Sleep 62 = 6209 ミリ秒 Sleep 63 = 6302 ミリ秒 Sleep 64 = 6396 ミリ秒 Sleep 65 = 6506 ミリ秒 Sleep 66 = 6598 ミリ秒 Sleep 67 = 6693 ミリ秒 Sleep 68 = 6801 ミリ秒 Sleep 69 = 6911 ミリ秒 Sleep 70 = 6989 ミリ秒 Sleep 71 = 7114 ミリ秒 Sleep 72 = 7191 ミリ秒 Sleep 73 = 7301 ミリ秒 Sleep 74 = 7395 ミリ秒 Sleep 75 = 7503 ミリ秒 Sleep 76 = 7598 ミリ秒 Sleep 77 = 7706 ミリ秒 Sleep 78 = 7800 ミリ秒 Sleep 79 = 7909 ミリ秒 Sleep 80 = 7988 ミリ秒 Sleep 81 = 8112 ミリ秒 Sleep 82 = 8190 ミリ秒 Sleep 83 = 8299 ミリ秒 Sleep 84 = 8408 ミリ秒 Sleep 85 = 8502 ミリ秒 Sleep 86 = 8596 ミリ秒 Sleep 87 = 8705 ミリ秒 Sleep 88 = 8798 ミリ秒 Sleep 89 = 8893 ミリ秒 Sleep 90 = 9001 ミリ秒 Sleep 91 = 9110 ミリ秒 Sleep 92 = 9204 ミリ秒 Sleep 93 = 9298 ミリ秒 Sleep 94 = 9391 ミリ秒 Sleep 95 = 9501 ミリ秒 Sleep 96 = 9609 ミリ秒 Sleep 97 = 9704 ミリ秒 Sleep 98 = 9796 ミリ秒 Sleep 99 = 9891 ミリ秒 Sleep 100 = 10015 ミリ秒