Добрый день.
Подскажите пож. как можно заменить точку на запятую в переменной result в том случае если в InputBox указано
допустим 25.5 вместо 25,5?
Подскажите пож. как можно заменить точку на запятую в переменной result в том случае если в InputBox указано
допустим 25.5 вместо 25,5?
| Код |
|---|
Sub Ввод_количества()
Dim result
sc = Cells(1, 1).Value
result = InputBox("На какое кол-во расчитать?", "Вес в граммах", Format(sc, "#,##0.0"))
If result <> "" Then
If Not IsNumeric(result) Then
PushButton = MsgBox("Допускается ввод только чисел!", 48, "Color Mix Map")
Call Ввод_количества
Else
Cells(1, 1).Value = result
End If
End If
End Sub |
