• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Excel 2016 - spomalenie

Zaslal/a Cedrom 24.10.2018 18:30

Zdravím,
Po prechode na MS Office 2016 riešim výrazne spomalenie súborov (Excel). Vo verzií 2013 problém nebol. Prišiel som na to, že to spôsobujú činnosti zadávané cez VBA (prechod na 7.1). Skúšal som to ošetriť deklaráciami API funkcií -nepomohlo. Príklad spomaleného kódu:
Sub BezText()
Dim sTxt As String
Dim x As Integer, y As Integer
Dim bunka As Range
On Error Resume Next
sTxt = " ****** Vitajte, pre zápis použi ponuku po stlačení pravého tlačítka myši! ******"
Set bunka = ActiveSheet.Range("B1")
For y = 1 To 1
For x = 1 To 30
Start = Timer
delay = Start + 0.15
Do While Timer < delay
bunka = Space(x) & sTxt
DoEvents
Loop
DoEvents
Start = Timer
delay = Start + 0.15
Next x
Next y
Set bunka = Nothing
End Sub
Samozrejme je toho viacej, ale nie všetko môžem publikovať. Skúšal som viacej možnosti, no bez úspechu. Stretli ste sa s týmto problémom niekto? Ďakujem dopredu za akúkoľvek radu.

Zaslat odpověď >

---

Jaja123(25.10.2018 18:23)#041751

Děkujeme za komentář, pane školiteli. Hodně jste nás opět naučil.citovat

Cedrom(6.11.2018 20:02)#041830

Možno je to pre niekoho nepochopiteľné (Jaja123), no s podobným problémom sa "trápi" dosť veľká skupina užívateľov vo svete. Súvisí to s prechodom na MS Office 2013-2016. Kódy, ktoré v Office 2010 pracovali primerane, teraz výrazne spomalili.
Skúšal som už niekoľko možností, no stále bez prijateľného výsledku. Je tu na fóre pár šikovných "borcov", vie niekto z nich poradiť? ĎAKUJEM za každý podnet.citovat

Jaja123(6.11.2018 20:38)#041831

Můj příspěvek reagoval pouze na komentář uživatele xlnc, který jej následně odstranil.

Případně smazal on sám, nebo admini tohoto fóra, celý jeho účet ;-). Nebylo to nic proti vám, pouze jsem reagoval na další arogantní příspěvek pan Pecháčka (xlnc)...citovat

elninoslov(7.11.2018 0:08)#041832

Skúsil som to na 2010 vo virtuálke a na 2019 na PC, ide to rovnako. V Exceli sa Vám bunka asi ani prekresľovať rýchlejšie ako tých 0,15 nebude.
Skúste toto:
Sub BezText()
Dim sTxt As String
Dim x As Integer
Dim bunka As Range
Dim delay As Single

On Error Resume Next
sTxt = " ****** Vitajte, pre zápis použi ponuku po stlačení pravého tlačítka myši! ******"
Set bunka = ActiveSheet.Range("B1")
Set TXT = ActiveSheet.Shapes("TXT").TextFrame2.TextRange

For x = 1 To 30
delay = Timer + 0.15
Do While Timer < delay
DoEvents
Loop
bunka = Space(x) & sTxt
DoEvents
Next x

Set bunka = Nothing
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse