Αυτόματη προσαρμογή ύψους γραμμής
 

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

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

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

Αύξηση στήλης
 

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

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

Φιλικά

Τάσος

Αύξηση στήλης
 

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

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

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

Τάσος

Απάντηση
 

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

Καλησπέρα!

Χρήστο αυτό που θέλεις να επιτύχεις δηλαδή να μπορούν να αυξάνεται το ύψος των γραμμών αλλά να μην μειώνεται σε λιγότερο από 49 στ., γίνεται μόνο με χρήση VBA.

Ο κώδικας VBA ( βασισμένος στις απαιτήσεις του παραδείγματος) είναι ο εξής:

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

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

Φιλικά

Τάσος

Αύξη στήλης
 

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

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

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

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

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

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

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

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


Συνημμένο Αρχείο 1504


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

Τάσος

Ανάπτυξη στήλης
 

Ευχαριστώ. :icon_hihi: .
Ναι ήταν λάθος μου και το αναγνώρισα, αλλά δεν έγινε με πρόθεση.
Στον κώδικα βλέπω........ "Set rng = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)" το Α3:Α εννοεί την στήλη Α;;;; Αν θέλω να γίνει στην στήλη B,ή C, ή D θα πρέπει να το αλλάξω αυτό;;;; Και επίσης και κάτι άλλο αν θέλω να γίνει η ανάπτυξη σε δύο στήλες (π.χ στις D, E);;;;;;; γιατί μπορεί να έχει πολλά στοιχεία ή στην D ή στην Ε. Ευχαριστώ

Ο κώδικας δημιουργεί μια περιοχή κελιών (nrg) από το Α3 μέχρι το τελευταίο κελί της στήλης A που δεν είναι κενό.

Κατόπιν με την εντολή rng.Cells.EntireRow.AutoFit ρυθμίζεται το ύψος ολόκληρης της γραμμής στην οποία ανήκει το καθένα από τα κελιά της της περιοχής.
Δε χρειάζεται λοιπόν να περιλάβεις δεύτερη στήλη στην περιοχή rng.

Στο παράδειγμα μας χρησιμοποιήσαμε τη στήλη A επειδή βάσει λογικής, θα είναι η στήλη που θα περιέχει πάντα δεδομένα (Α/Α Πινακίου).


Αν χρησιμοποιούσαμε τη στήλη B, θα είχαμε πρόβλημα αφού τα 2 τελευταία κελιά (B23, B24) δεν είναι συμπληρωμένα κι έτσι η περιοχή (rng)
θα ήταν κατά 2 κελιά "κοντύτερη" με αποτέλεσμα οι 2 τελευταίες γραμμές να μην συμπεριλαμβάνονται στη διαδικασία.


Τέλος πάντων, αν για κάποιο λόγο πρέπει να συμπεριληφθούν όλες οι γραμμές της χρησιμοποιημένης περιοχής τότε χρησιμοποιούμε:


Set rng = Range("A3:A" & ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count) - 1


Φιλικά


Τάσος