< návrat zpět

MS Excel

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

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
Opičák
vyzkoušej tohle
Sub mazejTB()
For Each Control In UserForm1.Controls
Control.Text = vbNullString
Next
End Subcitovat
icon eLCHa(26.4.2013 4:57)#013107
eLCHa
@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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje