Здравствуйте! Помогите чуть. Что-то не получается. 
Смысл такой. В столбце B:B (ну даже наверное нужно в B33:B500) Уже есть написанные "NG". Но дальше хочу, в случае набора в новых строках (в столбце "В33:В500") фразы "NG" что бы вылезало MsgBox сообщение. Сообщение вроде сделал, работает. А вот привязать MsgBox к тому, что бы при написании NG в ячейки, оно появлялось, не могу
Понимаю, это скорее всего легкотня. Но пол дня ищу в интернете, как правильно прописать. Заранее спасибо 
Мир вам всем
Смысл такой. В столбце B:B (ну даже наверное нужно в B33:B500) Уже есть написанные "NG". Но дальше хочу, в случае набора в новых строках (в столбце "В33:В500") фразы "NG" что бы вылезало MsgBox сообщение. Сообщение вроде сделал, работает. А вот привязать MsgBox к тому, что бы при написании NG в ячейки, оно появлялось, не могу
Понимаю, это скорее всего легкотня. Но пол дня ищу в интернете, как правильно прописать. Заранее спасибо Мир вам всем | Код |
|---|
Sub Ошибка()
If .Range("B9:B500") = "NG" Then MsgBox Space((10 - Len(msg) / 2)) & "$T@$on! КАКОЙ ШАВРИК? КАКОЙ ГАЗ? ТЫ ИДИОТ?" & Space((10 - Len(msg) / 2)) _
& Chr(13) & "" _
& Chr(13) & """ОСТАНОВИСЬ! ИНАЧЕ СЕР ГОН ТЕБЯ ЗАСТЫДИТ, И НАЙДЁТ ТО САМОЕ СООБЩЕНИЕ!""" _
& Chr(13) & "" _
& Chr(13) & vbCr & " Сегодня: " & Format(Date, "d mmmm yyyy") & " года;" & vbCr & " Сейчас: " & Time & " по МСК." _
& Chr(13) & "" _
& Chr(13) & vbCr & "ДЕРЖИСЬ И НЕ ЛЕЗЬ!!!!", vbOKCancel + 16, "ПРЕДУПРЕЖДЕНИЕ!"
End Sub |
Изменено: - 08.02.2024 16:51:49
