Toplamı Labelde Görünmesi

[kamil09]

Sayın üstatlarım merhaba;
Sorunum şu Userform dan Textbox a girilen her sayıyı Label de toplamını aldırmak istiyorum formu alt üst ettim sorumun cevabını bulamadım. Sizlerden yardım bekliyorum.

 

[fedeal]

Merhaba,
Soru net değil örneğin 10 tane textbox var biz bunların toplamlarınımı label'a yazdıracagız.
öyle ise ;

Private Sub TextBox1_Change()
Label1.Caption = 0
For i = 1 To 10
On Error Resume Next
Label1.Caption = CDbl(Label1.Caption) + CDbl(Controls("textbox" & i).Text)
Next
End Sub

işinizi görür. iyi çalışmalar.

 

[sonsuzkalp]

selam fedeal hocam rica etsem basit bi örnek dosya ekler misiniz bu örnekle ilgili

 

[sonsuzkalp]

fedeal hocam tam olarak istediğim userform da iki tane texbox ve bi label ile excel de istediğim fonksiyonu kullanabilmek mesela ilk text box a sayıyı yazıp ikinci texbox a butonla karesini al demek basit bi örnek yaparsanız çok çok işime yarıyacak emeğiniz için teşekkürler

 

[fedeal]

Tabi hemen hazır ekte ama sayın Kamil09'un istedigi bu olmayabilir.

 

[fedeal]

fedeal hocam tam olarak istediğim userform da iki tane texbox ve bi label ile excel de istediğim fonksiyonu kullanabilmek mesela ilk text box a sayıyı yazıp ikinci texbox a butonla karesini al demek basit bi örnek yaparsanız çok çok işime yarıyacak emeğiniz için teşekkürler

O zaman hesap makinası çalışmamı inceleyin karesi kökü hepsi var içeriginde;

http://www.excel.web.tr/showthread.php?t=72651&page=2

 

[sonsuzkalp]

tekrar selam fedeal ustam peki herhangi bi fonksiyonu userform da nasıl kullanabilirim 4 numaralı mesajtaki gibi bi şansım var mı fx fonksiyonlarının userform da kullanabilsem çok işime lazım olcak sizi yoruyorsam kusura bakmayın

 

[sonsuzkalp]

fedeal hocam benden hızlısınız ben yazarken siz benden hızlı yazmıssınız teşekkürler yardımlarınız için iyi calısmalar

 

[fedeal]

tekrar selam fedeal ustam peki herhangi bi fonksiyonu userform da nasıl kullanabilirim 4 numaralı mesajtaki gibi bi şansım var mı fx fonksiyonlarının userform da kullanabilsem çok işime lazım olcak sizi yoruyorsam kusura bakmayın

excelde yerleşik fonksiyonları kod olarakta aynı mantıkla kullanabilirsiniz örnegin;
eğersay fonksiyonuyla sayfada b4 b10 aralıgında c3 hücresinde yazan değeri saydıracagız.
=eğersay(b4:b10;c3)

makroda ise sonucu textbox1 e yazdıracagız mesela

a=WorksheetFunction.CountIf(Sheets("GİDER").Range("b4:b10"), Sheets("GİDER").Range("c3").value)
textbox1.text= a

WorksheetFunction yazıp kod sayfasında noktaya basınca tanımlı fonksiyonların listesi gelecektir.iyi çalışmalar.

 

[sonsuzkalp]

tekrar selam son olarak rica etsem son yaptığınıza örnek calısma hazırda ekleyebilir misiniz denedim hata verdi size yormuyacaksa bekliyorum örnek basit bi çalışma kusura bakmayın yeni exceli keşfetmeye başladım

 

[fedeal]

Örnek ekte fonksiyonla comboboxa benzersiz kayıt almayıda ekledim inceleyin,Saygılar.

 

[sonsuzkalp]

hocam çok teşekkür ederim yardımlarınız için asıl saygı bizden

 

[sonsuzkalp]

selam

fedeal hocam tekrar selam sizin gönderdiğinizle average fonksiyonunu kullanmaya çalıştım ama bi türlü yapamadım bi bakar mısınız nerede yanlış yaptım ve nerede yanlış yaptığımı anlatırsanız öğrenmiş olurum

 

[fedeal]

o fonksiyonun sayfadaki uygulamasını düşünün sayı1;sayı2;sayı3 ancak siz şartları eğersay gibi yazmışsınız hata verecektir.istediginiz cevap elinizin altında oysa textbox1 e ismin kaç tane oldugunu bulmuştuk textbox2ye ise toplam degeri

TextBox3.Text = Val(TextBox2.Text) / Val(TextBox1.Text)

yazarsak sonuç değer ortalamasıdır.

 

[sonsuzkalp]

ben ortalama olarak da aynen kullanabileceğimi düşünmüştüm kısa yoldan daha mantıklı bu yardımlarınız için teşekkürler hesap makinesi mantığıyla yapsam fonksiyonları daha rahatlıkla yaparım anladığım kadarıyla iyi çalışmalar