• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Hromadné vymází Textboxů z Userform

Zaslal/a OndraB 25.4.2013 13:06

Dobrý den,

v Useform mám 10 textboxů. Jak je můžu vymazat jedním kliknutím na CommandButton.

Umím:
Textbox1 = vbNullString
TextBox2 = vbNullString
TextBox3 = vbNullString
TextBox4 = vbNullString
TextBox5 = vbNullString

Nejde to napsat nějak jednodušeji?

Například:
All.Textbox(1;2;3;4;5;6;7;8;9;10).Delete

Prosím o pomoc.

Dík.
OB

Zaslat odpověď >

---

Opičák(25.4.2013 15:10)#013104

vyzkoušej tohle
Sub mazejTB()
For Each Control In UserForm1.Controls
Control.Text = vbNullString
Next
End Subcitovat

eLCHa(26.4.2013 4:57)#013107

@Opičák

toto by fungovalo v případě, že na UF má pouze TextBoxy. Ostatní prvky Text nemají, takže vyhodí chybu.

Sub mazejTB()
For Each Control In UserForm1.Controls
if typename(control)="TextBox" then
Control.Text = vbNullString
end if
Next
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse