Πώς να αφαιρέσει ένα κενό πλαίσιο κειμένου στον VBA

Αφαίρεση κενά πλαίσια κειμένου στο Microsoft Excel με τη χρήση της Visual Basic for Applications ( VBA) δεν είναι τόσο περίπλοκο όπως μπορείτε να σκεφτείτε . Στην VBA , μπορείτε να χρησιμοποιήσετε το όνομα του φύλλου εργασίας και το όνομα του πλαισίου κειμένου για να αποκτήσετε πρόσβαση αξία του . Χρησιμοποιήστε το " OLEObject " αντικείμενα για να αφαιρέσετε ένα αντικείμενο , όπως ένα πλαίσιο κειμένου από ένα φύλλο εργασίας . Αυτό το αντικείμενο αντιπροσωπεύει ένα στοιχείο ελέγχου ActiveX σε ένα φύλλο εργασίας , περιέχει το "Διαγραφή " περιουσιακών στοιχείων που μπορούν να χρησιμοποιηθούν για την αφαίρεση του ελέγχου . Τα πράγματα που θα χρειαστείτε για Microsoft Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

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

Κάντε κλικ στο " μακροεντολών " και πληκτρολογήστε " removeBlankTxtBox " κάτω από το όνομα της μακροεντολής και κάντε κλικ στο κουμπί "Δημιουργία " για να δημιουργήσετε μια νέα μακροεντολή .
Η
3

Πληκτρολογήστε το παρακάτω για να συλλάβει τυχόν σφάλματα :

On Error GoTo Err_removeBlankTxtBox :
Η 4

Προσθέστε τον ακόλουθο κώδικα για να ελέγξετε αν το πλαίσιο κειμένου είναι κενό και αφαιρέστε το αν είναι αλήθεια : .

Εάν ActiveSheet.TextBox1.Value = " " τότε

Sheet1.OLEObjects ( " textBox1 " ) Διαγραφή

End If

5

Προσθέστε τον ακόλουθο κώδικα για να χειριστεί τυχόν λάθη :

Exit_removeBlankTxtBox :

Exit Sub

Err_removeBlankTxtBox :

Συνέχιση Exit_removeBlankTxtBox :

6

Επιστρέψτε στο Microsoft Office Excel και κάντε δεξί κλικ στο κουμπί . Κάντε κλικ στο κουμπί " Αντιστοίχιση μακροεντολής ... " και κάντε κλικ στο " removeBlankTxtBox . " Κάντε κλικ στο κουμπί "OK". Κάντε κλικ στο " Κουμπί 1 " για να εκτελέσετε τη μακροεντολή σας και αφαιρέστε το πλαίσιο κειμένου, εάν είναι κενή .
Η
εικόνων