legare buton excel de userform1

#1
credit

Posted 14 October 2010 - 13:04

Member

Grup: Members
Posts: 621
Înscris: 04.05.2007

Am creat in vb sub excel o forma "userform1" cu 3 boxtext si un buton. La apasarea butonului se face suma.

Private Sub CommandButton1_Click()
If CommandButton1 = vbcommandbutton1 Then

TextBox3 = Val(TextBox1) + Val(TextBox2)

End If

End Sub

Ei acum eu vreau sa implemenez un buton in excel care prin apasarea lui sa-mi ruleze userform-ul din vb.

Back to top

#2
Sandstorm

Posted 15 October 2010 - 14:11

Member

Grup: Banned
Posts: 632
Înscris: 30.04.2009

In VBA inserezi un modul nou.
In el scrii asa:

Sub ArataForm
UserForm1.Show
End Sub

In foaia de calcul inserezi un buton nou. Cand o sa apara acea caseta de dialog pentru coduri macro, selectezi codul ArataForm.
Astfel ai atribuit unui buton din foaie functia de a deschide un form.
Ti-am atasat si un exemplu.

Back to top

#3
credit

Posted 18 October 2010 - 10:04

Member

Grup: Members
Posts: 621
Înscris: 04.05.2007

Sandstorm, on 15th October 2010, 15:11, said:

In VBA inserezi un modul nou.
In el scrii asa:

Sub ArataForm
UserForm1.Show
End Sub

In foaia de calcul inserezi un buton nou. Cand o sa apara acea caseta de dialog pentru coduri macro, selectezi codul ArataForm.
Astfel ai atribuit unui buton din foaie functia de a deschide un form.
Ti-am atasat si un exemplu.

Multumesc, am verificat si functioneaza.
Am reusit sa fac acelasi lucru fara a mai creea si un modul. Am creat butonul in excel cu control toolbox si am scris codul:

Private Sub CommandButton1_Click()
UserForm1.Show

End Sub

Am creeat si forma "userform1" si gata!

Mersi

Back to top

Anunturi

Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

legare buton excel de userform1

#1 credit Posted 14 October 2010 - 13:04

#2 Sandstorm Posted 15 October 2010 - 14:11

#3 credit Posted 18 October 2010 - 10:04

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
credit

Posted 14 October 2010 - 13:04

#2
Sandstorm

Posted 15 October 2010 - 14:11

#3
credit

Posted 18 October 2010 - 10:04