Excel VBA質問スレ Part9

Excel VBA質問スレ Part9 at TECH

373:デフォルトの名無しさん
09/01/05 18:24:45
>>369
IfやELseIfのネストより遅いのは確かだが、Orより遅いわけねーって。
実測してみろよ。
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub foo1()
　　Dim i&, t1&, t2&
　　t1 = timeGetTime
　　For i = 1 To 5000000
　　　　Select Case i Mod 10
　　　　　　Case 5, 6, 9
　　　　　　Case Else
　　　　End Select
　　Next
　　t2 = timeGetTime
　　MsgBox t2 - t1
End Sub
Sub foo2()
　　Dim i&, j&, t1&, t2&
　　t1 = timeGetTime
　　For i = 1 To 5000000
　　　　j = i Mod 10
　　　　If j = 5 Or j = 6 Or j = 9 Then
　　　　Else
　　　　End If
　　Next
　　t2 = timeGetTime
　　MsgBox t2 - t1
End Sub
foo1がショートサーキットだって知らなかったんじゃないの？
なんなら実証してみせるが、やり方くらい知ってるよな。

次ページ

続きを表示

1を表示