Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Δυναμική περιοχή Εκτύπωσης (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2577-dynamiki-perioxi-ektiposis.html)

Flashgordon61 09-06-13 14:24

Δυναμική περιοχή Εκτύπωσης
 
1 Συνημμένο(α)
Καλημέρα σε όλους.
Παρακαλώ την βοήθειά σας

Όπως φαίνεται και στο επισυναπτόμενο αρχείο, σε έναν πίνακα του Excel ,του οποίου τα δεδομένα προέρχονται από συναρτήσεις, θέλω η περιοχή εκτύπωσης να ορίζεται από τις επικεφαλίδες του πίνακα έως και την τελευταία γραμμή του πίνακα που υπάρχουν ορατά δεδομένα.(όχι οι γραμμές που η συνάρτηση φέρνει αποτέλεσμα "") .

Tasos 09-06-13 18:09

Καλησπέρα Γιώργο!

Δεν θα χρειαστείς VBA.

Όρισε το όνομα "PrintArea" και πέρασε τον παρακάτω τύπο:
Κώδικας:

=Sheet1!$D$2:INDEX(Sheet1!$N:$N;MAX((Sheet1!$D$1:$D$1000<>"")*ROW(Sheet1!$1:$1000)))
Στο όνομα "Print_Area" γράψε τον τύπο: = PrintArea

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

Προσοχή! Αν ορίσεις εκ νέου την περιοχή εκτύπωσης από το μενου της εφαρμογής, ο τύπος = PrintArea θα αντικατασταθεί!

Με εκτίμηση

Τάσος

Flashgordon61 09-06-13 18:28

Κα-τα-πλη-κτι-κό!!!!!!!!!!!!!!!!:thumbup:

Τάσο χίλια ευχαριστώ:thanks:

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

Γιώργος


Η ώρα είναι 22:01.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2