Excel-solver

[ahmethasim]

Selam arkadaşlar

Benim sorunum şu solver (çözücü) yü kullanarak iterasyon yapmak istiyorum.

Yalnız hedef hücreyi eşitleyeceğim değer 0 gibi sabit bir değer değil o değer de by changing cell olarak gireceğim hücreye bağlı olarak değişen bir formul olması gerekiyor.

Örneğin

A1 hücresinde =A2*5 olsun
A3 hücresinde =A2*7 olsun

Set Target Cell ---> A1 Value of : A3

By Changing Cell ----> A2 olması gerekiyor. Yani bir döngü var illa solver ile çözmek de şart değil burada ne yapabiliriz.

Teşekkürler

İyi çalışmalar

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=83182&highlight=iterasyon

Buraya bakın.

.

 

[ahmethasim]

tesekkurler yurttas Bey yalniz iterasyon islemini solver île yapmak mumkun muydu peki yani 2 hucre var ve icindeki formuller birbirlerine referans veriyor nasil yapilabilir?
Tesekkurler
Iyi calismalar

 

[Merhum İdris SERDAR]

tesekkurler yurttas Bey yalniz iterasyon islemini solver île yapmak mumkun muydu peki yani 2 hucre var ve icindeki formuller birbirlerine referans veriyor nasil yapilabilir?
Tesekkurler
Iyi calismalar

Örnek dosya ekleyip, ne yapmak istediğinizi açıklarsanız, bakabiliriz.

.

 

[Merhum İdris SERDAR]

tesekkurler yurttas Bey yalniz iterasyon islemini solver île yapmak mumkun muydu peki yani 2 hucre var ve icindeki formuller birbirlerine referans veriyor nasil yapilabilir?
Tesekkurler
Iyi calismalar

.

Anlaşılan, dosya eklemeyeceksiniz.

http://www.excel.web.tr/showthread.php?t=18901

Buraya eklediğim, son dosya size fikir verebilir.


.

 

[ahmethasim]

solver

Yurttaş Hocam ilginize çok teşekkürler . Bugün çok yoğundum ve bilgisayarı açamadım bile ancak şimdi bakabiliyorum mesajlarınıza . Ekte yamaya çalıştığım olayı anlatan excel dosyasını inceleyebilir misiniz rica etsem.

Ne yapmak istediğimi içinde yazdım.

Değerli görüşlerinizi bekliyorum.

Teşekkürler

İyi çalışmalar

 

[Merhum İdris SERDAR]

Yurttaş Hocam ilginize çok teşekkürler . Bugün çok yoğundum ve bilgisayarı açamadım bile ancak şimdi bakabiliyorum mesajlarınıza . Ekte yamaya çalıştığım olayı anlatan excel dosyasını inceleyebilir misiniz rica etsem.

Ne yapmak istediğimi içinde yazdım.

Değerli görüşlerinizi bekliyorum.

Teşekkürler

İyi çalışmalar

.

Dosyanız ekte.

.

 

[ahmethasim]

Solver

Hocam elinize sağlık yalnız makroyu ilk çalıştırdığımda birbirine eşit olmasını istediğim iki hücre arasında hemen yakınsamıyor birkaç kez butona basmak makroyu çalıştırmak gerekiyor iki değer arasındaki fark 0.001 oluncaya kadar solverın işlemesi nasıl sağlanabilir ? Bu konuda kod olarak ne yazmamız gerekir?

Teşekkürler

İyi çalışmalar

 

[Merhum İdris SERDAR]

Hocam elinize sağlık yalnız makroyu ilk çalıştırdığımda birbirine eşit olmasını istediğim iki hücre arasında hemen yakınsamıyor birkaç kez butona basmak makroyu çalıştırmak gerekiyor iki değer arasındaki fark 0.001 oluncaya kadar solverın işlemesi nasıl sağlanabilir ? Bu konuda kod olarak ne yazmamız gerekir?

Teşekkürler

İyi çalışmalar

.

Makroyu aşağıdaki ile değiştirerek deneyin.

Sub bul()
Dim deg

deg = [n2].Value
    
    SolverOk SetCell:=Range("p2"), MaxMinVal:=3, ValueOf:=deg, _
         ByChange:=Range("f2")
    
    SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
        :=True, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
        IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=True
    
    SolverSolve UserFinish:=True
    SolverFinish KeepFinal:=1

End Sub

.

 

[ahmethasim]

Solver

Yurttaş Hocam dediğiniz makroyu koydum ama makroyu çalıştırdığımda run ediyor ama sonuç değişmiyor hiç. Nerede hata yapıyorum dosya ekte inceleyebilir misiniz?

Teşekkürler

İyi çalışmalar

 

[ahmethasim]

Solver

Hocam makronun çalışmamasının nedeni AssumeLinear kısmının True olmasından modelim lineer değil ama ardışık yaklaşım yaptığında bir seferde istenilen noktaya yakınsamıyor. Solverın birkaç kez tıklanması gerekiyor iki değerin birbirine eşitlenmesi için.

Bu durumda ben şöyle bir yol düşündüm ama kilitlendi bilgisayar

Do While Abs(N2-P2)>0.001

SolverSolve

Loop

solverin bulduğu son değerlerle bir daha çalışmasını nasıl sağlatabiliriz?

Teşekkürler

İyi çalışmalar

 

[Merhum İdris SERDAR]

Hocam makronun çalışmamasının nedeni AssumeLinear kısmının True olmasından modelim lineer değil ama ardışık yaklaşım yaptığında bir seferde istenilen noktaya yakınsamıyor. Solverın birkaç kez tıklanması gerekiyor iki değerin birbirine eşitlenmesi için.

Bu durumda ben şöyle bir yol düşündüm ama kilitlendi bilgisayar

Do While Abs(N2-P2)>0.001

SolverSolve

Loop

solverin bulduğu son değerlerle bir daha çalışmasını nasıl sağlatabiliriz?

Teşekkürler

İyi çalışmalar

Haklısınız.

Buna göre dosyanızı yeniden düzenledim.

.

 

[ahmethasim]

Teşekkürler hocam elinize sağlık