< návrat zpět

MS Excel


Téma: textbox ve formuláři rss

Zaslal/a 12.4.2013 20:31

Zdravím,
mám formulář, ve kterém je 20 textboxů a jejich počet se bude měnit. Potřebuji obsah těchto tb dostat do buněk v listu a to tak, že buňka A1=tb1, A2=tb2 ... Poradí mi někdo, jak to provést cyklem? Vypis po jednom je nepraktický, protože při změně počtu TB bych musel měnit i kod. Děkuji za případné návrhy.

Zaslat odpověď >

#012850
Opičák
Takhle by to mohlo fungovat, ale makro si musiš napsat podle tohoto principu.
Private Sub UserForm_Click()
n = 1
On Error GoTo konec
Do
Sheets("List1").Cells(n, 1) = Controls("TextBox" & n)
n = n + 1
Loop

konec:
MsgBox " neni vice Textboxu"
Unload Me
On Error GoTo 0
End Sub


edit: to vše za předpokladu, že TextBoxy nebudou mít různé názvy.
Příloha: zip12850_textboxy.zip (21kB, staženo 21x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09