MS Excel. Маълум каттакка узгартириш киритганда макросни ишга тушириш коди.

Ушбу код маълум «лист» га богланган булади, яъни айни бир «лист» («sheet»)да ишлайди холос.

Код:

Private Sub Worksheet_Change(ByVal Target As Range)     Dim KeyCells As Range     ' Дейлик KeyCells уз ичига олган катакларни узгартирганда     ' бу хакда хабар берувчи ойна чиксин     Set KeyCells = Range("A1:C10")         If Not Application.Intersect(KeyCells, Range(Target.Address)) _            Is Nothing Then         ' Хабар ойнаси         ' Сизнинг кодингиз:         MsgBox "Cell " & Target.Address & " has changed."            End If End Sub

Манба: https://support.microsoft.com/ru-ru/help/213612/how-to-run-a-macro-when-certain-cells-change-in-excel

GIF Видео: Катталаштириб куриш