أخي الكريم
تم عمل المطلوب من خلال الكود التالي
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Cell A1will be the register that counts the changes
N = [b1].Value
'Cell "b1" is the one we're monitoring, here
If Target.Address = "$A$1" Then
N = N + 1
[b1].Value = N
End If
End Sub
و هو كود يتعمد على التغير في الخلية a1 و عند التغيير
يتم تغيير قيمة العداد N و الذي يساوي N+1
و قيمة العداد الجديدة تكتب في الخلية B1
أرجو أن يكون الشرح واضحا