Запрет вставки нечисловых значений в ячейку Excel из буфера обмена

Posted by obzor under VBA

На листе excel 2003 для ячейки A1 назначена проверка ввода только числовых значений (через данные — проверка — другой — =ечисло(A1)). Но проверка работает только при вводе значения в ячейку с клавиатуры, но если вставить из буфера обмена, то не работает.
Подскажите пожалуйста как можно запретить вставку в ячейку скопированного значения из буфера обмена?

Казанский

Пробуйте, в случае ввода нечислового значения код вернет прежнее значение.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
    If VarType(Range("A1").Value2) <> vbDouble Then
      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True
      MsgBox "Можно вводить только числа"
    End If
  End If
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel