if döngüsü

[mice100]

arkadaşlar merhaba.

şöyle bir sorunum var.

a isminde bir textbox ım var. buraya girilen değer aşağıdaki işlemi gördükten sonra f textboxına yazılacak.

a değeri 299 den küçükeşitse f texboxına a/200
a değeri 300 ile 450 arasında ise f texboxına 1.5
a değeri 451 den büyükeşitse f texboxına a/300

olması gerekiyor.

bunun için nasıl bir formül düzenlemeliyim?

aslında excelde buna karşılık şöle bir formül uygulamıştım ama makroya atamadım.

=EĞER(A1>450;A1/300;EĞER(A1/200>1,5;"1,5";EĞER(A1/200<=1,5;A1/200)))

 

[YUSUF44]

if textbox1.value <= 299 then 
textbox2 = textbox1.value/200
else
if textbox1.value <= 450 then 
textbox2 = 1.5
else
if textbox1.value >450 then 
textbox2 = textbox1.value/300
end if
end if
end if

mantığıyla yapabilirsiniz diye düşünüyorum. Textbox adlarını kendinize göre düzeltmeniz gerekiyor tabi.

 

[mice100]

Süper oldu üstad. ellerine sağlık.