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

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

Διαγράψτε τα καθορισμένα περιεχόμενα κελιού εάν αλλάξει η τιμή ενός άλλου κελιού με τον κώδικα VBA

Διαγράψτε τα καθορισμένα περιεχόμενα κελιού εάν αλλάξει η τιμή ενός άλλου κελιού με τον κώδικα VBA

Φοβερο! Χρήση αποτελεσματικών καρτελών στο Excel όπως το Chrome, το Firefox και το Safari!

Εξοικονομήστε 50% του χρόνου σας και μειώστε χιλιάδες κλικ ποντικιού για εσάς κάθε μέρα!

Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, όταν αλλάζει η τιμή στο κελί A2, τα περιεχόμενα στο κελί C1: C3 θα διαγραφούν αυτόματα. Κάντε τα εξής:

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

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Διαγραφή καθορισμένων περιεχομένων κελιού εάν αλλάξει η τιμή ενός άλλου κελιού

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Range("C1:C3").ClearContents
    End If
End Sub

Note: Στον κώδικα, το B2 είναι το κελί από το οποίο θα διαγράψετε τα περιεχόμενα των κυττάρων και C1: C3 είναι το εύρος από το οποίο θα διαγράψετε τα περιεχόμενα. Αλλάξτε τα όπως χρειάζεστε.

3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Στη συνέχεια, μπορείτε να δείτε τα περιεχόμενα στην περιοχή C1: Το C3 διαγράφεται αυτόματα όταν αλλάζει η τιμή στο κελί A2 όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Σχετικά άρθρα:

Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

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

Σχόλια (38)

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

Scott

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

#22757

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

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

Ευχαριστώ για τη βοήθειά σας

απάντηση

κρύσταλλο Scott

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

#22758

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

Αγαπητέ Scott,
Τι εννοείς να δουλεύεις αντίστροφα; Όταν γίνεται μη αυτόματη διαγραφή των περιεχομένων ορισμένων κελιών (C1:C3), τότε διαγράφεται αυτόματα το περιεχόμενο του κελιού A2;

απάντηση

Αναφορά

Ματ 257

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

#24237

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

Γεια σας, αυτό λειτουργεί μόνο για ένα κελί σταθερής πηγής (A2), πώς γίνεται αυτό δυναμικά όπως η πηγή είναι ένα κελί μεταβλητής; προσπάθησα να γράψω
A=activecell.row
Εάν δεν διασταυρώνεται (Στόχος, εύρος ("A"& A)) Δεν είναι τίποτα τότε
Εύρος ("C1:C3").ClearContents
End If

αυτό θα πρέπει να κάνει τη δουλειά σε σχέση με το activecell (δηλαδή επιλογή), αλλά δεν λειτουργεί
ευχαριστώ

απάντηση

Αναφορά

κρύσταλλο Ματ 257

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

#24238

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

Καλή μέρα,
Δοκιμάστε τον παρακάτω κώδικα VBA. Σας ευχαριστούμε για το σχόλιό σας.

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Αν (Not Intersect(Target, Rows(1)) Is Nothing) And (Target.Count = 1) Τότε
Εύρος ("C1:C3").ClearContents
End If
Sub End

απάντηση

Αναφορά

Ιάσονας

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

#25069

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

Γεια, ψάχνω έναν τρόπο να διαγράψω μια περιοχή κελιών δεδομένων όταν εισάγεται ένα "x" σε ένα συγκεκριμένο κελί. Χρησιμοποίησα τον παραπάνω τύπο και λειτούργησε τέλεια για αυτήν τη μία σειρά. Το πρόβλημα είναι ότι πρέπει να το επεκτείνω σε πολλές σειρές. Για παράδειγμα, εάν εισαχθεί ένα "x" στο "D13", χρειάζομαι το εύρος J:13 - v:13 να διαγραφεί. Χρειάζεται επίσης να συμβεί αυτό εάν εισαχθεί ένα x στο "D14", όπως στο Χρειάζομαι το εύρος d:14 - v:14 να διαγραφεί. Υπάρχει τρόπος να το γράψω; Ευχαριστώ για τη βοήθειά σου!

απάντηση

παπαρούνα

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

#25437

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

Γεια, αυτό δεν λειτουργεί για το δικό μου. Τίποτα δεν αλλάζει αλλά ούτε και σφάλματα. Καμιά συμβουλή;

απάντηση

κρύσταλλο παπαρούνα

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

#25438

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

Καλή σας μέρα,
Συγγνώμη για την ταλαιπωρία. Θα παρέχετε την έκδοση του Office; Ευχαριστώ για το σχόλιο σου.

απάντηση

Αναφορά

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

#28647

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

Στην περίπτωση του A2, πώς μπορώ να αναφέρω ένα κελί από διαφορετικό φύλλο εργασίας;

απάντηση

Σόνια

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

#29270

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

υπάρχει τρόπος να γίνει αυτό χωρίς VBA;

απάντηση

κρύσταλλο Σόνια

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

#29271

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

Γεια σου Σόνια,
Δεν βρέθηκε καμία λύση εκτός από το VBA. Ευχαριστώ για το σχόλιο σου.

απάντηση

Αναφορά

Ματ

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

#30429

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

Τι κώδικα VBA χρησιμοποιώ εάν έχω έναν πίνακα και χρειάζομαι πολλά κενά;

Το τραπέζι μου είναι B3:E7. Εάν τα περιεχόμενα στη στήλη Β διαγραφούν, θα ήθελα να διαγραφούν τα δεδομένα στη στήλη C, D, E για αυτήν τη σειρά. Έχω το παρακάτω για τη σειρά 3, αλλά θα ήθελα το ίδιο στη σειρά 4,5,6 και 7.

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing then
Εύρος ("C3:E3").ClearContents
End If
Sub End

απάντηση

Στέφανος

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

#30601

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

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

απάντηση

Αναφορά

Ιουλιανός

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

#31788

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

Γεια, πώς επαναλαμβάνετε τον κώδικα για περισσότερα από ένα κελιά στο παράδειγμα, δηλαδή εάν διαγράψω τα περιεχόμενα των κελιών a4 & a5, θέλω να διαγράψω τα περιεχόμενα των b4:z4 & b5:z5 αντίστοιχα, πρέπει να το κάνω αυτό για ένα μεγάλο υπολογιστικό φύλλο με 1000 σειρές οποιαδήποτε συμβουλή θα εκτιμηθεί πολύ

απάντηση

Sameer Ιουλιανός

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

#31789

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

Γεια σου Julian, ψάχνω κι εγώ το ίδιο, ενημερώστε με αν έχετε κάποια λύση για αυτό.

απάντηση

Sagar Srinivas Ιουλιανός

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

#31790

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

Παρακαλούμε αλλάξτε τους αριθμούς ανάλογα
Dim i Ως ακέραιος
Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Για i = 2 έως 10
lookrange = "A" & i
contentrange = "B" & i & ":" & "C" & i
If Not Intersect (Target, Range (lookrange)) Is Nothing then
Εύρος (contentrange).ClearContents
End If
Επόμενο i
Sub End

απάντηση

Αναφορά

LoreB Sagar Srinivas

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

#31791

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

Γεια σας sagarsrinivas0312, Σας ευχαριστώ πολύ για αυτόν τον κωδικό. Ψάχνω ήδη μια εβδομάδα για αυτή τη λύση!

απάντηση

pm Sagar Srinivas

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

#31792

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

Αυτό είναι υπέροχο, ευχαριστώ. Πώς το κάνω αυτό πολλές φορές...τόσο καθαρά άλλα κελιά που βασίζονται σε διαφορετική στήλη;

απάντηση

Ματθαίος Sagar Srinivas

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

#40105

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

riusciresti a scrivermelo in modo che debba solo fare copia ed incolla;
non riesco veramente a farlo funzionare

grazie mille

απάντηση

ΤΥΧΕΡΌΣ

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

#32112

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

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

Πήρα τον παρακάτω κώδικα από έναν ιστότοπο βοήθειας, αλλά δεν μπορώ να λάβω τον επιθυμητό.
παρακαλώ βοηθήστε με σχετικά. Επισυνάπτεται στιγμιότυπο οθόνης αυτό που θέλω.

