vba：ループごとに最初に何かを実行してください。

Question

for each element in sarray 
    if ... then 
    if this is the first time the above IF statenent was executed ... then 
    end if 
next element 

最初にIF THEN文が実行されたときだけ何かしたいと思います。私は私の論理に多くの問題を抱えています。助けてください！

Answer 1

var isExecuted = false 
for each element in sarray 
    if ... then 
    if Not isExecuted Then 
     --do stuff 
     isExecuted = true 
    end if 
    end if 
next element 

Answer 2

flag = true 
For each ... 
    if flag 
     do whatever with first element 
     flag = false 
    endif 
    do what you want with all elements ... including the first 
next 

Answer 3

は、おそらくこれを行うには良い方法はありますが、あなたは、真アウト開始し、if文でfalseに設定されますブール変数FIRST_TIMEを持つことができます。その後、私が正しくあなたを理解していればあなたはN個の要素を持っている、とあなたが最初の要素だけのためにいくつかの操作を実行したい

If first_time = True Then 
    Stuff 
End If 

Answer 4

を確認することができます。だからあなたがしたいようにこれを行うには、プロセッサ時間の無駄です。

新しい論理変数を導入せずにロジックを書き直すことをお勧めします。よりクリーンで高速です。たとえば、次のようなものがあります。

Dim intCount As Integer  

If (some condition) Then 
    DoSomething with sarray(0) 
For intCount = 1 To sarray.Length 
    //Do something 
Next intCount