Ввод данных-только целые числа

[valerij]

Всем Привет!!!
Господа, подскажите.
Есть ряд диапазонов

(D3:E26, А6:А26, H14:I17 и L6:M21).Offset(iCount& * 28)

для ввода данных, данные - только целые числа.
Нужно исключить любые другие знаки, буквы, точки, запятые и т. д. только целые десятичные числа.
Спасибо.

[VictorM]

Данные-Проверка-Целое число
(2003)

[IgorGO]

необходимо установить проверку данных.

[valerij]

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

Данные-Проверка-Целое число
(2003)

А как быть с шагом, это замучаешься вводить.

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

необходимо установить проверку данных.

??????????

[VictorM]

А как быть с шагом, это замучаешься вводить.

Можно так наверное

Sub Макрос1()
    With Range("D3:E26, А6:А26, H14:I17, L6:M21").Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="1", Formula2:="100"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

2003, записано макрорекордером с небольшой правкой
===
подправил макрос
а для Offset(iCount& * 28)

в VBA (и не только) для этой цели придуманы циклы.

[IgorGO]

А как быть с шагом, это замучаешься вводить.

в VBA (и не только) для этой цели придуманы циклы.

[valerij]

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

2003, записано макрорекордером с небольшой правкой

Я естественно так делал....
Вот ~ как, здесь только числа и 8 штук, если < или не цифра, сбросит.
А как к диапазонам приспособить, уже ума не хватает, бо давно ....

Dim iTarget As Range, iCell As Range
    Set iTarget = Intersect(Target, [K34:K1569])
    If Not iTarget Is Nothing Then
       iTemplate$ = Application.Rept("[0-9]", 8)
       For Each iCell In iTarget
           If Not CStr(iCell.Value) Like iTemplate$ Then
           With Application
                .EnableEvents = False
                .Undo
                .EnableEvents = True
           End With: Exit For
           End If
       Next
     End If

[valerij]

Мужики, так поможете с макросом?

VictorM у тебя там ошибку вываливает на:
With Range("D3:E26, А6:А26, H14:I17, L6:M21").Validation

[RAN.]

Без доп проверок

Private Sub Worksheet_Change(ByVal Target As Range)
    If CLng(Target) <> CDbl(Target) Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

ps Ну и проверка диапазонов:

If Not Intersect(Target, [K34:K1569]) Is Nothing Then Exit Sub

[kuklp]

А нельзя введенные дробные округлять до целого?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [K34:K1569]) Is Nothing Then Exit Sub
    With Application
        .EnableEvents = False
        If IsNumeric(Target) Then
            Target = Target \ 1
        Else
            .Undo
        End If
        .EnableEvents = True
    End With
End Sub