June 23
Rimozione caselle di testo vuoto 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 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 di un foglio, che contiene la proprietà "Elimina", che può essere usato per rimuovere un controllo.
1 Avviare Microsoft Excel, fare clic sulla scheda "developer" e fare clic sull'icona "Inserisci" che si trova nel pannello Controlli. Fai clic su "Casella di testo" sotto controlli ActiveX e fare clic su una cella in cui si desidera inserire la casella di testo. Aggiungere un nuovo pulsante con la stessa tecnica.
2 Fai clic su "Macro" e digitare "removeBlankTxtBox" sotto il nome di macro e fare clic su "Crea" per creare una nuova macro.
3 Digitare la seguente per catturare gli errori se del caso:
On Error GoTo Err_removeBlankTxtBox:
4 Aggiungere il seguente codice per verificare se la casella di testo è vuota e rimuoverlo se è vero:
Se ActiveSheet.TextBox1.Value = "" Allora
Sheet1.OLEObjects("Textbox1").Delete
Finisci se
5 Aggiungere il seguente codice per gestire eventuali errori:
Exit_removeBlankTxtBox:
Exit Sub
Err_removeBlankTxtBox:
Resume Exit_removeBlankTxtBox:
6 Tornare a Microsoft Office Excel e fare clic con il pulsante. Fai clic su "Assegna macro ..." e fare clic su "removeBlankTxtBox." Fai clic su "OK". Fai clic su "Pulsante 1" per eseguire la macro e rimuovere la casella di testo se è vuoto.