vyzkoušej tohle
Sub mazejTB()
For Each Control In UserForm1.Controls
Control.Text = vbNullString
Next
End Subcitovat
Sub mazejTB()
For Each Control In UserForm1.Controls
Control.Text = vbNullString
Next
End Subcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Hromadné vymází Textboxů z Userform
MS Excel
Téma: Hromadné vymází Textboxů z Userform 
Zaslal/a 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
@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
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)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Čas od do
lubo • 19.4. 16:30
Makro smyčka
MilanKop • 19.4. 10:46
Makro smyčka
elninoslov • 19.4. 9:02
Čas od do
elninoslov • 19.4. 8:46
Čas od do
jarek1111 • 18.4. 13:46
Čas od do
lubo • 18.4. 11:13
Čas od do
jarek1111 • 18.4. 8:32
RSS nejnovější články