Excel VBA Debug.Print
Το Debug Print είναι ένα από τα χρήσιμα εργαλεία που παρουσιάζονται στον επεξεργαστή VBA για να καταλάβουμε πώς λειτουργεί ένα πρόγραμμα και βοηθά στην ανάλυση των αλλαγών στις τιμές των μεταβλητών που δημιουργούνται στο πρόγραμμα VBA. Δείχνει την έξοδο του παραθύρου προτροπής όταν εκτελούμε το πρόγραμμα χωρίς σφάλματα.
Το Debug.print προσφέρει τα δύο κύρια οφέλη από τη χρήση του Msgbox για την εμφάνιση της εξόδου του κώδικα. Εξαλείφει την ανάγκη να κάνετε κλικ στο κουμπί OK κάθε φορά και εμφανίζει το αρχείο καταγραφής των τιμών εξόδου στα άμεσα παράθυρα. Εξοικονομεί πολύ χρόνο για τους χρήστες. Το παρόν άρθρο εξηγεί τη χρήση του excel VBA Debug Print με πολλά παραδείγματα και εξηγεί τον τρόπο χρήσης του καλύπτοντας τα ακόλουθα πράγματα.
Τι είναι το VBA Debug Print;
Το Debug είναι ένα αντικείμενο στο VBA και χρησιμοποιείται με τις δύο μεθόδους που ονομάζονται Assert και Print. Η εκτύπωση είναι χρήσιμη σε μηνύματα στην οθόνη και ισχυρίζεται ότι είναι χρήσιμη για την αξιολόγηση των συνθηκών. Στο VBA, εντοπίστε το σφάλμα. Η δήλωση εκτύπωσης χρησιμοποιείται σε οποιοδήποτε μέρος του προγράμματος κωδικοποίησης για να εμφανίσει τις τιμές μιας μεταβλητής ή μηνυμάτων στο Άμεσο Παράθυρο. Αυτά δεν χρειάζονται αναγνώριση ή επιβεβαίωση και δεν εμφανίζουν καμία επίδραση στον κώδικα που αναπτύχθηκε. Είναι ασφαλές και καλύτερο να χρησιμοποιείτε στον κώδικα στην περίπτωση αυτή για να διευκολύνετε την πρόσβαση σε πολλούς χρήστες. Αυτά είναι απλά χρήσιμα για τη δοκιμή ή την αξιολόγηση του κώδικα για να επιβεβαιώσετε ότι λειτουργεί σωστά ή όχι. Εκτυπώνει τις μεταβλητές, συμβολοσειρές, αριθμούς, πίνακες, τιμές σε φύλλα excel και κενά και ενεργά φύλλα.
Πώς να χρησιμοποιήσετε το Excel VBA Debug Print;
Το VBA debug.print είναι η δήλωση χρήσιμη για την εμφάνιση περισσότερων μεταβλητών κάθε φορά στο άμεσο παράθυρο. Είναι η καλύτερη και εναλλακτική προσέγγιση για να δείξετε το αποτέλεσμα.
Για παράδειγμα,
Πλήθος εντοπισμού σφαλμάτων, άθροισμα, μέσος όρος, τυπική απόκλιση
Όπως φαίνεται στο παράδειγμα, όλες οι μεταβλητές διαχωρίζονται με κόμματα. Αυτή η δήλωση μπορεί να μεταφέρει την έξοδο στο άμεσο παράθυρο ακόμα και αν δεν ανοίξει ένα παράθυρο. Δεν σταματά να τρέχει τον κώδικα όπως στο Msgbox. Αυτή η ευελιξία υποστηρίζει τη συνεχή παρακολούθηση των αλλαγών στην έξοδο που αφορούν αλλαγές στον κώδικα.
Το πλήθος των μεταβλητών, το άθροισμα, ο μέσος όρος και η τυπική απόκλιση εμφανίζονται στην ίδια γραμμή με ίσο διάστημα μεταξύ τους. Εάν δεν ανοίξει το Άμεσο παράθυρο, ακολουθήστε τα παρακάτω βήματα για να δείτε την έξοδο.
Βήματα για να ανοίξετε το άμεσο παράθυρο και να δείτε την έξοδο
- Πατήστε Ctrl + G ή κάντε κλικ στο μενού «Προβολή» στο πρόγραμμα επεξεργασίας VBA.
- Επιλέξτε την επιλογή "Άμεσο παράθυρο".
- Τοποθετήστε το δρομέα στο παράθυρο και εκτελέστε ξανά τον κωδικό.
- Παρατηρήστε την έξοδο στο παράθυρο.
Παραδείγματα του Excel VBA Debug.Print
Ακολουθούν τα παραδείγματα για την απόδειξη της χρήσης της εκτύπωσης σφαλμάτων στο excel VBA.
Παράδειγμα # 1 - Εμφάνιση των τιμών των μεταβλητών
Αρχικά, μεταβείτε στην καρτέλα Προγραμματιστής, κάντε κλικ στο Macros και δημιουργήστε μια μακροεντολή για να γράψετε τον κώδικα στο VBA και να προσθέσετε ένα όνομα σε αυτό.
Αφού προσθέσετε ένα όνομα, κάντε κλικ στο create. Αυτό ανοίγει το πρόγραμμα επεξεργασίας VBA.
Αναπτύξτε ένα μικρό πρόγραμμα, όπως φαίνεται στο σχήμα.
Κώδικας:
Υπο μεταβλητές () Dim X As Integer Dim Y As String Dim Z As Double X = 5 Y = "John" Z = 105.632 Debug.Print X Debug.Print Y Debug.Print Z End Sub
Όπως φαίνεται στο στιγμιότυπο οθόνης, τρεις διαστάσεις ή μεταβλητές μειώνονται ως X, Y και Z ως ακέραιος, string και Double, αντίστοιχα. Για να εκτυπώσετε αυτές τις τιμές, χρησιμοποιείται το Debug.print και η έξοδος θα εμφανίζεται στο παράθυρο προτροπής. Πατήστε CTRL + G για να δείτε το αποτέλεσμα, όπως φαίνεται στο στιγμιότυπο οθόνης.
Εκτελέστε αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 και πατήστε CTRL + G για να δείτε την έξοδο στο Άμεσο παράθυρο.
Αυτό το πρόγραμμα μπορεί να απλοποιηθεί διαχωρίζοντας τις δηλώσεις εκτύπωσης σφαλμάτων με κόμμα.
Κώδικας:
Υπο μεταβλητές () Dim X As Integer Dim Y As String Dim Z As Double X = 5 Y = "John" Z = 105.632 Debug.Print X, Y, Z End Sub
Αυτή η δήλωση εντοπισμού σφαλμάτων εκτυπώνει την έξοδο στην ίδια γραμμή, όπως φαίνεται στο στιγμιότυπο οθόνης.
Παράδειγμα # 2 - Εκτύπωση εντοπισμού σφαλμάτων σε αρχείο
Αυτό το παράδειγμα απεικονίζει τη χρήση της εκτύπωσης σφαλμάτων VBA για την εμφάνιση εξόδου σε ένα αρχείο όταν το μήκος του κειμένου είναι πολύ υψηλό.
Αναπτύσσεται το πρόγραμμα εκτύπωσης της εξόδου σε ένα αρχείο, όπως φαίνεται στο σχήμα.
Κώδικας:
Sub DebugPrintToFile () Dim s As String Dim num As Integer num = FreeFile () Open "D: Articles Excel test.txt" For Output As #num s = "Γεια σας, κόσμος!" Debug.Print s 'write στο άμεσο παράθυρο Εκτύπωση #num, s' έξοδος εγγραφής στο αρχείο Κλείσιμο #num End Sub
Σε αυτό το πρόγραμμα, δύο μεταβλητές που ονομάζονται S και Num, θεωρούνται συμβολοσειρά και ακέραιοι. Η ανοιχτή δήλωση χρησιμοποιείται για τη δημιουργία ενός αρχείου κειμένου με τη δοκιμή ονόματος. Μια στήλη που ονομάζεται «Hello World» δηλώνεται στη μεταβλητή S.
Όταν εκτελείτε τον κώδικα VBA χειροκίνητα ή χρησιμοποιώντας το πλήκτρο F5, η έξοδος εγγράφεται στο άμεσο παράθυρο και το αρχείο κάθε φορά εμφανίζεται στο φάκελο.
Η έξοδος στο αρχείο εμφανίζεται στο παρακάτω σχήμα.
Η εκτύπωση εξόδου σε αρχείο είναι επωφελής όταν παρουσιάζεται μεγάλο κείμενο.
Παράδειγμα # 3 - Εμφάνιση του παραγοντικού ενός αριθμού στο άμεσο παράθυρο
Αυτό το παράδειγμα απεικονίζει τη χρήση του εντοπισμού σφαλμάτων-εκτύπωσης για να δείξει το παραγοντικό ενός αριθμού.
Κώδικας:
Δημόσιο Sub Fact () Dim Count as Integer Dim number As Integer Dim Fact As Integer number = 5 Fact = 1 For Count = 1 to number Fact = Fact * Count Next Count Count. Εκτύπωση Fact End End Sub
Για να προσδιοριστεί το παραγοντικό, λαμβάνονται υπόψη τρεις μεταβλητές, συμπεριλαμβανομένου του αριθμού, του αριθμού και του γεγονότος. Για το βρόχο λαμβάνεται η επανάληψη του πολλαπλασιασμού της πραγματικής τιμής με την καταμέτρηση για τον προσδιορισμό των παραγόντων του αριθμού.
Εδώ, εντοπισμός σφαλμάτων. Η δήλωση εκτύπωσης χρησιμοποιείται έξω από το βρόχο "για" για να εμφανιστεί η τιμή μετά την ολοκλήρωση του κύκλου. Η έξοδος καθορίζεται.
If we use debug. Print statement inside the “for” loop, the fact-value is displayed for every recurring time, as shown in the figure.
Code:
Public Sub Fact() Dim Count As Integer Dim number As Integer Dim Fact As Integer number = 5 Fact = 1 For Count = 1 To number Fact = Fact * Count Debug.Print Fact Next Count End Sub
Run the code by pressing the F5 key and see the output in the immediate window. In this situation, we should consider the last value as the factorial of the given number.
Example #4 - Printing the Full name of the Active Workbook
This example explains how to print the current workbook name into the prompt window.
The program is developed, as shown in the figure.
Code:
Sub Activework() Dim count As Long For count = 1 To Workbooks.count Debug.Print Workbooks(count).FullName Next count Debug.Print count End Sub
Εδώ "count" είναι η μεταβλητή που λαμβάνεται για να μετρήσει τον αριθμό των ενεργών βιβλίων εργασίας και για να εμφανίσει το πλήρες όνομα του ενεργού βιβλίου εργασίας. Εμφανίζεται το πλήρες όνομα και ο αριθμός των ενεργών βιβλίων εργασίας, όπως φαίνεται στην εικόνα.
Η διαδρομή του βιβλίου εργασίας στις μονάδες δίσκου εμφανίζεται με ακρίβεια χρησιμοποιώντας τη δήλωση εντοπισμού σφαλμάτων VBA.
Πράγματα που πρέπει να θυμάστε
- Το κύριο πρόβλημα με το debug .print δεν είναι επιλογή αναδίπλωσης κειμένου για μεγάλες συμβολοσειρές στο άμεσο παράθυρο
- Το άμεσο παράθυρο πρέπει να βρεθεί στην κορυφή για να δείτε την έξοδο στο περιβάλλον χρήστη
- Είναι αδύνατο να τυλίξετε το μακρύ κείμενο που εμφανίζεται στο Άμεσο παράθυρο. Σε αυτήν την περίπτωση, το αποτέλεσμα πρέπει να εμφανίζεται σε ένα αρχείο που είναι αποθηκευμένο στη μονάδα δίσκου.
