refedit problemi?

[maxcoder]

şu refediti kullanmasını bir türlü beceremedim.İllede hoca refedit istiyo.normalde inputbox ile aritmetik ortalama aldırabiliyordum.Refeditkullanarak ile nasıl yapabilirim acaba


:uyku:

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[maxcoder]

teşekkür ederim hocam bu WorksheetFunction ne manyak özelllikleri var.Hocam burda WorksheetFunction nun poisson dagılımı özelliği var bunu nasıl kullanırım

iyi akşamlar

 

[Levent Menteşoğlu]

"WorksheetFunction" Excelde bulunan yerleşik fonksiyonların aynı şekilde VBA içinde kullanılmasını sağlayan bir komuttur. Bahsettiğiniz poisson dağılımı hakkında bilgi sahibi değilim. Fakat bu fonksiyonu sayfa üzerinde nasıl kullanıyorsanız, VBA içindede aynı mantıkla kullanabilirsiniz

 

[maxcoder]

peki hocam yerleşik fonksiyonları kullanmadan ama (refedit şart)baska bir yollada yapılabilirmi aritmetik ortalama

gece gece vakit ayırdıgınız için teşekkürler
:yazici:

 

[Levent Menteşoğlu]

Refedite yazılan kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:96774b2ce1]Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
For Each hucre In Range(RefEdit1)
say = say + 1 'seçili hücre sayısını bulur
topla = hucre + topla 'seçili hücre toplamını
Next
TextBox1 = topla / say 'ortalama
End Sub
[/vb:1:96774b2ce1]

 

[maxcoder]

Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
peki amaç nedir? hocam yani bu prosedürü kullanarak programa ne kattınız?

:yardim:

 

[Levent Menteşoğlu]

Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Bu refedit nesnesine özel bir prosedürdür. VBE de sağ üst köşedeki açılan kutuda diğer prosedürleri görebilirsiniz.

hocam kenidimi geliştirebilicegim adım adım anlatan bir site varmı?

Bu soruyu ben görmemiş olayım. Zaten böyle bir forumun içinde bulunuyorsunuz. Herşeyi en ince detayına kadar anlatan bir site hiç bir zaman bulamazsınız.

 

[maxcoder]

anladım
Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
peki amaç nedir? hocam yani bu prosedürü kullanarak programa ne kattınız?
zaman ayırdıgınınz için ne kadar teşekkür etsem azdır.
:yardim: