Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(",") Then KeyAscii = Asc(".")
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(",") Then KeyAscii = Asc(".")
End Sub
Как изменить запятую на точку
Здравствуйте! У меня проблемка. Есть код, типа:
Form1.Text3.Text= Form1.Text1.Text+ Form1.Text2.Text
Form2.Text1.Text= Form1.Text3.Text
Начальные значения Form1.Text1.Text и Form1.Text2.Text вводятся с разделительной точкой, но если в результате сумма дробная, то в Form2.Text1.Text результат копируется с разделительной запятой, что влияет на дальнейшие вычисления.
Как сделать чтобы результат в Form2.Text1.Text отображался с разделительной точкой? Format этого не дает.
Спасибо.
Form1.Text3.Text= Form1.Text1.Text+ Form1.Text2.Text
Form2.Text1.Text= Form1.Text3.Text
Начальные значения Form1.Text1.Text и Form1.Text2.Text вводятся с разделительной точкой, но если в результате сумма дробная, то в Form2.Text1.Text результат копируется с разделительной запятой, что влияет на дальнейшие вычисления.
Как сделать чтобы результат в Form2.Text1.Text отображался с разделительной точкой? Format этого не дает.
Спасибо.
Попробуйте так
P.S. Правда, это для VBA, но может и в VB сработает
Код:
P.S. Правда, это для VBA, но может и в VB сработает