+- 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ığı: Textbox Yuvarlama (/konu-textbox-yuvarlama.html)
Sayfalar:
1
2
Textbox Yuvarlama - ali.70 - 20/03/2024
MERHABALAR ACCESSTR.NET AİLESİ
EXCEL VBADA BÖYLE BİR OLAY OLUŞTURDUM
Private Sub TextBox1_Change()
TextBox3 = Val(TextBox1) * Val(ComboBox4)
End Sub
Private Sub ComboBox4_Change()
TextBox3 = Val(TextBox1) * Val(ComboBox4)
End Sub
FAKAT TEXTBOX3ÜN DEĞERİ BUÇUKLU ÇIKINCA BİR ÜST DEĞERE YUVARLAMAK İSTİYORUM
MİSAL 2,5 SA 3 E YUVARLAMAK İSTİYORUM 3,00 DEĞİLDE SADECE 3 OLSUN İSTİYORUM. NE YAPABİLİRİM
CEVAPLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLERR.......
RE: Textbox Yuvarlama - C*e*l*o*y*c*e - 20/03/2024
Private Sub TextBox1_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)
TextBox3 = Round(result - 0.5, 0)
End Sub
Private Sub ComboBox4_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)
TextBox3 = Round(result - 0.5, 0)
End Sub
bu kodu bir denermisiniz
RE: Textbox Yuvarlama - ali.70 - 20/03/2024
AMA BAZEN SONUÇ DÜZ DE ÇIKABİLİYOR. YANİ DİREK 3 ÇIKABİLİYOR VERİYE GÖRE
RE: Textbox Yuvarlama - C*e*l*o*y*c*e - 20/03/2024
Private Sub TextBox1_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)
' Virgülden sonraki kısmı kontrol et
If Int(result) = result Then
TextBox3 = result ' Sonuç zaten bir tam sayı ise yuvarlamaya gerek yok
Else
TextBox3 = Round(result - 0.5, 0) ' Virgülden sonraki kısmı 0 değilse yuvarla
End If
End Sub
Private Sub ComboBox4_Change()
Dim result As Double
result = Val(TextBox1) * Val(ComboBox4)
' Virgülden sonraki kısmı kontrol et
If Int(result) = result Then
TextBox3 = result ' Sonuç zaten bir tam sayı ise yuvarlamaya gerek yok
Else
TextBox3 = Round(result - 0.5, 0) ' Virgülden sonraki kısmı 0 değilse yuvarla
End If
End Sub
RE: Textbox Yuvarlama - berduş - 20/03/2024
siz her koşulda yukarı mı yuvarlamak istiyorsunuz yoksa en yakın tam sayıya yuvarlamak mı?
RE: Textbox Yuvarlama - ali.70 - 20/03/2024
HER KOŞULDA YUKARI YUVARLAMAK İSTİYORUM