Πώς να αποκρύψετε αυτόματα γραμμές εάν είναι κενά κελιά σε μια στήλη;

Εάν έχετε μια σειρά δεδομένων που συμπληρώνουν ορισμένα κενά κελιά σε μια στήλη και τώρα, θέλετε να αποκρύψετε αυτόματα τις σειρές που περιέχουν τα κενά κελιά σε αυτήν τη στήλη. Υπάρχουν καλοί τρόποι για να λύσετε αυτήν την εργασία στο Excel γρήγορα και εύκολα;

Αυτόματη απόκρυψη σειρών εάν κενά κελιά σε μια στήλη με κώδικα VBA

Αυτόματη απόκρυψη σειρών εάν κενά κελιά σε μια στήλη με κώδικα VBA

Ο ακόλουθος κώδικας μπορεί να σας βοηθήσει να αποκρύψετε όλες τις σειρές αν είναι κενά κελιά σε μια συγκεκριμένη στήλη ταυτόχρονα, και εάν διαγράψετε το περιεχόμενο κελιού σε αυτήν τη στήλη, οι σειρές θα κρύβονται επίσης αυτόματα. Κάντε τα εξής:

1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να αποκρύψετε αυτόματα τις σειρές εάν υπάρχουν κενά κελιά σε μια στήλη και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο κενό Μονάδα μέτρησης:

Κωδικός VBA: Αυτόματη απόκρυψη σειρών εάν κενά κελιά σε μια στήλη:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

Note: Στον παραπάνω κώδικα, A1: A20 είναι η λίστα δεδομένων που περιέχει τα κενά κελιά που θέλετε να αποκρύψετε αυτόματα.

2. Στη συνέχεια, επιστρέψτε στο φύλλο εργασίας και τώρα, όταν κάνετε διπλό κλικ σε οποιοδήποτε κελί και πατήστε εισάγετε κλειδί, οι σειρές που περιέχουν κενά κελιά στη στήλη Α έχουν κρυφτεί ταυτόχρονα και εάν διαγράψετε οποιοδήποτε περιεχόμενο κελιού στα καθορισμένα κελιά της στήλης Α, οι σειρές θα αποκρυφθούν αυτόματα.

Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

Σχόλια (32)

Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!

Μυρμήγκι

περίπου 5 χρόνια

#21776

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια, χρησιμοποιώ excel 2016 και δεν λειτουργεί. Λαμβάνω ένα μήνυμα σφάλματος sintax. μπορεις να βοηθησεις?

απάντηση

skyyang Μυρμήγκι

περίπου 5 χρόνια

#21777

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Μυρμήγκι,

Ο παραπάνω κώδικας λειτουργεί καλά στο Excel 2016 μου, έχετε αλλάξει την αναφορά κελιού στον κώδικα ανάλογα με τις ανάγκες σας;

απάντηση

Αναφορά

Lars

περίπου 5 χρόνια

#21785

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Λαμβάνω ένα σφάλμα χρόνου εκτέλεσης '13':

Πληκτρολογήστε αναντιστοιχία

Κάποιος που μπορεί να βοηθήσει;;;

απάντηση

alex

περίπου 5 χρόνια

#22014

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Μπορώ να σταματήσω την αυτόματη εκτέλεση αυτής της μακροεντολής αφού πατήσω το enter; Μπορώ να το επισυνάψω σε ένα κουμπί για να κρύβονται τα κελιά μόνο όταν κάνω κλικ;

απάντηση

devin alex

περίπου 4 χρόνια

#22015

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

το καταλαβε κανεις αυτο? Κι εγώ θα ήθελα να ξέρω.

απάντηση

Αγοράστε devin

περίπου 4 χρόνια

#22016

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

έχει βρει κανείς την απάντηση;

απάντηση

andrea Αγοράστε

περίπου 4 χρόνια

#22017

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

την ίδια ερώτηση εδώ

απάντηση

skyyang andrea

περίπου 4 χρόνια

#22018

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας παιδιά,
Για να αποκρύψετε τις σειρές που μια συγκεκριμένη στήλη περιέχει κενά κελιά χρησιμοποιώντας ένα κουμπί, κάντε ως εξής:
Αρχικά, θα πρέπει να εισαγάγετε ένα κουμπί εντολών από την καρτέλα Προγραμματιστής.
Στη συνέχεια, εφαρμόστε τον ακόλουθο κώδικα VBA για το κουμπί εντολών, (Σημείωση: αλλάξτε την αναφορά κελιού a1:a20 με τη δική σας)

Private Sub CommandButton1_Click ()
Dim rng ως εύρος, x ως εύρος
Ορισμός rng = Εύρος ("a1:a20")
Application.ScreenUpdating = False
Για κάθε x Σε rng
Αν Len(x.Text) = 0 Τότε
x.EntireRow.Hidden = True
Αλλού
x.EntireRow.Hidden = False
End If
Επόμενο x
Application.ScreenUpdating = True
Sub End

