
05-05-11, 19:47
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλησπέρα!
Χρήστο αυτό που θέλεις να επιτύχεις δηλαδή να μπορούν να αυξάνεται το ύψος των γραμμών αλλά να μην μειώνεται σε λιγότερο από 49 στ., γίνεται μόνο με χρήση VBA.
Ο κώδικας VBA ( βασισμένος στις απαιτήσεις του παραδείγματος) είναι ο εξής: Κώδικας: Option Explicit
Sub SetRowHeight()
Dim rng As Range, c As Range
Application.ScreenUpdating = False
Set rng = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)
rng.Cells.EntireRow.AutoFit
For Each c In rng
If c.RowHeight < 49 Then c.RowHeight = 49
Next
End Sub
Μπορείς να δεις το αποτέλεσμα στο συνημμένο.
Καλή συνέχεια!
Φιλικά
Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |