excel de toplam ve ortalama ile ilgili

[necrovirus]

slmlar bir sorum olacaktı umarım bana yardımcı olabilirsiniz
bana yardım eden etmeye çalışan herkese teşekkür ederim
şimdi 3 tane A-B-C adında yerimiz olsun
benim yapmasını istediğim işlem şu
A = (B+C)/2

ben sadece A yerine herhangi bir sayı(1den 100e kadar) girdiğimiz de
B ve C kısmına otomatik olarak sayılar gelsin.
A kısmına benim gireceğim sayılar genelde şunlar olacaktır (45-50-55-60-65-70-75-80-85-90-95-100)
B ve C kısmına ben kesinlikle sayı girmeyeceğim . sayı gireceğim tek yer A kısmı olması lazım
B kısmına gelecek sayılar mutlaka çift olmak zorunda yani 0-2-4-6-8 ile biten sayılardan birisi olmak zorunda
C kısmına gelecek sayılar 0 ve 5 ile biten sayılar olması gerekiyor.
basit bir örnekle açıklarsak

A B C
60 50 70
45 40 50
65 70 60

 

[mancubus]

çözücü eklentisini kullanabilirsiniz.

 

[necrovirus]

cevap için teşekkürler
çözücüyü daha önce hiç kullanmadım size zahmet olmaz ise bunun nasıl yapılacağını bir örnekle anlatabilir misiniz acaba?

 

[mancubus]

yok. çözücü olmadı bu durumda.

optimum sonucu verip duruyor. örnek rakam 50 ise hem B hem C 50 oluyor.
siz anladığım kadarı ile farklı farklı seçenekler istiyorsunuz.

farklı bir deneme yaptım. bir bakın.
hiç veri girmeden rakam.

 

[necrovirus]

emeğiniz için teşekkür ederim hocam ama istediğim gibi olmadı
A kısmına bir sayı girdigimizde B ve C yerine rast gele sayı geliyor

HOCAM yapmak istediğime örnek bir tane excel sayfası koydum bakabilir misiniz size zahmet

 

[necrovirus]

mesajdaki dosyayı degiştiremediğim için(office 2010) için office 2003 olanınıda yükledim hocam

 

[mancubus]

forumda çözücü - solver şeklinde aratırsanız çok eğitici bir dosya vardı ulaşırsınız zannediyorum.

konunun ne olduğunu anladım da -form kaybettik galiba- tatminkar bir çözüm üretemedim.
A 0 ile 100 arasında bir sayı olacak galiba.

 

[necrovirus]

evet dediğiniz gibi A 0 ile 100 arasında olacak
yarin bakacağım foruma
yardımlarınız için tekrardan teşekkürler

 

[mancubus]

makro dışında bir çözüm bulamadım.
belki biraz daha zorlansa olurdu ama bu da ihtiyacınızı görür:

eklentiler'den Analysis ToolPak - VBA yüklenmeli ve Alt+F11 ile girilen VBE'de tools, references'dan atpvbaen işaretlenmeli.

ben bütün sayıların 0 ile 100 arasında olmasına göre yaptım. kodlarda isteğe göre değişiklik yapılabilir.

Sub coz()

Dim a As Integer, b As Integer, c As Integer, x As Integer

Application.ScreenUpdating = False

Range("A1:C1").ClearContents

x = Application.InputBox(Prompt:="Rakam Giriniz:", Title:="Ortalamayı Veren Sayılar", Default:="", Type:=1)

If x > 100 Then
    MsgBox "En fazla 100 olmalı"
    Exit Sub
End If

Do
btekrar:
    b = WorksheetFunction.RandBetween(0, 100)
    If b Mod 2 <> 0 Then GoTo btekrar:
ctekrar:
    c = WorksheetFunction.RandBetween(0, 100)
    If c Mod 5 <> 0 Then GoTo ctekrar:
    a = (b + c) / 2
    If a - Int(a) <> 0 Then GoTo btekrar:
Loop Until a = x

Range("A1") = a
Range("B1") = b
Range("C1") = c

Application.ScreenUpdating = True

End Sub

 

[necrovirus]

teşekkürler

 

[mancubus]

rica ederim.