Ortalama değerin bileşen sayılarını bulmak...

[tamer42]

Merhaba,
Ekli dosya Sayfa1' de B2 hücresinde yazılı olan küsüratlı değer (5,714) ;
burada yazan değerin bir altı (5) ve bir üstünde (6) yer alan toplamda 21 adet tam sayının ortalamasıdır:
Ekli dosya Sayfa2 de manuel olarak hesapladığım gibi,
Özetle 6 adet "5" ve 15 adet "6" tam sayılarından oluşan toplam (6+15) 21 adet sayının ortalaması Sayfa1 B2 hücresinde yazan değere denk gelmektedir.
Öğrenmek isrediğim:
Toplam 21 adet olmak üzere; Kaç adet 5, kaç adet 6 sayısını yazarsak B2 hücresinde yazan ortalama değere ulaşabiliriz?

6 adet "5"
15 adet "6"
Bu matematiksel çözümü makro kodu ile nasıl oluşturabiliriz?


Teşekkürler,
iyi geceler.

 

[Muhammet Okumuş]

Sub Dağıt()
Application.ScreenUpdating = False
Range("C2:W2") = 6
5
If WorksheetFunction.Average(Range("C2:W2")) = Range("B2") Then Exit Sub
10
a = WorksheetFunction.RandBetween(3, 23)
If Cells(2, a) = 5 Then GoTo 10
Cells(2, a) = Cells(2, a) - 1
GoTo 5
End Sub

Merhaba. Kodu deneyiniz.

 

[tamer42]

Merhaba. Kodu deneyiniz.

Hocam çok teşekkürler,

iyi Çalışmalar.

 

[Muhammet Okumuş]

Veriler C:W aralığında oldugu için,
C:3
W:23

sütun numarası.

 

[tamer42]

Veriler C:W aralığında oldugu için,
C:3
W:23

sütun numarası.

Anladım Hocam çok teşekkürler,