как ограничить возможность ввода формата в ячейках?

[Ivo4ka]

чего)) ну правда может мне кто-нить объяснить почему это так?)) я уже свой мозг (точнее ниточку между ушами)))) перегрела в попытках понять почему так)) (а я ваще-то математег(или была раньше), только такой, горе от ума, решающий простые задачи самым сложным путем)))

[SAS888]

Действительные - значит настоящие, конкретные, точные. В отличии от мнимых (комплексных) и иррациональных (неконкретных).

[Ivo4ka]

ладно сдаюсь в попытке представить иррациональное число)))
все в принципе работает - НО, в эту таблицу люди часто копируют значения из других файлов. а при копировании запрет на ввод всего кроме целых чисел не работает(( можно и при копировании это как-то запретить?)
ЗЫ спасибо, о великие умы)))

[SAS888]

Можно поступить иначе. Например, пусть в ячейку "A1" нужно разрешить ввод только целых чисел. Тогда, вставив в модуль нужного листа следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vRange As Range
    Set vRange = Range("A1")
    If Not Intersect(Target, vRange) Is Nothing Then
        If Range("A1").Value <> Round(Range("A1").Value) Then MsgBox "Недопустимое значение"
    End If
End Sub

получим требуемый результат. Проверку данных в ячейке нужно убрать.
Здесь по событию изменения данных в контролируемой ячейке (или диапазоне) сравниваем исходное число с округленным этим же числом. Если они равны, значит введенное число целое, если нет - запрет ввода.
При этом нет зависимости от того, каким образом новые данные появились в ячейке. Условия допустимых значений и адреса ячеек можно устанавливать по Вашему требованию.

[Ivo4ka]

ой спасибо) буду пробовать ,если конечно модуль листа это то о чем я думаю) тогда еще вопрос как правильно перечислить ячейки? через запятую можно? или надо на каждую отдельно писать? и меня собственно не так сильно волнует целое число, как то чтобы в этих ячейках не было текста и чисел в формате текст.

[SAS888]

Тогда, наверное, Вам нужно так:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim vRange As Range
    
'задаем контролируемые ячейки

    Set vRange = Union(Range("A1"), Range("B2"), Range("C3"), Range("D4"))
    
    If Not Intersect(Target, vRange) Is Nothing Then

'проверяем число вячейке или нет

        If Not IsNumeric(Target) Or Application.IsText(Target) Then MsgBox "Недопустимое значение"
    End If
    
End Sub

Задаем ячейки (или диапазоны) с помощью оператора "Union", перечисляя через запятую. Проверяем, содержит ли ячейка число, с помощью оператора "IsNumeric" (если число). Проверяем, содержит ли ячейка текст, с помощью оператора "Application.IsText"
Если вставить этот код в модуль нужного листа, то процедура обработки будет запускаться по событию изменения данных в указанных ячейках.

[Ivo4ka]

спасибо) чайнику вроде все понятно) сегодня буду мучать)

[Ivo4ka]

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

[Ivo4ka]

и снова я и снова тут) ни у кого не появилось идей как можно поправить этот макрос?

[IgorGO]

А я учил, что действительные числа - это все рациональные и иррациональные. Еще их называют вещественными.
Правда, я учился в период развитого социализма, возможно, с тех времен все круто поменялось, но это уже не математика а философия...