Het verwijderen van lege tekstvakken in Microsoft Excel met behulp van Visual Basic for Applications ( VBA ) is niet zo ingewikkeld als u misschien denkt . In VBA kunt u de naam van het werkblad en de naam van het tekstvak om de waarde ervan te gebruiken . Gebruik de " OLEObject " object om een object te verwijderen , zoals een tekstvak van een werkblad . Dit object vertegenwoordigt een ActiveX control op een werkblad , bevat de "Delete " eigenschap die kan worden gebruikt om een besturingselement verwijderen . Wat je nodig hebt
Microsoft Excel
Toon Meer Aanwijzingen
Lancering Microsoft Excel 1 , klikt u op het tabblad " Developer " en klik op de "Insert " pictogram in het Controls ruit . Klik " Text Box " onder ActiveX-besturingselementen en klik op een cel waar u het tekstvak in te voegen. Voeg een nieuwe knop met behulp van dezelfde techniek . Kopen van 2 Klik op " Macro's " en type " removeBlankTxtBox " onder de macro- naam en klik op "Create " om een nieuwe macro te maken .
< br > Type 3 het volgende om fouten te vangen indien aanwezig :
On Error GoTo Err_removeBlankTxtBox :
4 Voeg de volgende code om te controleren of het tekstvak is leeg en verwijder indien het waar is :
Als ActiveSheet.TextBox1.Value = " " dan Sheet1.OLEObjects
( " TextBox1 " ) Delete Eind
Als
< br . > 5 Voeg de volgende code om eventuele fouten af te handelen : Exit_removeBlankTxtBox
: Exit Sub Err_removeBlankTxtBox
: Resume Exit_removeBlankTxtBox :
6 Schakel terug naar Microsoft Office Excel en rechts - klik op de knop . Klik op " Toewijzen macro ... " en klik op " removeBlankTxtBox . " Klik op " OK . " Klik op " Button 1 " om de macro uit te voeren en verwijder het tekstvak als het leeg .
|
