Slik fjerner en tom tekstboks i VBA

Fjerne tomme tekstbokser i Microsoft Excel ved hjelp av Visual Basic for Applications (VBA) er ikke så komplisert som du kanskje tror. I VBA, kan du bruke regnearket navn og navnet på tekstboksen for å få tilgang til sin verdi. Bruk "OLEObject" objekt for å fjerne et objekt, for eksempel en tekstboks fra et regneark. Dette objektet representerer en ActiveX-kontroll i et regneark, inneholder det "Slett" eiendom som kan brukes til å fjerne en kontroll.

Bruksanvisning

1 Start Microsoft Excel, klikker du på "Utvikler" og klikk "Sett inn" ikonet i Controls ruten. Klikk "Text Box" under ActiveX-kontroller og klikk på en celle der du vil sette inn tekstboksen. Legg til en ny knapp ved hjelp av samme teknikk.

2 Klikk på "Makroer" og skriv "removeBlankTxtBox" under makro navn og klikk "Opprett" for å opprette en ny makro.

3 Skriv inn følgende for å fange opp feil hvis noen:

På Error GoTo Err_removeBlankTxtBox:

4 Legg til følgende kode for å sjekke om tekstboksen er tom og fjerne den hvis det er sant:

Hvis ActiveSheet.TextBox1.Value = "" Then

Sheet1.OLEObjects("Textbox1").Delete

Slutt om

5 Legg til følgende kode for å håndtere eventuelle feil:

Exit_removeBlankTxtBox:

Exit Sub

Err_removeBlankTxtBox:

Resume Exit_removeBlankTxtBox:

6 Bytt tilbake til Microsoft Office Excel og høyreklikk på knappen. Klikk "Tilordne makro ..." og klikk "removeBlankTxtBox." Klikk på "OK". Klikk "Button 1" for å utføre makroen og fjerne tekstboksen hvis det er tomt.