+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. (/konu-minimum-ve-maximum-girilen-veriye-gore-sabit-degeri-arttirma.html)
Sayfalar:
1
2
Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. - Oğuz Türkyılmaz - 09/10/2021
Herkese sağlıklı günler dilerim. Bir hesaplama yaptırmak istiyorum if elseif else blokları ile çözüm üretilebilir ama ben yapılabilirse hesaplama formülüyle nasıl çözebilirim.
Hesaplanması gereken Textbox_AyakSayisi.Value değeri
Şöyle ki Ben cephe ölçüsü ne girersem gireyim sistem ölçüye göre ayak sayısını, her bir ayak arasında minimum 2,25 maxımum 3,25 cm aralık olacak şekilde bana ayak sayısını hesaplayacak. Yani girilen ölçüyü önce 2 ye bölecek çıkan değere bakacak değer 2,25 - 3,25 aralığında değilse 3 e bölecek yine min max değerler arasına oturmuyorsa 4 e bölecek. Başlangıç ayak sayısı 4500cm ye kadar 2 adet ayak. Bu ölçüden sonra yukarda anlattığım şekilde hesaplama yaparak bu ayak sayısını otomatikman arttıracak. Yardımlarınız için teşekkür ederim.
RE: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. - berduş - 09/10/2021
4500cm =45 metre eder ölçü türünden emin misiniz?
RE: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. - Oğuz Türkyılmaz - 09/10/2021
(09/10/2021, 15:21)berduş yazdı: 4500cm =45 metre eder ölçü türünden emin misiniz?
mm olacak özür dilerim
RE: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. - berduş - 09/10/2021
cephe ölçüsünün birimi ne mm, cm
2,25 maxımum 3,25 cm burası da her halde metre
RE: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. - Oğuz Türkyılmaz - 09/10/2021
(09/10/2021, 15:24)Oğuz Türkyılmaz yazdı:(09/10/2021, 15:21)berduş yazdı: 4500cm =45 metre eder ölçü türünden emin misiniz?
mm olacak özür dilerim
27 28 metreye kadar yapıldı istenirse de eklenerek arttırılabilir.@berduş hocam
RE: Minimum Ve Maximum Girilen Veriye Göre Sabit Değeri Arttırma. - berduş - 09/10/2021
dener misiniz?
Private Sub TextBox_CepheOlcusu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox_AyakSayisi = 2
If TextBox_CepheOlcusu <= 4500 Then Exit Sub
i = 1
Do Until xAyk >= 2250 And xAyk <= 3250
i = i + 1
xAyk = TextBox_CepheOlcusu / i
Loop
TextBox_AyakSayisi = i
End Sub