Textbox Yuvarlama

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.......

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

AMA BAZEN SONUÇ DÜZ DE ÇIKABİLİYOR. YANİ DİREK 3 ÇIKABİLİYOR VERİYE GÖRE

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

siz her koşulda yukarı mı yuvarlamak istiyorsunuz yoksa en yakın tam sayıya yuvarlamak mı?

HER KOŞULDA YUKARI YUVARLAMAK İSTİYORUM