vba: yalnızca her döngü için bir şey yapın

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 

SADECE ilk kez ilk IF THEN deyiminin yürütüldüğü bir şey yapmak istiyorum. Mantığımla çok fazla sorun yaşıyorum. lütfen yardım et!

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

muhtemelen bunu yapmanın daha iyi bir yolu yoktur ama doğru olarak dışarı başlayacak ve eğer açıklamada yanlış olarak ayarlanmış olsun bir boolean değişken first_time sahip olabilir. Daha sonra seni doğru anladıysam Eğer N unsurları var

If first_time = True Then 
    Stuff 
End If 

Answer 4

kontrol edebilir ve sadece ilk öğe için bazı işlemi gerçekleştirmek istiyoruz. Bunu yapmak istediğin gibi yapmak, işlemci zamanının israfıdır.

Yeni bir boole değişkeni eklemeden mantığınızı yeniden yazmanızı öneririm. Daha temiz ve hızlı. Örneğin, bu gibi bir şey:

Dim intCount As Integer  

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