[Μορφοποίηση] Αυτόματη προσαρμογή ύψους γραμμής

Παιδιά γειά σας και καλό μήνα.
Έχω ένα πρόβλημα στο EXCEL. Θέλω σε στήλες να ορίσω το ύψος τους π.χ σε 49 εκ, αλλά αν το περιεχόμενο τους σε μερικές να είναι μεγαλύτερο να αυξάνει μόνη της, χωρίς να επηρεάζονται οι υπόλοιπες. Αν δεν έγινα κατανοητός να στείλω παράδειγμα. Σας ευχαριστώ

[gr8styl]

Φίλε Χρήστο,
στο Excel συνήθως μπορούμε το αλλάξουμε το ύψος της γραμμής ή το πλάτος της στήλης.
Η αλλαγή ύψους στήλης που ζητάς εσύ, προσωπικά δεν μου κάνει έννοια (δυσκολεύομαι να το καταλάβω).
Για ανέβασέ μας ένα παράδειγμα να δούμε περί τίνος πρόκειται και να προτείνουμε ενδεχομένως κάποιο κόλπο, γιατί το να έχεις το κελί Α2 με διαφορετικό ύψος από αυτό του Β2 δεν γίνεται.

Τα λέμε
Θανάσης

Θανάση Καλημέρα και σε ευχαριστώ για την ανταπόκριση.
Σου στέλνω δύο αρχεία 1ο ΑΓΩΓΕΣ, 2ο ΠΙΝΑΚΙΑ. Στα ΠΙΝΑΚΙΑ παίρνουν στοιχεία από τις ΑΓΩΓΕΣ. Εκεί θέλω να έχω ορίσει το μέγεθος των στηλών στο 70 πχ αλλά όταν έχει περισσότερα στοιχεία να μην τα κόβει αλλά να ανοίγει μόνο σε αυτό.
Δηλ. στο ΠΙΝΑΚΙΑ στο D17 και E19 (αλλά και σε άλλα) βλέπεις ότι τα κόβει και δεν ανοίγει να φανούν τα υπόλοιπα στοιχεία.
Πιστεύω να σου έδωσα περισσότερες λεπτομέρειες και ότι άλλο θέλεις πέσμου. Σε ευχαριστώ

[Tasos]

Καλημέρα Χρήστο!
Αφαίρεσα τα συνημμένα από το προηγούμενο σου μήνυμα γιατί θίγεται το Προσωπικό Απόρρητο κάποιων.
Επισύναψε σε παρακαλώ τα αρχεία σου ξανά αλλά με παραδειγματικά δεδομένα!

Φιλικά

Τάσος

Τάσο γειά σου. Έχεις δίκαιο και σε ΕΥΧΑΡΙΣΤΩ, δεν το σκέφτηκα καθόλου. Σας στέλνω πάλι συνημμένα τα έγγραφα.
Τάσο με την ευκαιρία σου έχω απαντήσει σε ένα πρόβλημα που έχω στην access. Αν μπορείς κοίτατο
Σε ευχαριστώ και πάλι

[Tasos]

Γεια σου Χρήστο!

Το ερώτημα σου στην Access έχει ήδη απαντηθεί από τον Νίκο (Meteora).

Τάσος

Τάσο το ερώτημα μου στην access είναι "Αύξων αριθμός σε κάθε έτος" και σε αυτό δεν μου έχει απαντήσει ο ΜΕΤΕΩΡΑ. Ο τελευταίος ήσουν εσύ και μετά σου έγραψα εγώ και δεν μου απάντησες. Τουλάχιστον έτσι βλέπω εγώ δεν νομίζω να είναι διαφορετικά. Σε ευχαριστώ

[Tasos]

Καλησπέρα!

Χρήστο αυτό που θέλεις να επιτύχεις δηλαδή να μπορούν να αυξάνεται το ύψος των γραμμών αλλά να μην μειώνεται σε λιγότερο από 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

Μπορείς να δεις το αποτέλεσμα στο συνημμένο.

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

Φιλικά

Τάσος

Τάσο Καλημέρα και σε ευχαριστώ για την λύση
Έχω δύο ερωτήσεις. 1) Πως μπορώ αυτών τον κώδικα να τον βάλω και σε άλλο excel; και 2) αν μπορώ να αλλάξω το (49) σε (60) κ.ο.κ. Στο 1ο ερώτημα αν μπορώ να το κάνω θα ήθελα λίγο ανάλυση γιατί από κώδικες δεν γνωρίζω τίποτα. Αν μου τα περιγράψεις αναλυτικά θα τα καταφέρω. Και πάλι ΚΑΛΗΜΕΡΑ σου

[Tasos]

Καλημέρα Χρήστο

Μην απευθύνεσαι μόνο σε μένα.

Είναι καθιερωμένος θεσμός αλλά και "άγραφος νόμος", τα μηνύματα στο φόρουμ να έχουν χαρακτήρα δημόσιας συζήτησης και όχι προσωπικού διαλόγου.
Ακριβώς σ αυτόν το θεσμό οφείλεται η ύπαρξη των δημόσιων συζητήσεων όπου ανήκει και το φόρουμ μας.

Υπάρχουν αρκετοί φίλοι εδώ στο φόρουμ που έχουν τη δυνατότητα να απαντήσουν με ακρίβεια
στις ερωτήσεις σου αλλά από ευπρέπεια δεν θα εμπλακούν στην συζήτηση όταν
απευθύνεσαι σε συγκεκριμένα σε ένα άτομο.

Θα πρέπει να ανοίξεις τον VBE (με τα πλήκτρα ALT + F11)

Κατόπιν πήγαινε στο μενού Insert και πάτησε Module

Στο κυρίως παράθυρο του VBE μπορείς να γράψεις ή να επικολλήσεις κώδικα VBA (βλ. Εκόνα).





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

Τάσος