Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

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

Στο Excel, μπορείτε να ενεργοποιήσετε απευθείας μια μακροεντολή πατώντας το F5 ή κάντε κλικ στο τρέξιμο στο κουμπί Microsoft Visual Basic για εφαρμογές παράθυρο. Ωστόσο, μερικές φορές, μπορεί να θέλετε να δημιουργήσετε ένα πλαίσιο μηνύματος που θα ρωτάει τον χρήστη εάν θέλει να εκτελέσει τη μακροεντολή. Εάν ναι, συνεχίστε να εκτελείτε τον κωδικό, εάν όχι, σταματήστε να εκτελείτε τον κωδικό. Αυτό το άρθρο, θα μιλήσω για το πώς να δημιουργήσετε ένα πλαίσιο μηνύματος ναι, πριν εκτελέσετε μια μακροεντολή στο Excel.

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


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


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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησης Παράθυρο.

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

Sub continue()
CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbYes Then
'put rest of code here
End If
End Sub

Note: Στον παραπάνω κώδικα, αντιγράψτε και επικολλήστε τον δικό σας κωδικό χωρίς το Σε τίτλος και Sub End υποσέλιδο μεταξύ του Εάν CarryOn = vbΝαι τότε Τέλος, εάν σενάρια. Δείτε το στιγμιότυπο οθόνης:

πλαίσιο μηνυμάτων doc ναι όχι μακροεντολή 1

3. Στη συνέχεια πατήστε F5 κλειδί, θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει εάν θέλετε να εκτελέσετε αυτόν τον κώδικα, κάντε κλικ στο Ναι για να συνεχίσετε και κάντε κλικ στο Οχι για να σταματήσετε, δείτε το στιγμιότυπο οθόνης:

πλαίσιο μηνυμάτων doc ναι όχι μακροεντολή 2


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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    FEWQ · 1 years ago
    Or you use this code on top and there is no need to put the whole code inside an if sentence

    CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
    If CarryOn = vbNo Then
    Exit Sub
    End If