Sayıları küçültme

[seergin83]

verdiğim örnekte sayıların 100-70-50 ile küçültülmesini istediğim bir dosya var, hesap makinesi ile yapmak zorunda kalıyorum, otomatik olarak excel in yapmasını istiyorum

 

[seergin83]

arkadaşlar örneğimi foruma aktaramadım, nereden yapılıyordu

 

[Muzaffer Ali]

http://www.upload.gen.tr yada benzeri bir dosya yükleme sitesine yükle buraya linkini ver.

 

[seergin83]

http://www.upload.gen.tr/d.php/www/9rhZW/ornek.xls.html

 

[Muzaffer Ali]

Daha anlaşılabilir sormalısınız sorunuzdan hiçbir şey anlaşılmıyor. Ayrıca yaptığınız hesaplamaları tekrar gözden geçirin sonuçları yanlış yazmışsınız.

 

[seergin83]

yok hesaplamaların öyle olması gerekiyor yani rakamı küçültmek, ilgili rakamın 100-70 ve 50 ile sırasıyla bölünmesi gerekiyor mesela 40 sayısı > 100 e bölersek > 100/40=25 > daha ileri gidersek 70 ama 70 e bölersek 70/25=2,8(yani 28) çıkıyor bu olmaz bu sefer 50ye bölersek 50/25=20 olacak
biraz karışık ama böyle olması gerekiyor

 

[Muzaffer Ali]

100/40=25 değil 2,5 olmalı
70/25=2,8(yani 28) demişsiniz neden 28 oluyor sonucu 10 ile mi çarpacağız. Ayrıca bu olmaz demişsiniz neye göre olmaz olmadığını nereden bileceğiz. Olanı nereden bileceğiz.
50/25=20 değil sonuç 2 dir

 

[mahmut011]

Şöyle bir şart aranıyor sanırım
Alt + F11 yapıp VBA kısmında Insert->Module ile modül ekleyip bu formül kullanılabilir

Function BOL(deger As Double) As Double
Dim donusdeger As Double
donusdeger = deger
If 100 / donusdeger * 10 < donusdeger Then
donusdeger = 100 / donusdeger * 10
End If
If 70 / donusdeger * 10 < donusdeger Then
donusdeger = 70 / donusdeger * 10
End If
If 50 / donusdeger * 10 < donusdeger Then
donusdeger = 50 / donusdeger * 10
End If


BOL = Round(donusdeger, 2)

End Function

 

[seergin83]

teşekkürler yardımlarınız için ama olmadı

şöyle bir yol buldum bütün ihtimalleri yazıp(100-70 ve 50 ye bölüp en küçük değerini forum sayfası sayesinde MİN formülü sayesinde buldum