mrb
3 tane alanım var.
en
boy
yükseklik
en x boy x yükselik / 3000 şeklinde förmül yalnız çıkan sonuç 2 nin altında ise 2 ye yuvarlayacak üstünde ise bir üst tam sayıya yuvarlayacak örneğin 3,633 ise 4 e yuvarlayacak formülle ilgili yardım rica ediyorum biraz denedim ama olmadı
Merhaba
örneğiniz yok ama ,ekteki örneği kendinize uyarlayabilirsiniz
Private Sub CommandButton1_Click()
Dim en As Double
Dim boy As Double
Dim yukseklik As Double
Dim sonuc As Double
' En, Boy ve Yükseklik değerlerini al (örneğin TextBox2, TextBox3 ve TextBox4'ten)
en = CDbl(TextBox2.Text)
boy = CDbl(TextBox3.Text)
yukseklik = CDbl(TextBox4.Text)
' Hesaplama
sonuc = (en * boy * yukseklik) / 3000
' Yuvarlama
If sonuc < 2 Then
sonuc = 2
Else
sonuc = WorksheetFunction.Ceiling(sonuc, 1)
End If
' Sonucu TextBox1 içine yaz
TextBox1.Text = "Sonuç: " & sonuc
End Sub
hocam örneği ekledim rica etsem
Yapılmaması gereken ölümcül hatalar başlıklı konuyu mutlaka inceleyin, form denetimlerine tablolardaki alan adları verilmez. Sonuc textboxınızın denetimine IIf(([Text0]*[Text1]*[Text2])/3000 < 2; 2; Round(([Text0]*[Text1]*[Text2])/3000 + 0.5; 0)) girin şeklinde vereceğimiz formül mevcut hali ile çalışmayacak hata alacaksınız. #Ad? hatası verdi nedenle devam edeceğiz vs. Ekli dosyayı ve belirttiğim konu başlığını detaylı olarak inceleyin.
Merhaba tekrar
Atoykan hocam cevap vermiş ama bende yaptım birşeyler kontrol edin
(12/12/2024, 16:02)atoykan yazdı: [ -> ]Yapılmaması gereken ölümcül hatalar başlıklı konuyu mutlaka inceleyin, form denetimlerine tablolardaki alan adları verilmez. Sonuc textboxınızın denetimine IIf(([Text0]*[Text1]*[Text2])/3000 < 2; 2; Round(([Text0]*[Text1]*[Text2])/3000 + 0.5; 0)) girin şeklinde vereceğimiz formül mevcut hali ile çalışmayacak hata alacaksınız. #Ad? hatası verdi nedenle devam edeceğiz vs. Ekli dosyayı ve belirttiğim konu başlığını detaylı olarak inceleyin.
anladım hocam tşkler elinize sağlık