Вставка числа из формы в ячейку

[haros]

1. Как сделать чтобы из формы в ячейку при любом вводе:

а. 123,05

б. 123.05

в ячейку вставлялось именно число, а не текст??

2. как ограничить число вводимых символов после запятой(точки) до 2?

[EducatedFool]

Можно использовать примерно такой код для обработчика событий текстового поля:

Private Sub TextBox1_Change()
    Me.ДобавитьЧисло.Enabled = Me.TextBox1.Text <> "" ' делаем кнопку недоступной при пустом поле ввода
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    txt = Me.TextBox1    ' читаем текст из поля (для недопущения ввода двух и более запятых)
    If InStr(1, txt, ",") > 0 And Len(txt) - InStr(1, txt, ",") = 2 Then KeyAscii = 0  ' только 2 цифры после запятой
    Select Case KeyAscii
        Case 8:    ' нажат Backspace - ничего не делаем
        Case 44: KeyAscii = IIf(InStr(1, txt, ",") > 0, 0, 44)    ' если запятая уже есть - отменяем ввод символа
        Case 46: KeyAscii = IIf(InStr(1, txt, ",") > 0, 0, 44)    ' заменяем при вводе точку на запятую
        Case 48 To 57    ' если введена цифра  - ничего не делаем
        Case Else: KeyAscii = 0    ' иначе отменяем ввод символа
    End Select
End Sub

Private Sub ДобавитьЧисло_Click()
    ' пишем новое число в следующую пустую ячейку 1-го столбца
    Worksheets("База").Range("A65000").End(xlUp).Offset(1).Value = Replace(TextBox1.Text, ",", ".")
    Me.TextBox1.SetFocus
End Sub

Можно реализовать добавление числа по нажатию Enter.
Добавочный код будет приблизительно таким: (но кроме кода придётся ещё кое-что подправить)

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 And Me.TextBox1.Text <> "" Then ДобавитьЧисло_Click
End Sub

Пример во вложении:

[viter.alex]

Ограничить количество цифр после запятой можно функцией Round(<число>,<количество знаков после запятой>)

[haros]

спасибо, работает))) там будут еще вопросы, но позже))