Rimozione di caselle di testo vuota in Microsoft Excel utilizzando Visual Basic, Applications Edition (VBA) non è così complicato come si potrebbe pensare. In VBA, è possibile utilizzare il nome del foglio di lavoro e il nome della casella di testo per accedere il suo valore. Utilizzare l'oggetto "OLEObject" per rimuovere un oggetto, ad esempio una casella di testo da un foglio di lavoro. Questo oggetto rappresenta un controllo ActiveX in un foglio di lavoro, che contiene la proprietà di "Elimina" che può essere utilizzata per rimuovere un controllo.

Istruzioni

1

Avviare Microsoft Excel, scegliere la scheda "Sviluppo" e fare clic sull'icona "Inserisci" si trova nel riquadro controlli. Fare clic su "Casella di testo" sotto i controlli ActiveX e fare clic su qualsiasi cella di cui si desidera inserire la casella di testo. Aggiungere un nuovo pulsante usando la stessa tecnica.

2

Fare clic su "Macro" e digitare "removeBlankTxtBox" sotto il nome della macro e fare clic su "Crea" per creare una nuova macro.

3

Digitare il comando seguente per registrare errori se qualsiasi:

Su errore GoTo Err_removeBlankTxtBox:

4

Aggiungere il codice seguente per controllare se la casella di testo è vuota e rimuoverlo se è vero:

Se ActiveSheet.TextBox1.Value = "" quindi

Sheet1.OLEObjects("Textbox1").Delete

End If

5

Aggiungere il seguente codice per gestire eventuali errori:

Exit_removeBlankTxtBox:

Exit Sub

Err_removeBlankTxtBox:

Resume Exit_removeBlankTxtBox:6

Passare nuovamente a Microsoft Office Excel e fare clic con il pulsante. Fare clic su "Assegna macro..." e fare clic su "removeBlankTxtBox." Fare clic su "OK". Fare clic su "Button 1" per eseguire la macro e rimuovere la casella di testo se è vuota.