Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

CI+ (Telekom) și TV JVC

Umiditate Beci

Ariston decupleaza incalzire calo...
 Retea interioara CATV proasta. So...

Acte masina de firma la vama

Same Silver 100.4 Position Sensor...

Transfer asigurare auto
 PNI CT36 wireless forum schimbare...

Problema cu un card microSD Samsung

Unde se gasesc piese de schimb MB?

Placa de baza Gigabyte B660M, und...
 Portare abonament la Digi

Bronson laboratories - pareri

Navigatie offline - Romania - Ger...

Pornit banda LED din 2 surse de c...
 

legare buton excel de userform1

- - - - -
  • Please log in to reply
2 replies to this topic

#1
credit

credit

    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.

#2
Sandstorm

Sandstorm

    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.

#3
credit

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007

View PostSandstorm, 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

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate