كود لاظهار رسالة عند الكتابة فى مدى معين من الخلايا

[قنديل الصياد]

الكود المستخدم يوضع فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A1:d10")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Display a message when one of the designated cells has been
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed.قنديل الصياد"
       
    End If
End Sub

مرفق ملف به التطبيق

 

Book1.rar

[عبد الرحمن شفيق]

جزاك الله خيرا

[احمد زعل]

جزاك الله خيرا

[حسام مصطفي]

جزاك الله خيرا