Δοκιμάστε το, ελπίζω να σας βοηθήσει!

Προβολή συνημμένων (1 / 5)

απάντηση

Αναφορά

chinmay salpe

περίπου 4 χρόνια

#25197

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Πώς να κάνετε αυτόματη απόκρυψη σειρών εάν υπάρχουν κενά κελιά σε 2 διαφορετικές στήλες με κωδικό VBA

απάντηση

skyyang chinmay salpe

περίπου 4 χρόνια

#25198

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Salpe,
Για να αποκρύψετε αυτόματα τις σειρές εάν κενά κελιά σε 2 διαφορετικές στήλες, εφαρμόστε τον ακόλουθο κώδικα:

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRg, xCell As Range
Dim xRgs, xRgArea As Range
Ορισμός xRgs = Εύρος ("A1:A22,D1:D22")
Application.ScreenUpdating = False
Σε σφάλμα GoTo Ctn
Για κάθε xRgArea Σε xRgs.Areas
Εντοπισμός σφαλμάτων.Εκτύπωση xRgArea.Διεύθυνση
Για κάθε xRg Σε xRgArea.Columns
Για κάθε xCell σε xRg.Rows
Αν xCell.Value = "" Τότε
xCell.EntireRow.Hidden = True
GoTo Ctn
ElseIf Not xCell.EntireRow.Hidden then
xCell.EntireRow.Hidden = False
End If
Ctn:
Επόμενο
Επόμενο
Επόμενο
Application.ScreenUpdating = True
Sub End

Μπορείτε να αλλάξετε τις αναφορές κελιών ανάλογα με τις ανάγκες σας.
Παρακαλώ δοκιμάστε το!

απάντηση

Αναφορά

فتحى السعيد

περίπου 4 χρόνια

#26276

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

بسم الله و جزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود αφαιρέσει الصف يبطأ الشيت بطريقة طويلة جدا فما العمل؟

απάντηση

ΑΧΙΝΤΑ ΠΑΝΤΕ

περίπου 3 χρόνια

#28283

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Θέλω να μάθω αν ο κωδικός θα λειτουργήσει Εάν το κελί είναι κενό ως αποτέλεσμα του Τύπου;

απάντηση

skyyang ΑΧΙΝΤΑ ΠΑΝΤΕ

περίπου 3 χρόνια

#28284

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου ΑΧΙΝΤΑ,
Ο παραπάνω κώδικας VBA εφαρμόζεται επίσης στα κενά κελιά ως αποτέλεσμα του τύπου, μπορείτε να το δοκιμάσετε, σας ευχαριστώ!

απάντηση

Αναφορά

Αστειεύομαι

περίπου 3 χρόνια

#28692

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ο τύπος λειτουργεί για την απόκρυψη κελιών με βάση πληροφορίες, στην αρχή, αλλά δεν αποκαλύπτει ξανά κελιά εάν αλλάξει το περιεχόμενό τους. Θέλω να αποκαλύπτει τυχόν νέα κελιά που έχουν γεμίσει με πληροφορίες (που συμβαίνει μέσω αναζήτησης κελιών). Πώς το κάνω αυτό?

απάντηση

TTtempo Αστειεύομαι

περίπου 5 μήνες πριν

#39851

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Bom dia, esta é minha necessidade também.

Preciso ocultar e quando a célula for preenchida (uso uma formula que preenche a mesma se houver valor em outra planilha) seja reexibida a linha novamente de forma automática.

Ευγνώμων.

απάντηση

Κάτσα

περίπου 2 χρόνια

#34313

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτό που θέλω είναι κάτι σαν αυτό για να λειτουργήσει στο ενεργό φύλλο:

Εάν κελιά D2:D55 = ""
Στη συνέχεια Hide.EntireRow

Εάν κελιά D2:D55 = "έχει οποιαδήποτε τιμή"
Στη συνέχεια Show.EntireRow

Πώς;

απάντηση

skyyang Κάτσα

περίπου 2 χρόνια

#34314

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια, Kacha, Απλώς πρέπει να αλλάξετε την αναφορά κελιού στον κώδικα στη δική σας περιοχή κελιών όπως παρακάτω: Ιδιωτικό δευτερεύον φύλλο εργασίας_Αλλαγή (ByVal Στόχος ως εύρος)
'Ενημέρωση Extendoffice
Dim xRg ως εύρος
Application.ScreenUpdating = False
Για κάθε xRg σε εύρος ("D2:D55")
Αν xRg.Value = "" Τότε
xRg.EntireRow.Hidden = True

