Visual Basicte yeni pencere acma???

[berat01]

Merhaba arkadaslar,
Visual Basicte yeni bir makro yazmak istiyorum. Bu makroyu calistirdigimda karsima yeni bir pencere acilmali. Bu pencerede dikdörtgenin ve dairenin alanini hesaplayan iki farkli tus olmali. Dikdörtgen tusunun karsisinda iki tane girdi yazabilecegim kutucuk olmali (dikdörtgenin kenarlarinin uzunluklari) Daire tusunun karsisinda ise bir tane olmali sadece yaricap girdisi. Mesela dikdörtgenin girdilerini 2 ve 5 olarak girersek, cikan sonucu yani 2*5=10 u excelde A1 hücresine yazmali.
Kisacesi 3 tane inputbox ve 2 tane tustan olusan büyük bir pencere elde etmek istiyorum.
Yardimlariniz icin tesekkür ederim.

 

[Emsdmr]

Selam

Öncelikle üç Adet textbox ve iki Adet butonu Formunuza koyun daha sonra bu kodları formun içine yapıştırın

Private Sub CommandButton1_Click()
Worksheets("Sayfa1").Range("B2").Value = TextBox1.Value
Worksheets("Sayfa1").Range("C2").Value = TextBox2.Value
End Sub

Private Sub CommandButton2_Click()
Worksheets("Sayfa1").Range("G2").Value = TextBox3.Value
End Sub


A2 hücresine bu formülü yazın =B2*C2

G2 hücresine bu formülü yazın =F2*2

istediğiniz bu mu bilmiyorum ama kendinize göre yorumlarsınız belki

 

[berat01]

Cok tesekkür ederim. Denedim simdi.
Peki direk excelde, Sayfa1 in üzerinde, bu Formu calistirip karsima cikaran bir CommandButton nasil ekleyebilirim? Simdi kendim denedim

Public Sub dugme_Click()
UserForm1.CommandButton1_Click()
End Sub

bu ve bunun gibi bir kac farkli olasilik denedim ancak. bu dügmeden az önce yaptigimiz methodlari göremiyoruz sanirim

 

[Emsdmr]

bir command button ekleyecekseniz eğer bu kodu
comm
Private Sub CommandButton4_Click()
userform1.show
end sub


düğme ekleyeceksiniz
Public Sub dugme_Click()
userform1.show
end sub

 

[berat01]

Tesekkürler yardiminiz icin.