Добрый день.
Подскажите пож. как можно заменить точку на запятую в переменной 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 |