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

MS Excel

Téma: Pomalé provedení

Zaslal/a marficek119 1.3.2011 10:12

Ahoj, níže uvedený kód je asi blbě napsaný, strašně dlouho trvá provední operace (asi 2 minuty). Je to normální, nebo by šel kód napsat jednodušeji.
Díky za radu.
M.
Sub Skrytí_řádků_sumrozpočtu()
If MsgBox("Tato operace bude chvilku trvat, pokračovat?", vbYesNo, "Aktualizace řádků") = vbYes Then
Dim i As Integer
Application.ScreenUpdating = False
For i = 42 To 51

If Cells(i, 5) = Empty Then
Rows(i).Hidden = True
End If
Next i

For i = 62 To 96
If Cells(i, 5) = Empty Then
Rows(i).Hidden = True
End If
Next i

For i = 107 To 141
If Cells(i, 5) = Empty Then
Rows(i).Hidden = True
End If
Next i

For i = 152 To 186
If Cells(i, 5) = Empty Then
Rows(i).Hidden = True
End If
Next i

For i = 197 To 231
If Cells(i, 5) = Empty Then
Rows(i).Hidden = True
End If
Next i

For i = 242 To 276
If Cells(i, 5) = Empty Then
Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End If
End Sub

Zaslat odpověď >

---

Poki(2.3.2011 11:06)#004238

V kodu zadnej problem nevidim.
Zkousel jsem to a jde mi to rychle, mozna bude problem ve vytizeni procesoru...

Jinak fakt nevim.citovat

marficek119(2.3.2011 11:53)#004240

Díky za názor, asi pravda, mám starej krám....citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje