vba: faire quelque chose que sur la première pour chaque boucle

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 

je veux faire quelque chose que la première fois que la première instruction IF THEN est exécutée. J'ai beaucoup de problèmes avec ma logique. aidez s'il vous plaît!

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

Il y a probablement une meilleure façon de le faire, mais vous pouvez avoir une first_time variable booléenne qui commencera comme vrai et préparez-vous à false dans l'instruction if. Vous pouvez ensuite vérifier

If first_time = True Then 
    Stuff 
End If 

Answer 4

Si je vous comprends bien, vous avez des éléments N, et que vous voulez effectuer une opération que pour le premier élément. Donc, faire ce que vous voulez faire, c'est perdre du temps processeur.

Donc, je suggère de réécrire votre logique sans introduire une nouvelle variable booléenne. C'est plus propre et plus rapide. Quelque chose comme ceci par exemple:

Dim intCount As Integer  

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