Ta 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 regneark 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 " Delete " eiendom som kan brukes til å fjerne en kontroll. Du trenger:
Microsoft Excel
Vis flere instruksjoner
en
Launch Microsoft Excel , klikker du på " Developer " og klikk på " Insert "-ikonet ligger i kontrollene panelet . Klikk "Text Box" under ActiveX-kontroller og klikke en celle der du vil sette inn tekstboksen . Legg til en ny knapp med samme teknikk.
2
Klikk " 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 : en
On Error GoTo Err_removeBlankTxtBox :
4
Legg til følgende kode for å sjekke om tekstboksen er tom og fjern det hvis det er sant : en p Hvis ActiveSheet.TextBox1.Value = "" Then
Sheet1.OLEObjects ( " textBox1 ") Slett
End If
5
Legg til følgende kode for å håndtere eventuelle feil : en
Exit_removeBlankTxtBox : en
Exit Sub
Err_removeBlankTxtBox : en
Resume Exit_removeBlankTxtBox :
6
Bytt tilbake til Microsoft Office Excel og høyre - klikk på knappen. Klikk på " Tilordne makro ... " og klikk " removeBlankTxtBox . " Klikk "OK". Klikk på " Knapp 1 " for å gjennomføre makro og fjerne teksten boksen hvis det er tomt.
