Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Excel , kliknite na kartu " Vývojár " a kliknite na ikonu " Vložiť " sa nachádza v kontrolovanom tabule . Kliknite na " Textové pole " pod ovládacie prvky ActiveX a kliknite na ľubovoľnú bunku , kam chcete vložiť textové pole . Pridať nové tlačidlo s použitím rovnakého postupu .
2
Kliknite na " makrá " a zadajte " removeBlankTxtBox " pod názov makra a kliknite na tlačidlo " Vytvoriť " vytvoriť nové makro .
3
Zadajte nasledujúce zachytiť chyby , ak existuje :
On Error GoTo Err_removeBlankTxtBox :
4
Pridajte nasledujúci kód a skontrolujte , či je textové pole prázdne a odstrániť to , či je to pravda : .
Ak ActiveSheet.TextBox1.Value = " " Tak
Sheet1.OLEObjects ( " Textbox1 " ) Zmazať
End If
5
Pridajte nasledujúci kód spracovať všetky chyby :
Exit_removeBlankTxtBox :
Exit Sub
Err_removeBlankTxtBox :
Pokračovať Exit_removeBlankTxtBox :
praha 6
Prepnite späť do aplikácie Microsoft Office Excel a kliknite pravým tlačidlom myši na tlačidlo . Kliknite na tlačidlo " Priradiť makro ... " a kliknite na " removeBlankTxtBox . " Kliknite na tlačidlo " OK " . Kliknite na tlačidlo " 1 " spustiť makrá a odstrániť textové pole , ak je to prázdne .