MSGBOX при обновлении значения ячейки Excel - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! Возникла задача - выводить сообщение при вводе в заданный диапазон Excel "запрещенных" символов. Список этих символов должен редактироваться вручную (например, $,%,*). Подскажите, пожалуйста, как это можно сделать в VBA?

Решение задачи: «MSGBOX при обновлении значения ячейки Excel»

textual
Листинг программы
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Denied As String, CheckingRange As Range, j As Range
Denied = "\$\%\^\&\*"
Set CheckingRange = Range("B2:C10")

Set Target = Application.Intersect(Target, CheckingRange)
If Not Target Is Nothing Then
    For Each j In Target.Cells
      If j.Value Like "*[" + Denied + "]*" Then
        MsgBox "Ниииизя!"
        Exit For
      End If
    Next
End If

End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы