BİR FOR DÖNGÜSÜNÜ KIRMAK ACİL!!!!

[kenant]

BÝR FOR DÃ?NGÜSÜNÜ KIRMAK ACÝL!!!!

SİZE ACİL BİR SORUM VAR. BİR FOR DÃ?NGÜSÜNÜ MESELA
FOR S=1 TO 18

İF ........ HERHANGİ BİR ÞART SAÐLANDIÐINDA DÃ?NDÜ DÃ?NDÜRMEYİ BIRAKSIN VE SON BULSUN. BUNU NASIL SAÐLARIM



NEXT S

 

[danersin]

exit for

 

[kenant]

NASILYANİ ÃžARTIMI EXİT FOR DEDİKTEN SONRA BUNUN YANINA MI YAZACAÐIM İF DONGUSU İLE BİR ÞART YAZMAM GEREKİYOR DA BU ARADA TÞK

 

[danersin]

for i=1 to 10

if xxx>yyy then
Burada yapmak istedikleriniz diğer komutlar.
exit for
end if
next i
kod bu satırdaki komutla devam eder.

 

[musculus2]

For next döngüsünde iken boşluk ya da herhangi br tuşa bastığımızda döngüden çıkmak istersek nasıl bir yol izlemeliyiz ?

 

[Zeki Gürsoy]

Örneğin, Shift + m ile durdurabilirsiniz...

Standard module:

Public bool As Boolean

Sub auto_open()
    bool = False
    Application.OnKey "+m", "exit_for" 'Shift + m
End Sub

Sub exit_for()
    bool = True
End Sub

Sub running_for()
    For k = 1 To 1000000
        DoEvents '<<<
        '.
        '.
        If bool Then Exit For
    Next
    bool = False
End Sub

 

[Korhan Ayhan]

ESC ya da Ctrl+Pause Break tuşlarını deneyin.

 

[musculus2]

Kodlarda malesef çalışmadı shift+m döngüsü durmadı.

Code execution has been interrupted hatası verdi ctrl+pause yapınca

 

[musculus2]

Kodlar shift olmadan sadece m harfine basınca çalışıyor .Teşekkür ederim