Ta bort tomma textrutor i Microsoft Excel med hjälp av Visual Basic for Applications ( VBA ) är inte så komplicerat som du kanske tror . I VBA kan du använda kalkylbladet namn och namnet på textrutan för att komma åt dess värde . Använd " OLEObject " objektet för att ta bort ett objekt , till exempel en textruta från ett kalkylblad . Detta objekt representerar en ActiveX-kontroll i ett kalkylblad , innehåller den " Delete " egendom som kan användas för att ta bort en kontroll . Saker du behöver
Microsoft Excel
Visa fler instruktioner
1
Launch Microsoft Excel , klicka på " Utvecklare " fliken och klicka på " Infoga " -ikonen ligger i kontrollerna panelen . Klicka på " Textruta " under ActiveX-kontroller och klicka på valfri cell där du vill infoga textrutan . Lägg till en ny knapp med samma teknik .
2
Klicka på " Makron " och typ " removeBlankTxtBox " nedan makrot namnet och klicka på " Skapa " för att skapa ett nytt makro .
3
Skriv följande för att fånga upp eventuella fel :
On Error GoTo Err_removeBlankTxtBox :
4
Lägg till följande kod för att kontrollera om textrutan är tom och ta bort det om det är sant :
p Om ActiveSheet.TextBox1.Value = " " Då
Sheet1.OLEObjects ( " TextBox1 " ) Radera
End If
5
Lägg till följande kod för att hantera eventuella fel :
Exit_removeBlankTxtBox :
Exit Sub
Err_removeBlankTxtBox :
Resume Exit_removeBlankTxtBox :
6
Byt tillbaka till Microsoft Office Excel och högerklicka på knappen . Klicka på " Tilldela makro ... " och klicka på " removeBlankTxtBox . " Klicka på " OK . " Klicka på " Button 1 " för att köra makrot och ta bort textrutan om det är tomt . Addera
