16-09-13, 09:01
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Καλημέρα
Αν δεν το κάνεις χειροκίνητα (πράγμα απλό)...
Μεγαλώνεις την στήλη όσο θέλεις και αφού την επιλέξεις βάζεις Αναδίπλωση Κειμένου
Βάλε τον κώδικα: Κώδικας: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Range("Table1[Περιγραφή]").ColumnWidth = 38.57
Range("Table1[Περιγραφή]").WrapText = True
Range("Table1[Περιγραφή]").EntireColumn.AutoFit
End Sub
στο φύλλο Συναλλαγές
και τον κώδικα Κώδικας: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Columns("F:F").ColumnWidth = 38.57
Columns("F:F").WrapText = True
Columns("F:F").EntireColumn.AutoFit
End Sub
στο φύλλο Καρτέλα
για να γίνει αυτόματα
|