Καθαρό άθροισμα()

Dim g As Long
Για g = 2 σε ActiveSheet.UsedRange.Rows.Count
If Cells(g, "C").Value = "" Τότε
Κελιά(g, "A").ClearContents
Κελιά (g, "B"). ClearContents

End If
Επόμενο
Τέλος άθροισμα

απάντηση

Αναφορά

μικρόφωνο

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

#33989

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

Αυτό δεν φαίνεται να λειτουργεί εάν τα καθορισμένα περιεχόμενα κελιών ελέγχονται από ένα κελί σε άλλο φύλλο; υπάρχει λύση για αυτό;
Παράδειγμα χρησιμοποιώντας τα ονόματα των κυττάρων σας
Εάν το κελί "A2" είναι (=sheet1[@[a5]] και αυτός ο αριθμός αλλάζει στο φύλλο 1, τότε αλλάζει τα περιεχόμενα του A2, δεν διαγράφει τα περιεχόμενα στο καθορισμένο εύρος.

απάντηση

James μικρόφωνο

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

#33990

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

Ιδιωτικό δευτερεύον φύλλο εργασίας_Activate()
If Range("S2") <> Range("A2").Value then
Εύρος ("S2") = Εύρος ("A2").Τιμή
Εύρος ("d2:g2").ClearContents
End If
Το 'S2' μπορεί να αντικατασταθεί με οποιοδήποτε κελί εκτός του εύρους δεδομένων. Αυτό που κάνει το VBA είναι να ενημερώνει αυτόματα τα δεδομένα για το 'S2' και, στη συνέχεια, τα δεδομένα που ενημερώνονται είναι αυτό που ελέγχει το εύρος που καθορίσατε και εάν θα διαγραφεί ή όχι.
Αυτός είναι ο μόνος τρόπος που έχω βρει για να το κάνω με επιτυχία όταν χρησιμοποιώ κελιά αναφοράς τόσο εντός όσο και εκτός του φύλλου εργασίας.

απάντηση

Αναφορά

Άντριου Μάθιους

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

#34005

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

Δεν είναι ακριβώς αυτό που χρειάζομαι, αλλά φτάνω εκεί. Έχω ένα κενό κελί E3. Έχω δεδομένα στο B3. Όταν βάζω δεδομένα στο E3, εάν είναι το ίδιο με το B3, τότε το B3 διαγράφεται. Ελπίζω ότι μπορείτε να με βοηθήσετε.

απάντηση

Αναφορά

Simon Crawley

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

#35032

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

Είναι δυνατό να διαγραφούν τα καθορισμένα περιεχόμενα κελιού εάν το κελί ενεργοποίησης περιέχει έναν συγκεκριμένο αριθμό; Ας πούμε, ΑΝ κελί A1 = 1, τότε διαγράψτε τα κελιά A2:A4;

απάντηση

Αστεροειδής αδώνης

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

#38264

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

Γεια σε όλους,

Besoin d'aide, j'ai besoin d'effacer le contenu d'une cellule de la colonne "I" si la cellule (de la même ligne) de la colonne "O" =0, sur environ 2000 lignes avec des titres tout le 10 lignes περιβάλλον.

απάντηση

Jeff

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

#38930

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

Χαίρετε Κ.

Απλώς ψάχνουμε έναν εύκολο τρόπο για να το φτιάξουμε, οπότε αν το "B2" έχει επιλέξει "Ναι" από τη λίστα επικύρωσης δεδομένων, το κελί Β3 θα διαγράψει τα δεδομένα του... και αντίστροφα: Εάν το "B3" έχει επιλέξει "Ναι" από το λίστα επικύρωσης δεδομένων, το κελί "B2" θα διαγράψει τα δεδομένα του.

Βασικα B2 or B3 μπορώ να πω "Ναι"(από τη λίστα επικύρωσης δεδομένων) αλλά ποτέ ταυτόχρονα, το ένα πρέπει να καθαρίζει το άλλο.

απάντηση

κρύσταλλο Jeff

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

#38996

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

Γεια Jeff,
Ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη. Δοκιμάστε το.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220721
If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("B2")) Is Nothing) And (Target.Value = "Yes") Then
        Range("B3").ClearContents
        Else
        If (Not Intersect(Target, Range("B3")) Is Nothing) And (Target.Value = "Yes") Then
        Range("B2").ClearContents
    End If
    End If
