Döngü makro

[ockucukay]

Merhaba

Bir beyin jimnastiği sorusuyla karşınızdayım.

İş yerinde çeşitli DOE (Design of experiment) projelerimiz oluyor. Buna bağlı olarak hedeflenen cmk değerlerini bulmak için bazı teorik, istatistik çalışmalar yapıyoruz. Ama sayıları çok olunca çok zaman alıyor. Aşağıdaki linkte bu tabloya örnek bir sayfa gönderdim.

Yapmak istediğim nedir?
F9 tuşuna bastığınızda değerler değişmektedir. İstenen değer B9 veya B10'da bulunmaktadır (alt limit veya üst limitte B10 aktif olur. Limit yok seçtiğinizde B9 aktif olur.). Yapmak istediğim, ben istenen Cmk hücresine (B3) istediğim değeri yazayım, makro o değeri bulana kadar tabloyu çalıştırsın?

https://dl.dropboxusercontent.com/u/76147868/Soru.xls

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Asri]

B13 değerini yazdıktan sonra hangi hücrelerde hangi hesap yapılıyor?

Yada B13 ü bulmak için normalde elle bir hesap yöntemi yada tarifi var mı?

 

[ockucukay]

B13 değerini yazdıktan sonra hangi hücrelerde hangi hesap yapılıyor?

Yada B13 ü bulmak için normalde elle bir hesap yöntemi yada tarifi var mı?

B13 ve B14 rastgelearada fonksiyonunu çalıştırmak için kullandığımız alt ve üst sınırlardır, elle girilir. Bu sınırları kullanıcı belirler, F9 yaptığınızda program B15:B64 arasında rastgele (verilen sınırlar içinde) sayılar üretir. Çıkan sayılardan yapılan hesap sonuçları B8 ve B9 veya sadece B10'da görünür.

(Bu arada bilmeyenler için eklenen dosya cnc torna gibi tezgahların yeteneğini ölçmek için kullanılan bir excel simülasyonudur. Dağılım normal dağılımmış gibi değerlendirerek hesaplamaları yapar.)

Ben F9 ile yapılan çalıştırma işlemini, istenen cmk değeri bulunana kadar döngüye sokmak istiyorum. Umarım yeterli açıklamayı yapabilmişimdir.

 

[Asri]

Sadece B15 e istenen aralığında en küçük değerinden başlayıp en büyük değerine kadar sürekli arttırmak ve bu arada oluşan CMK değerini kontrol etmek yeterli olur mu?

Neden rasgele sayılar oluşturuluyor?

 

[Asri]

Hesapla butonuna her bastığınızda 1000 adet hesaplama yapar.
bulduğu anda işlemi durdurur.

http://s6.dosya.tc/server6/1ltwh2/cnc_yetenek_olcme.xls.html

Sub hesapla()
 For i = 1 To 1000
  Application.Calculate
  If Cells(10, 2).Value = Cells(3, 2).Value Then Exit For
  If Cells(9, 2).Value = Cells(3, 2).Value Then Exit For
 Next i
End Sub

 

[ockucukay]

Hesapla butonuna her bastığınızda 1000 adet hesaplama yapar.
bulduğu anda işlemi durdurur.

http://s6.dosya.tc/server6/1ltwh2/cnc_yetenek_olcme.xls.html

Sub hesapla()
Sub hesapla()
 For i = 1 To 1000
  Application.Calculate
  If Cells(10, 2).Value = Cells(3, 2).Value Then Exit For
  If Cells(9, 2).Value = Cells(3, 2).Value Then Exit For
 Next i
End Sub

Merhaba

Ben bir düğme yaptım ve aşağıdaki gibi bir kod kullandım.

Do
Calculate
Loop Until Range("b3") = Range("b10")

Ama durmak bilmedi

Sizin kodunuz çok güzel çalışıyor, teşekkür ederim.

 

[Asri]

Merhaba

Ben bir düğme yaptım ve aşağıdaki gibi bir kod kullandım.

Do
Calculate
Loop Until Range("b3") = Range("b10")

Ama durmak bilmedi

Sizin kodunuz çok güzel çalışıyor, teşekkür ederim.

1000 döngü yerine, sonsuz da yapılabilir ancak bazı durumlarda doğru sonuç bulunamayabilir diye kısıtlı yaptım.