30-04-17, 09:14
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλημέρα
Οι κώδικες που χρησιμοποιείς, έχουν αρκετά προβληματάκια...
Δεν θα εξετάσουμε τι θα μπορούσε να γίνει, αλλά μόνο μια λύση bypass,
για να μην «χαλάνε» οι τύποι...
Στις ρουτίνες: Κώδικας: Sub HideRows() και Sub UnhideRows()
βάλε στο τέλος, αυτές τις 2 γραμμές: Κώδικας: Next i
ActiveSheet.EnableCalculation = False
ActiveSheet.EnableCalculation = True
End Sub
Τελευταία επεξεργασία από το χρήστη Spirosgr : 30-04-17 στις 09:39.
Αιτία: Ορθογραφία
|