02-08-13, 08:16
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Καλημέρα
Ένας τρόπος θα μπορούσε να είναι ο εξής:
Στο φύλλο που θέλουμε να αναπροσαρμόζονται οι στήλες
Δεξί κλικ στο Tab του φύλλου > View Code
Και περνάμε αυτές τις γραμμές κώδικα
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Range("A:A,C:C,E:E").Columns.AutoFit
End Sub
Στο παράδειγμα αναπροσαρμόζονται οι στήλες A, C και E
Μπορείτε να τις αλλάξετε κατά το δοκούν
Προσοχή με την μέθοδο αυτήν δεν έχετε Undo
|