ortalama formülünün tersi nasıl yazılır?

[hydrogenman]

merhaba ;
bi hücreye 40-100 arası herhangi bir sayıyı yazdığımda;
bu hücrenin solunda kalan 10 tane hücreye raastgele sayılar atayacak.
ama bu rastgele sayıların ortalamasını aldığımızda girdiğim sayı ile aynı olacak.
nasıl bir mantık kullanmalıyım.
makro kullanmadan fx kullanarak yazabilir miyim bunu?
şimdiden teşekkür ederim cevaplarınız için.

 

[YUSUF44]

Sorunu çözebilir miyim bilmiyorum ama girilecek sayıların bir sınırı var mı? Yani şundan küçük bundan büyük olamaz gibi. Herhangi ibr üst ya da alt limit var mı?

 

[Merhum İdris SERDAR]

.

Buradaki dosyaları inceleyin.

http://www.excelgurusu.com/toplami-olusturan-sayilari-bulmak/

.

 

[hydrogenman]

sayı sınırı yok. küüçük büyük koşulları yok. yusuf44 bey

tamam inceleyeyim idris serdar bey

 

[hydrogenman]

idris serdar bey inceledim. girilen sayıyı, toplamlarında buluyor o sayılar.
benim istediğim, bi sayı girilsin.
10 hücreya o anda sayılar atansın rastgele.
ama atanan sayıların ortalamasını alınca , girilen sayıyı versin.
teşekkür ederim.

 

[Merhum İdris SERDAR]

.

Dosya yükleme sitelerinden birine örnek dosya ekleyerek gerekli açıklamaları yaparsanız, daha rahatlıkla çözüm bulabilirsiniz.

.

 

[hydrogenman]

tamam idris bey. yapmaya çalışıcam.

 

[hydrogenman]

buyurun idris bey;

https://drive.google.com/open?id=0B5ygfPQ-rSW2aHhkRjg3bVZFcnc

 

[YUSUF44]

Siz 10 sayı demiştiniz, örnek dosyanız 8 sayı şeklinde; siz alt üst sınır yok demiştiniz, örnek dosyanızda 40-100 arası olacağı yazıyor. Bunlar sorunun çözümü için önemli noktalar, neden sorunuzda yanlış bilgi verdiniz ki?

 

[hydrogenman]

özürdilerim.
40-100 arası olacak.
bu listede 8 . ama başka listede 18 e kadar çıkabiliyor.
o yüzden o kısmını artırı kullanırım diye düşünmüştüm.

 

[Merhum İdris SERDAR]

.

Dosyanız burada.

Solver - Çözücü ile yapılmıştır.

http://s5.dosya.tc/server4/wsr0h8/EKS_UYGULAMA_BASLIKLARI_sade.rar.html


.

 

[Muhammet Okumuş]

Bu tür dağıtma işlemlerinde benzersiz dağıtımları makrolar üretir. Formül yerine makro kullanmanızı tavsiye ederim.

Sub Dağıt()
Application.ScreenUpdating = False
Range("G27:N37") = ""
son = Cells(Rows.Count, 16).End(3).Row
For i = 27 To son
If Cells(i, 16) = "" Or Cells(i, 16) < 40 Then GoTo 20
x = Int(Cells(i, 16) * 8)
Range("G" & i & ":N" & i) = 100
5
If x = WorksheetFunction.Sum(Range("G" & i & ":N" & i)) Then GoTo 20
10
a = WorksheetFunction.RandBetween(7, 14)
If Cells(i, a) = 40 Then GoTo 10
Cells(i, a) = Cells(i, a) - 1
GoTo 5
20
Next
End Sub

 

[hydrogenman]

idris bey ve muhammed bey çok teşekkür ederim. hemen uygulayacağım.