Userformda hesaplamanın hemen görünmemesi

[Ali]

Hacim1 textboxun içine ve Ornek textbox içine yazdığım rakamları
Sonuc textboxun içinde hemen göremiyorum. Kodları aşağıdaki gibi yaptım
Sonuc textboxun içinde hesaplama sonucunu Sonuc textboxın içine girip birşeyler yazmaya çalıştığım (1, 5, 7 gibi sayılar birşeyler yazmayı denediğim ) zaman sonucu görüyorum sebebi nedir acaba

Private Sub Hacim1_Change()
If Not IsNumeric(Hacim1) Then SendKeys "{BS}"
End Sub

Private Sub Ornek_Change()
If Not IsNumeric(Ornek) Then SendKeys "{BS}"
End Sub



Private Sub Sonuc_Change()
Sonuc.Value = (Ornek.Value / Hacim1.Value) * 10 ^ 6
End Sub



İkinci sorum iki tane OptionButton un var ilkini tıkladığımda yukarıdaki işlemi ikincisini(diğerini) tıkladığımda ise aşagıdaki işlemi yapmasını istiyorum

Sonuc.Value*(Textbox5.Value/Textbox6.Value)


Diğer birsorumda
Diyelim 3 tane yanyana 4 tane altta

* * *
* * *
* * *
* * *

şeklinde textbox olsun

scroolbar ile bunu artırabilirmiyiz mesela bir kez üst oku tıkladığımıza 4 satır 3 sütun alt oku tukladığımızda 3 satır 3 sütun yapacak kod nedir.

 

[Tarkan VURAL]

Textbox değerlerini hesapla

Merhaba;

1.Sorunuz için:
[vb:1:8f6a09cedc]Private Sub Hacim1_Change()
If Not IsNumeric(Hacim1) Then SendKeys "{BS}"
If Hacim1.Value <> Empty And Ornek.Value <> Empty Then
Sonuc.Value = (Ornek.Value / Hacim1.Value) * 10 ^ 6
Else
Sonuc.Value = ""
End If
End Sub[/vb:1:8f6a09cedc]
[vb:1:8f6a09cedc]Private Sub Ornek_Change()
If Not IsNumeric(Ornek) Then SendKeys "{BS}"
If Hacim1.Value <> Empty And Ornek.Value <> Empty Then
Sonuc.Value = (Ornek.Value / Hacim1.Value) * 10 ^ 6
Else
Sonuc.Value = ""
End If
End Sub[/vb:1:8f6a09cedc]

 

[Haluk]

Sonuc textboxın içine girip birşeyler yazmaya çalıştığım (1, 5, 7 gibi sayılar birşeyler yazmayı denediğim ) zaman sonucu görüyorum sebebi nedir acaba

Merhaba;

Forumdan izlediğim kadarıyla VBA' de henuz cok cok yenisiniz.

Lütfen yanlış algılamayın ama benim size tavsiyem; önce VBA ile ilgili bir kitap alıp, calisip, kendinizi geliştirmenizdir.

Diğer taraftan, yukarıdaki alıntıda yer alan sorunuzla ilgili olarak ise;

Yazdığınız kodlarda, Sonuc isimli TextBox' da bir şekilde Change olayı meydana geldiğinde sonucun bu nesne içinde görüntülenmesini istemişiniz. Bu nedenle, siz bu TextBox'a manuel olarak girip de birşeyler yazıp Change olayı meydana getirdiğiniz zaman ancak istediğiniz gerçekleşiyor.

Bu yordam altına yazdığınız kodu, yukarıdaki diğer TextBox' ların mantıklı bir yordamı içine yazarsanız istediğiniz gerçekleşir. Ama, 0'a bölme falan gibi durumlarda oluşacak muhtemel Run-Time hatalarını önlemek üzere bazı ilave kod satırlarına da ihtiyacınız olacaktır.

 

[Ali]

Haklısınız Raider ama VBA kitaplarıda karışık birkaç tanesine baktım hiç sistematik gitmiyordu,anlayamadım . Siz bilenlerin tavsiye edeceği bir kitapla başlayabilirim.

Ayrıca Tarkan Bey'in cevabı içinde ayrıca teşekkür ederim.