Εμφάνιση ενός μόνο μηνύματος
  #8  
Παλιά 05-05-11, 19:47
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού 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
Μπορείς να δεις το αποτέλεσμα στο συνημμένο.

Καλή συνέχεια!

Φιλικά

Τάσος
Συνημμένα Αρχεία
Τύπος Αρχείου: xls XL_FixedRowHeight.xls (44,0 KB, 49 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση