επιλεκτική εκτύπωση στο excel

VB Script και κολπάκια, Excel macro, Word, Powerpoint, κτλ

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
panosf
Δημοσιεύσεις: 3
Εγγραφή: 08 Οκτ 2008 17:32
Τοποθεσία: PTOLEMAIDA

επιλεκτική εκτύπωση στο excel

Δημοσίευση από panosf » 14 Οκτ 2008 18:12

γειά σας , παιδιά έχω κάνει ένα φύλο στο οποίο έχω το εξής πρόβλημα, έχω βάλει σαν διακόπτη στο κελλί Η5 τον αριθμό 1 όταν λοιπόν το κελλί Η5 έχει το 1 γίνονται κάποιες πράξεις και το αποτέλεσμα βγαίνει δεξιά ,όταν είναι κενό δεν γίνεται καμμία πράξη ,στην εκτύπωση όμως μου βγάζει τις γραμμές Η5,Η6,Η7 που εγώ δεν θέλω ,μπορώ ? όταν το κελλί Η5 είναι 1 να εκτυπώνονται οι γραμμές Η5,Η6,Η7 και όταν είναι κενό να παραλείπονται (αυτό θα επαναληφθεί για πολλά τέτοια σέτ στην συνέχεια)?

Άβαταρ μέλους
GeoStuff
Honorary Member
Δημοσιεύσεις: 7496
Εγγραφή: 16 Νοέμ 2005 03:12
Τοποθεσία: Στα αλατορυχεία της Ζουαζιλάνδης...

επιλεκτική εκτύπωση στο excel

Δημοσίευση από GeoStuff » 14 Οκτ 2008 23:13

Δεν ξέρω αν καταλαβαίνω σωστά...

Αλλά αν βάψεις άσπρα τα κελιά δεν θα τυπώνεται τπτ...

Αν είμαι αυτό που θες...
Κούκλα Μου Φρεγάτα Σκίζεις Τον Ωκεανό... Μοιάζεις Στον Τιτανικό!!!

panosf
Δημοσιεύσεις: 3
Εγγραφή: 08 Οκτ 2008 17:32
Τοποθεσία: PTOLEMAIDA

επιλεκτική εκτύπωση στο excel

Δημοσίευση από panosf » 16 Οκτ 2008 11:44

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

Άβαταρ μέλους
Sheena
Honorary Member
Δημοσιεύσεις: 3654
Εγγραφή: 07 Σεπ 2005 00:00

επιλεκτική εκτύπωση στο excel

Δημοσίευση από Sheena » 09 Μαρ 2009 15:15

θα πρέπει να δηλώσεις πως αν το κελί δεν έχει τιμή, τότε να τυπώνει το κενό "", π.χ. =IF(A4=1;B4+C4;""). Φαντάζομαι πως αυτά τα γράφεις σε excel, σωστά; Τώρα για την εκτύπωση, το printout πού είναι?
Εικόνα

id12856 Οι άγγελοι πάνε κοντά με τους αγγέλους...

telamonas
Δημοσιεύσεις: 6
Εγγραφή: 03 Μαρ 2009 17:02

επιλεκτική εκτύπωση στο excel

Δημοσίευση από telamonas » 12 Μαρ 2009 16:53

Αν και δεν μας λες ποιά περιοχή θέλεις να τυπώνει κοίταξε λίγο την παρακάτω μακροεντολή
αν το κελί Α1=1 τότε τυπώνει από A1:D3 αλλιώς τυπώνει Β1:D3


If Range("A1") = "1" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$3"
Else
ActiveSheet.PageSetup.PrintArea = "$B$1:$D$3"
End If

Απάντηση

Επιστροφή στο “Office, Excel, Word VB Scripts και Tips”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες