MS Excel

Dobrý den je jedno co udělám, pokaždé mi bliká obrazovka už nevím co s tím, googlil jsem to a nic, nějaká rada? :O

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
If Cells(1, 2) = Cells(3, 15) Then Call přidej

If Cells(1, 2) = Cells(4, 15) Then Call uber

If Cells(1, 2) = Cells(5, 15) Then Call násob

If Cells(1, 2) = "VYPNOUT" Then Call vypnout

If Cells(30, 1) = 1 Then Cells(30, 1) = 0

'kusy navíc
If Cells(1, 2) = "end" Then Cells(1, 2) = ""

If Cells(6, 15) = 11 Then Call jj

If Cells(6, 15) = Cells(7, 15) Then Cells(1, 2) = ""

If Cells(11, 2) = "1" Then Cells(1, 2) = ""

If Cells(11, 3) = "1" Then Cells(1, 2) = ""

If Cells(11, 4) = "1" Then Cells(1, 2) = ""

If Cells(11, 5) = "1" Then Cells(1, 2) = ""

end sub

Zaslat odpověď >

Strana: 1 2 další »

xlnc(2.8.2017 11:55)#037044

Čisticí utěrky na křišťálové koule přijdou příští týden.

Šmarjá člověče, máte tam milion volání procedur, změny jistojistě vyvolají další událost přepočtu (a tím pádem se procedura zacyklí, což si naštěstí Excel hlídá a po čase vypne)...citovat

Roman13289(2.8.2017 13:45)#037053

Jaké je prosím možné řešení?citovat

marjankaj(2.8.2017 13:50)#037054

Že by vymazať tú procedúru?citovat

xlnc(2.8.2017 13:53)#037055

Přinejmenším

na začátku
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

na konci
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

a nesmí si s tím hrát žádná volaná procedura.

Zbytek viz křišťálová koule.citovat

elninoslov(2.8.2017 14:01)#037056

Riešenie ?
1. Opakujúce použitie Cells(1,2) nahradte tak, že iba raz si do premennej HDN = Cells(1,2).Value uložte hodnotu, a pracujte s premennou. Rovnako ak používate súvislú oblasť buniek Cells(11,2-5) načítajte si ju do premennej aHDN = Cells(11,2).Resize(4).Value a pracujte s poľom aHDN(riadok, stĺpec). Prestupovanie z listu do VBA je pomalé, a nevieme koľkokrát tieto testy prevádzate, môže to spomaľovať.
2. A s tým súvisí ďalšia vec - pridajte prílohu (!), aby bolo vidieť, čo robia volané procedúry. Zaregistrujte sa a môžete prikladať prílohy.
3. Možno bude pre Vás riešením vhodné použitie Application.EnableEvents (aj vypnutie aj zapnutie)...

Poznámky:
Používate tam Application.ScreenUpdating = False. Vraciate to niekde aj naspäť ?
Určite majú bunky v Cells(11,2-5) hodnotu "1" a nie 1 ?
Musí to byť vo Worksheet_Calculate ?citovat

Roman13289(2.8.2017 14:53)#037071

Zasílám ukázku, problém je, že těch proměnných podobných je tam více a kalkuluje se i na jiném listě tu to problikne rychle, ale v mém celém souboru to bliká přes 2s :/ každou radu jak vylepšit svůj jinak funkční paskvil uvítám.citovat

marjankaj(2.8.2017 14:56)#037072

Takže až keď zlyhajú všetky možnosti, tak treba vložiť prílohu?

citovat

Roman13289(2.8.2017 14:59)#037073

Jsem tu nový, takže jsem se musel zaregistrovat, snad příloha řekne vše, protože díky calculate fungují jiné listy, ale třeba to jde jinak

citovat

marjankaj(2.8.2017 15:05)#037074

No lúštiť kód nemienim.
Ale xlnc dal dostatočný návod ako to urobiť.
Aj elninoslov bod č.3 je dobrý. A nielen ten bod ale všetko.
Možno ešte pred ukončením procedúra by bolo vhodné dať to ešte prepočítať. Ale to nemienim stopovať.citovat

Roman13289(2.8.2017 17:23)#037078

Problém je, že těch proměnných podobných je tam více a kalkuluje se i na jiném listě tu to problikne rychle, ale v mém celém souboru to bliká přes 2s :/citovat

Strana: 1 2 další »

Téma: Blikací obrazovka VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje