Как отсекать ввод не цифр

[po4esal]

Доброго дня! Ни разу не программист, но была необходимость сделать макрос. Его суть: на листе есть ячейки, в который пользователь может занести цифру, которая будет номером строки во вспомогательном листе. Введется формула "='лист такой-то'! B 'номер строки' . Каким образом отсекать ввод не цифр (например если нажать DEL будет ошибка).

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zn As Integer

If Intersect(Target, Range("C13:C24,S13:S24,F5:Q5,F26:Q26")) Is Nothing Then Exit Sub
Application.EnableEvents = False
zn = Target.Value
Target.Formula = "=К!B" & zn & ""
Application.EnableEvents = True

End Sub

[AleksandrH]

курсор в нужную ячейку и Данные-Работа с данными-Проверка данных - параметры - Типданных:целое. Значение:больше.Минимум:0. - ОК

[IgorGO]

я бы Вам, как "Ни разу не программисту" посоветовал бы воспользоваться стандартными средствами Excel для проверки данных.

[po4esal]

Сделал проверку как вы посоветовали. После первого же неверного ввода макрос перестает работать.

[AleksandrH]

Нагло стырил регексп с соседней темы

Function yy(t1$)
  With CreateObject("vbscript.regexp"): .Global = True
      .Pattern = "\d+"
    If .test(t1) Then yy = .Execute(t1)(0).Value Else yy = ""
  End With
End Function


Private Sub Worksheet_Change(ByVal Target As Range)
Dim zn As Integer, y_y

If Intersect(Target, Range("C13:C24,S13:S24,F5:Q5,F26:Q26")) Is Nothing Then Exit Sub
'Application.EnableEvents = False
If Target.HasFormula Then
    Exit Sub
Else
y_y = yy(Target.Value)
zn = IIf(y_y = "", 1, y_y)
Target.Formula = "=K!B" & zn & ""
'Application.EnableEvents = True
End If
End Sub

[IgorGO]

zn = int(val(Target.Value)):  if zn < 1 then exit sub
Application.EnableEvents = False
Target.Formula = "=К!B" & zn & ""
Application.EnableEvents = True

[po4esal]

Заработало когда еще добавил On Error Resume Next
Может кому пригодится полный код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zn As Integer

If Intersect(Target, Range("C13:C24,S13:S24,F5:Q5,F26:Q26")) Is Nothing Then Exit Sub
    On Error Resume Next

zn = Int(Val(Target.Value)):  If zn < 1 Then Exit Sub
Application.EnableEvents = False
Target.Formula = "=К!B" & zn & ""
Application.EnableEvents = True

End Sub

Спасибо за подсказку, хотя не понимаю что делает int(val(Target.Value))

[IgorGO]

проверку значения через проверку данных нужно вообще убрать
int(val(Target.Value))
выделяет целую часть от значения из Target, если там не число вернет 0 и не станет ничего делать дальше

сюда ведь нужно число >=1
Target.Formula = "=К!B" & zn & ""
и можно упростить до
Target.Formula = "=К!B" & zn
добавлять пустую строку в конце нет ни какого смысла

[staniiislav]

Вот еще вариант

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zn As String
If Intersect(Target, Range("C13:C24,S13:S24,F5:Q5,F26:Q26")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    zn = Target.Value
If Not IsNumeric(zn) Or zn = "Empty" Then Target.ClearContents: Application.EnableEvents = True: Exit Sub
    Target.Formula = "=К!B" & zn & ""
    Application.EnableEvents = True
End Sub

[IgorGO]

очередной пример точно сформулированной задачи:
тема:

как отсечь ввод не цифр

а на самом деле нужно проверить что в ячейке число >= 1 и <= Количества_строк_на_листе

допустим,
введено 0 (ноль)
это цифра? (бросьте в меня камень, если нет)
а в ячейке получите #ИМЯ?