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