- Katılım
- 7 Ekim 2005
- Mesajlar
- 245
- Excel Vers. ve Dili
- Isyerinde Ingilizce_Win7 Evde Hollandaca_Win7
Selamlar
Arkadaslar Textbox7 de Noktadan sonra gelen rakami Textbox9 hesaplamiyor nerede hata yapiyorum ( ornek 1.15 olursa sorun yok fakat 0.80 olursa problem oluyor) bir fikir icin zamani olan varmi..?
Private Sub TextBox7_Change()
TextBox7.Text = Format(TextBox7.Text, "#.##;0,00")
TextBox9 = Val(TextBox7) * Val(TextBox8)
End Sub
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(".")
Case Else
End Select
End Sub
Private Sub TextBox8_Change()
TextBox9 = Val(TextBox7) * Val(TextBox8)
End Sub
Private Sub TextBox9_Change()
TextBox9.Text = Format(TextBox9.Text, "#.##;0,00")
On Error Resume Next '
Dim i As Currency, e As Currency
i = TextBox7
e = TextBox8
TextBox9 = i * e
End Sub
Arkadaslar Textbox7 de Noktadan sonra gelen rakami Textbox9 hesaplamiyor nerede hata yapiyorum ( ornek 1.15 olursa sorun yok fakat 0.80 olursa problem oluyor) bir fikir icin zamani olan varmi..?
Private Sub TextBox7_Change()
TextBox7.Text = Format(TextBox7.Text, "#.##;0,00")
TextBox9 = Val(TextBox7) * Val(TextBox8)
End Sub
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(".")
Case Else
End Select
End Sub
Private Sub TextBox8_Change()
TextBox9 = Val(TextBox7) * Val(TextBox8)
End Sub
Private Sub TextBox9_Change()
TextBox9.Text = Format(TextBox9.Text, "#.##;0,00")
On Error Resume Next '
Dim i As Currency, e As Currency
i = TextBox7
e = TextBox8
TextBox9 = i * e
End Sub