Запрет ввода букв

[Евгений Уральский]

Уважаемые знатоки макросов!
Можно ли создать макрос, запрещающий ввод в ячейку (ячейки) буквенных значений? И если да, как он примерно должен выглядеть?

[kim2]

Макросом можно сделать почти все, только здесь можно обойтись стандартной проверкой данных. Выбрать тип данных "Действительное"

[Евгений Уральский]

Ну а вот если проверкой не пользоваться? Если именно макрос интересует?

[VictorM]

Смотрите: Как запретить ввод данных не являющихся цифрами ?

[Евгений Уральский]

У меня такая вот получается фиговина, но не могу найти где напортачил, поскольку не на все ячейки распространяется:
Private Sub Worksheet_Change(ByVal Target As Range) 'Ïðîöåäóðà çàïðåòà ââîäà ñèìâîëîâ
If (Target.Rows.Count = 1) And (Target.Columns.Count = 1) Then
If (Target.Row) And (Target.Column) Then
Application.EnableEvents = False
If IsNumeric(Target.Value) <> True Then 'Åñëè ÿ÷åéêà íå öèôðà òî...
TolkoTzifra = MsgBox("Ââîäèòå òîëüêî öèôðû", vbOKOnly + vbCritical, "Îøèáêà") 'Ìåñàäæ áîêñ...
Cells(Target.Row, Target.Column).Select 'ïîñëå çàêðûòèÿ ìåñàäæáîêñ âûäåëåíèå ñòàðîé ÿ÷åéêè
Selection.ClearContents 'î÷èñòêà çíà÷åíèÿ ñòàðîé ÿ÷åéêè
Selection.NumberFormat = "0.0" 'óñòàíîâêà ôîðìàòà ÿ÷åéêè
Else:
Cells(Target.Row, Target.Column + 1).Select 'èíà÷å ïåðåõîä íà ñëåäóùóþ ïî ñòðî÷êå ÿ÷åéêó
End If
Application.EnableEvents = True
End If
End If
End Sub

[Евгений Уральский]

Уважаемый Виктор, не работают почему-то те макросы, что там написаны ((

[Евгений Уральский]

В общем, в итоге сделал и все пошло на ура:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Rows.Count = 1) And (Target.Columns.Count = 1) Then
Application.EnableEvents = False
If IsNumeric(Target.Value) <> True Then
TolkoTzifra = MsgBox("Вводите только цифры", vbOKOnly + vbCritical, "Ошибка")
Cells(Target.Row, Target.Column).Select
Selection.ClearContents
Selection.NumberFormat = "0.0"
Else:
Cells(Target.Row, Target.Column + 1).Select
End If
Application.EnableEvents = True
End If
End Sub

Извините, что занял Ваше время

[VictorM]

не работают почему-то те макросы, что там написаны

Простите, невнимательно прочитал Ваш вопрос.
Те коды применяются для текстбоксов форм (кстати, отлично работают), хотя подход и принцип похож

[IgorGO]

макрос я бы написал такой:

Private Sub Worksheet_Change(ByVal Target As Range)
  For Each cl In Target.Cells
    If WorksheetFunction.IsText(cl) Then cl.ClearContents
  Next
End Sub

во вложенном файле проверка данных стандартными средствами (той же функцией ЕТЕКСТ())

[Евгений Уральский]

Минимум текста - максимум отдачи!!!! Великолепное решение!! )