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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д