End Sub

απάντηση

Αναφορά

Πέτρος

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

#40480

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

Buongiorno, avrei bisogno di cancellare una serie di caselle (un rettangolo, quindi su più righe e colonne) στη βάση al valore di un'altra cella. es: se la cella A2 è inferiore di 12, il quadrato con vertici opposto C2 : F4 venga cancellato.
Grazie mille

απάντηση

κρύσταλλο Πέτρος

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

#40567

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

Γεια σου Pietro,
Λυπάμαι που δεν καταλαβαίνω καλά την ερώτησή σου. Σας πειράζει να ανεβάσετε ένα στιγμιότυπο οθόνης των δεδομένων σας;

απάντηση

Αναφορά

Ναταλία

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

#40627

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

Μεταβείτε στην απόφαση, VBA δεν γνωρίζετε. Мне нужно при изменении ячейки удалить данные од другой и чтобы это дейстовало на весь столбец.
Μενού Α2 απομακρυνθεί από G2, μειωμένος αριθμός Α3 από G3, αλλαγή A6 από G6 και τ.δ.

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing then
Εύρος ("G2").ClearContents
End If
Sub End

Данный код хорош для одной ячейки, а како его πολλαπλασιάζεται на все ячейки столбца;

απάντηση

κρύσταλλο Ναταλία

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

#40688

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

Γεια σου Ναταλία,
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να λύσετε το πρόβλημα. Δοκιμάστε το.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20221013
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("A:A")
    Set xRight = Target.Offset(0, 6)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.ClearContents
    End If
End Sub

απάντηση

Αναφορά

Mathias

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

#41021

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

Γεια σας,

Zu Punkt 3.
Die Taste "Andere" Finde ich nicht auf meiner Windows Tastatur. Ich Habe Strg, Alt, Tab... allerdings die Taste Andere gibt es auf meiner Tastatur leider nicht.

Lieben Gruß Mathias

απάντηση

κρύσταλλο Mathias

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

#41395

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

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

απάντηση

Αναφορά

JSeb L.

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

#41126

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

Χαίρετε Κ.
Ο παρακάτω κώδικας λειτουργεί όπως διαφημίζεται, αλλά παρουσιάζονται τα ακόλουθα προβλήματα:

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

Δεύτερον, όταν διαγράφω οποιαδήποτε σειρά πίνακα, λαμβάνω ένα "Σφάλμα χρόνου εκτέλεσης 1004 (Η μετατόπιση μεθόδου του εύρους αντικειμένων απέτυχε.


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F3:F500")) Is Nothing Then
     Target.Offset(0, 1).ClearContents
    ElseIf Not Intersect(Target, Range("G3:G500")) Is Nothing Then
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 2).ClearContents
    ElseIf Not Intersect(Target, Range("H3:H500")) Is Nothing Then
        Target.Offset(0, 1).ClearContents
    End If
End Sub

Καμιά ιδέα για το τι μπορεί να φταίει;

Ευχαριστώ εκ των προτέρων!

απάντηση

Άγγελος

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

#41484

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

Hola, estoy trabajando una base de datos en OFFICE ONLINE a traves de ONEDRIVE, quiero que al PONER "CANCELADO" ή "NOSHOW" elimine el contenido de la fila seleccionada.

απάντηση

κρύσταλλο Άγγελος

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

#41555

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

Γεια σου Άγγελε,
Ο κώδικας VBA δεν λειτουργεί στο Office Online. Συγγνώμη για την ταλαιπωρία.

απάντηση

Αναφορά

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

Τοποθετήστε Περισσότερα

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

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

Σύνδεση

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

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

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

Επαναφορά

0 Χαρακτήρες

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