• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Excel visual Basic - zatrzymanie pętli przyciskiem

VPS Starter Arubacloud
0 głosów
541 wizyt
pytanie zadane 2 lipca 2019 w Visual Basic przez razor1379 Początkujący (250 p.)
Witam,

Czy można zatrzymac pętle przyciskiem w excelu? Dodam, że pętla(Do while) wykonuje się kilkanaście sekund i powtarza się kilkadziesiąt tysięcy razy, więc w sumie trwa kilka dni. Excel się zawiesza i jedyne co działa to alt+f4 jednocześnie usuwając cały postęp. Jak taką pętle można zatrzymać w dowolnej chwili?

1 odpowiedź

+1 głos
odpowiedź 4 lipca 2019 przez Chess Szeryf (76,710 p.)
wybrane 5 lipca 2019 przez razor1379
 
Najlepsza

Nie wiem, czy to dobry sposób na to. Może są lepsze sposoby, żeby Excel dalej pracował przy dużej ilości danych, ale nie zagłębiając się zanadto w to, możesz napisać tak (wykonuje to sleep i przerywa pracę na kilka chwil, zależnie od wpisanej wartości)

'Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems

Sub loop1()

Application.Worksheets("Arkusz1").Activate

Dim Counter As Long
Counter = 0
MsgBox "Execution is started"

Do While Counter <= 20
  If Counter = 5 Or Counter = 10 Or Counter = 15 Or Counter = 20 Then
    Application.Range("A" & Counter).Value = Counter
    Sleep (2500)
    MsgBox "Execution Resumed"
  End If
  Counter = Counter + 1
Loop
End Sub

'Source https://www.exceltrick.com/formulas_macros/vba-wait-and-sleep-functions/?

2500ms = 2.5s, 1000ms = 1s.

ms - milisekunda, s - sekunda.

exceltrick.com

Podobne pytania

0 głosów
1 odpowiedź 352 wizyt
pytanie zadane 28 grudnia 2018 w Visual Basic przez error12 Nowicjusz (120 p.)
0 głosów
1 odpowiedź 917 wizyt
+1 głos
1 odpowiedź 359 wizyt
pytanie zadane 25 września 2020 w Visual Basic przez doeg Początkujący (430 p.)

92,452 zapytań

141,262 odpowiedzi

319,078 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...