Автоматическое добавление запятой

[Nando]

Здравствуйте. Подскажите, как можно сделать чтобы двухзначное число в ячейке автоматически делилось запятой. К примеру если в ячейку ввести число 35 должно получится 3,5 и.т.д

[Watcher_1]

Так

Private Sub Worksheet_Change(ByVal Target As Range)
    myD = Target.Text
    If IsNumeric(myD) = True And Len(myD) = 2 Then
        Target.Value = CDbl(Left(myD, 1) & "," & Right(myD, 1))
    End If
End Sub

[Hugo121]

Можно без макросов.

[Nando]

Спасибо. И так и так работает.

[Nando]

А можно как то сделать чтобы при вводе одной цифры после нее автоматически добавлялись три нуля?

[Казанский]

Да, там же, число знаков после запятой -3

[Nando]

Так не получается, зато получилось по коду с поста №2,немного переделав.

Спасибо за ответы)

[Nando]

Сообщение от Watcher_1

Так

Private Sub Worksheet_Change(ByVal Target As Range)
    myD = Target.Text
    If IsNumeric(myD) = True And Len(myD) = 2 Then
        Target.Value = CDbl(Left(myD, 1) & "," & Right(myD, 1))
    End If
End Sub

А подскажите как в этот код добавить диапазон ячеек на которые он будет работать?