Wie man ein leeres Textfeld in VBA entfernen

Mitglieder-Login

InformationenVisual Basics Programmierung

Systemadministratoren können mit d… Wie man eine LAN -ID und Domain mit VBA zu bekommen. Statt jeden Computer einzeln konfigurieren , de
Visual Basic 2010 Tutorial für Anf… Microsoft Visual Basic von ihren Anfängen bis eine voll funktionsfähige , robuste objektorientierte
Wie man eine VB6 Anwendung Code zum… Visual Basic 6 hat eine Funktion namens Ersetzen entfernt , dass Teile eines Strings. Sie können die
Wie man ein neues Control- Formular… Visual Basic 6, eine ereignisgesteuerte Programmiersprache und eine integrierte Entwicklungsumgebung

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie man ein leeres Textfeld in VBA entfernen

Entfernen leerer Textfelder in Microsoft Excel mit Visual Basic für Applikationen (VBA) ist nicht so kompliziert, wie Sie vielleicht denken. In VBA können Sie das Arbeitsblatt Namen und den Namen des Textfelds , um seinen Wert zu übersetzen. Benutzen Sie den " OLEObject " Objekt um ein Objekt zu entfernen, wie ein Textfeld aus einem Arbeitsblatt . Dieses Objekt stellt ein ActiveX-Steuerelement auf einem Arbeitsblatt enthält sie die "Delete "-Eigenschaft , die verwendet werden , um eine Regelung zu können. Was Sie brauchen
Microsoft Excel
anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Excel , klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Einfügen "-Symbol in der Steuerung befindet angezeigt. Klicken Sie auf " Text Box" unter ActiveX-Steuerelemente , und klicken Sie auf eine beliebige Zelle , wo Sie das Textfeld einfügen möchten. Fügen Sie eine neue Schaltfläche mit der gleichen Technik .
2

Klicken Sie auf " Makros" und geben Sie " removeBlankTxtBox " unter dem Makronamen und klicken Sie auf " Erstellen", um ein neues Makro zu erstellen.

3

Geben Sie den folgenden Fehler zu erfassen , wenn vorhanden:

On Error GoTo Err_removeBlankTxtBox :
4

Fügen Sie den folgenden Code zu überprüfen, ob das Textfeld leer ist , und entfernen es , wenn es ist wahr:

Wenn ActiveSheet.TextBox1.Value = "" Then

Sheet1.OLEObjects ( " Textbox1 " ) löschen

End If
< br . > 5

Fügen Sie den folgenden Code, um keine Fehler zu behandeln :

Exit_removeBlankTxtBox :

Exit Sub

Err_removeBlankTxtBox :

Lebenslauf Exit_removeBlankTxtBox :
Seite 6

wechseln Sie zurück zu Microsoft Office Excel und der rechten Maustaste auf die Schaltfläche . Klicken Sie auf " Makro zuweisen ... " und klicken Sie auf " removeBlankTxtBox . " Klicken Sie auf " OK". Klicken Sie auf " Button 1 ", um das Makro auszuführen , und entfernen Sie das Textfeld , wenn es leer ist .