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