Страницы: 1
RSS
Замена точки на запятую в переменной
 
Добрый день.

Подскажите пож. как можно заменить точку на запятую в переменной 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
 
Replace
Согласие есть продукт при полном непротивлении сторон
 
Код
    If result <> "" Then
        result = Val(Replace(result, ",", ".")) ' вот это добавляем
        If Not IsNumeric(result) Then
 
Благодарю
Страницы: 1
Наверх