19-03-15, 23: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
| |
Τις 4 γραμμές κώδικα που ακολουθούν,
με τις 2 πρώτες, να δηλώνουν, συγκεκριμένη τιμή και
τις 2 επόμενες αυτόματη προσαρμογή... Κώδικας: Columns("A:A").ColumnWidth = 14.38
Rows("1:1").RowHeight = 30.75
Columns("a:a").EntireColumn.AutoFit
Rows("1:1").EntireRow.AutoFit
μπορείτε μια - μια χωριστά ή σε συνδυασμό να τις χρησιμοποιήσετε για να έχετε αποτέλεσμα.
|