Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!
 Cum era nivelul de trai cam din a...

probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda
 Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...
 Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.

Cost abonament clinica privata
 

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

Bun venit pe Forumul Softpedia!

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