Αλλού
xRg.EntireRow.Hidden = False
End If
Επόμενο xRg
Application.ScreenUpdating = True
Τέλος υποΜετά την εισαγωγή του κώδικα, θυμηθείτε να κάνετε διπλό κλικ σε οποιοδήποτε κελί και να πατήσετε το πλήκτρο Enter για να τεθεί σε ισχύ ο κώδικας.

απάντηση

Αναφορά

Γνώση

περίπου 1 χρόνο πριν

#35676

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ποιος είναι ο απλούστερος τρόπος για να αναιρέσετε την αυτόματη απόκρυψη;

απάντηση

Binh

περίπου 1 χρόνο πριν

#36469

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια, mình có dùng 2 κωδικός trong 1 αρχείο excel (1 κωδικός là của bạn) với mục đích in ra những bản riêng biệt và không bị thừa dòng. Khi mình ấn in từng bản thì ok nhưng nếu σε 1 loạt αυτός ο κωδικός Απόκρυψη không có tác dụng, bạn xem giúp mình với nhì mình!

Δεύτερη PRINT_PRINT()
Dim rng ως εύρος, x ως εύρος
Ορισμός rng = Εύρος ("a16:a23")
Application.ScreenUpdating = False
Για κάθε x Σε rng
Αν Len(x.Text) = 0 Τότε
x.EntireRow.Hidden = True
Αλλού
x.EntireRow.Hidden = False
End If
Επόμενο x
Application.ScreenUpdating = True

Dim p1, p2, i&
p1 = Sheet1.Range("O1").Τιμή
p2 = Sheet1.Range("O2").Τιμή
Αν IsNumeric(p1) = False Ή IsNumeric(p2) = False Τότε
tb = MsgBox("So code phai la so.", , "Thông báo")
Έξοδος Sub
End If
Αν p1 > p2 Τότε
tb = MsgBox("So code sau phai >= so code truoc.", , "Thông báo")
Έξοδος Sub
End If
Αν p1 < 1 Ή p2 < 1 Τότε
tb = MsgBox("Κωδικός λοιπόν phai >= 1.", , "Thông báo")
Έξοδος Sub
End If
Αν p1 <= p2 Τότε
Για i = p1 έως p2
Sheet1.Range("M2").Τιμή = i
Φύλλο1.Εκτύπωση
Επόμενο
End If
Sub End

απάντηση

Mónica Rodríguez Pérez

περίπου 1 χρόνο πριν

#36800

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Hola,Necesito crear una macro que me oculte una columna.Sería así: en la primera fila poner un 1 a las columnas que no quiero ocultar y no poner ningún valor a las columnas que quiero ocultar. Estoy haciendo el siguiente codigo, pero no se en que fallo:
Sub OcultarColumnaSin1()
Application.ScreenUpdating = False
Για κάθε rango σε στήλες
Αν ράγκο = "" Τότε
rango.EntireColumn.Hidden = True
Αλλού
rango.EntireColumn.Hidden = False
End If
Επόμενο rango
Application.ScreenUpdating = True
Sub End

απάντηση

JOlsen2011

περίπου 1 χρόνο πριν

#37029

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

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

απάντηση

Αναφορά

Cathy

περίπου 6 μήνες πριν

#39166

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Θα ήθελα να κάνω αυτόματη απόκρυψη σειρών εάν η στήλη Ε είναι κενή ή 0

απάντηση

Cathy

περίπου 6 μήνες πριν

#39168

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Εάν η τιμή στη στήλη Ε είναι κενή ή 0, θα ήθελα να γίνει αυτόματη απόκρυψη της σειράς. Εάν η τιμή στο E αλλάξει σε κάτι διαφορετικό από κενό ή 0, θα ήθελα να εμφανίζεται. Η αναφορά είναι 1500 σειρές

απάντηση

skyyang Cathy

περίπου 6 μήνες πριν

#39194

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Cathy,
Για να αποκρύψετε αυτόματα τις σειρές με βάση κενά κελιά ή τιμές 0, χρησιμοποιήστε τον παρακάτω κώδικα vba:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει!

απάντηση

Αναφορά

Εγώ ο Nyoman Sweta

περίπου 5 μήνες πριν

#39465

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Πώς να αποκρύψετε τη σειρά που περιέχει το πλαίσιο ελέγχου;

απάντηση

skyyang Εγώ ο Nyoman Sweta

περίπου 5 μήνες πριν

#39550

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Sweta

Για να αποκρύψετε σειρές με πλαίσιο ελέγχου, το παρακάτω άρθρο μπορεί να σας κάνει τη χάρη:
Πώς να αποκρύψετε το πλαίσιο ελέγχου όταν η σειρά είναι κρυμμένη στο Excel;

Παρακαλώ δοκιμάστε, εάν εξακολουθείτε να έχετε οποιαδήποτε άλλη ερώτηση, σχολιάστε εδώ.

απάντηση

Αναφορά

Ασαφ

περίπου 5 μήνες πριν

#39749

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Κατά την εκτέλεση του κώδικα στο office 2013/2019/2021 λειτουργεί, αλλά χρειάζεται πολύς χρόνος για να ολοκληρωθεί (μόνο 95 σειρές για απόκρυψη).
Πώς μπορείτε να το επιταχύνετε αυτό;
Ευχαριστώ!

απάντηση

skyyang Ασαφ

περίπου 5 μήνες πριν

#39781

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια, Asaf,
Ο κώδικας λειτουργεί καλά στο αρχείο μου Excel, θα μπορούσατε να ανεβάσετε το συνημμένο βιβλίο εργασίας σας εδώ αν δεν σας πειράζει; Για να μπορέσουμε να βοηθήσουμε στον έλεγχο του προβλήματος.

Ευχαριστώ!

απάντηση

Αναφορά

Syafitri Nurjanah

περίπου 5 μήνες πριν

#39837

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

apakah ada rumus lain?, saya berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan di excelnya tetap

απάντηση

skyyang Syafitri Nurjanah

περίπου 5 μήνες πριν

#39861

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου, Nurjanah
Για να λύσετε το πρόβλημά σας, πρώτα, θα πρέπει να αποκρύψετε τις κενές σειρές και, στη συνέχεια, να εκτυπώσετε τα δεδομένα, μετά την εκτύπωση των δεδομένων, πρέπει να αποκρύψετε ξανά τις κενές σειρές. Παρακαλώ κάντε ως εξής:
1. Εφαρμόστε αυτόν τον τύπο: =COUNTA(A2:E2) δίπλα στα δεδομένα σας, δείτε στιγμιότυπο οθόνης:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png

2. Στη συνέχεια, φιλτράρετε τη νέα βοηθητική κενή στήλη, αποκρύψτε όλες τις σειρές τιμών 0, δείτε στιγμιότυπο οθόνης:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png

3. Στη συνέχεια, θα πρέπει να αποκρύψετε τη νέα Κενή στήλη και να εκτυπώσετε τα δεδομένα, αφού εκτυπώσετε το φύλλο εργασίας, ακυρώστε το φίλτρο για να αποκρύψετε τις κενές σειρές όπως χρειάζεστε.
Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει!

απάντηση

Αναφορά

Vian MacNamara

περίπου 1 μήνα πριν

#42074

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια, αντιμετωπίζω προβλήματα με τον "αυτοματισμό" της μακροεντολής. Ψάχνω για έναν τρόπο για να λειτουργεί ο κώδικας ως αυτοματοποιημένη διαδικασία χωρίς τις ανάγκες "μη αυτόματης" εκτέλεσης της μακροεντολής. Χρησιμοποίησα τη δική μου παραλλαγή του κώδικά σας, επειδή βρήκα προβλήματα στη χρήση του κώδικά σας. Αυτή είναι η παραλλαγή μου:

Sub HideRows()
Dim xRg ως εύρος
Application.ScreenUpdating = False
Για κάθε xRg σε εύρος ("A3:A800")
Αν (xRg.Value = "") Τότε
xRg.EntireRow.Hidden = True
Αλλού
xRg.EntireRow.Hidden = False
End If
Επόμενο xRg
Application.ScreenUpdating = True
Sub End

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

απάντηση

Αναφορά

skyyang Vian MacNamara

περίπου 1 μήνα πριν

#42240

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Βιαν
Στην πραγματικότητα, ο κώδικας στο άρθρο μας μπορεί να εκτελεστεί αυτόματα.
Πρέπει να αντιγράψετε και να επικολλήσετε τον κώδικα στη μονάδα κώδικα του τρέχοντος φύλλου εργασίας, στη συνέχεια να επιστρέψετε στο φύλλο εργασίας, να κάνετε διπλό κλικ σε οποιοδήποτε κελί και να πατήσετε το εισάγετε κλειδί, η σειρά που περιέχει το κενό κελί θα είναι άμεσα κρυμμένη.

Ακολουθήστε τη μέθοδο σε αυτό το άρθρο βήμα προς βήμα, ελπίζουμε ότι μπορεί να σας βοηθήσει!
Ευχαριστώ!

απάντηση

Αναφορά

Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Αφήστε τα σχόλιά σας

Δημοσίευση ως επισκέπτης

Σύνδεση

Όνομα (Απαραίτητο)

Email (απαιτείται)

Αξιολογήστε αυτήν την ανάρτηση:

Επαναφορά

0 Χαρακτήρες

συμφωνώ στο όρους και προϋποθέσεις