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

MS Excel

Téma: Přidat label do userform

Zaslal/a AlesZ 11.4.2012 18:01

Dobrý den,

mám dotaz zda-li nějak jde přidat do UserForm ve VBA ( Office 2003 ) Label pomocí příkazu vba ( makra ).

Jde mi o to, že chci z databáze ( též v excelu ) přenést některé informace do userformu a zobrazit uživateli.

Dejme tomu, že v userform1 budu mít 5x label a chci aby při jejich naplnění došlo k vytvoření nového.

předem díky

Uzamčeno - nelze přidávat nové příspěvky.

---

Jeza.m(11.4.2012 21:46)#007999

http://www.ozgrid.com/Excel/free-training/ExcelVBA2/excelvba2lesson21.htm
Zkoušel jsem...
UserForm1.Controls.Add "Forms.Label.1", "Label2", vbYes
UserForm1!Label2.Visible = True
UserForm1!Label2.Top = Label1.Top
UserForm1!Label2.Caption = "AAA"
ale rozhodilo mi to Label1, který je pak v kódu potřeba nastavit. Ale jen jsem to zkoušel, nikdy jsem to ve VBA nepoužil.
Ve VBA používám pouze metodu load pomocí indexů, která ve VBA očividně nejde použít, nebo jen nevím jak :-)
http://www.vbexplorer.com/VBExplorer/vb_feature/april2000/april2000.asp

Tak snad pomůže ten první odkaz :-)

M@citovat

AL(11.4.2012 21:53)#008000

Pokiaľ by nefungoval Jezov návod (neskúšal som), tak pridanie label počas run-time makra ide napr. nasledovne:Sub pom()
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
Dim lbl As MSForms.Label
Set lbl = Me.Controls.Add("Forms.Label.1")
With lbl
.Top = 30
.Left = 24
.Height = 36
.Width = 102
.Caption = "MyLabel"
End With
End Sub
akurát si podmienkou musíš ošetriť kedy má dojsť k vytvoreniu nového labelcitovat

AlesZ(12.4.2012 8:32)#008004

Díky oběma, oba způsoby fungují přesně tak jak potřebuju .citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse