Archer

معلش اللغة الغربية دى تجاهلها مش مهم دى رسالة انا عايز اعرف معنى الكود ده

السلام عليكم فى حد موجود اريد مساعدة ممكن حد يرد على ايه معنى الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Variant Dim dat As Variant On Error GoTo ExitPoint If Intersect(Target, Range("B5:E6,AL5:AO6")) Is Nothing Then Exit Sub Application.EnableEvents = False If Target.Cells.Count > 1 Then dat = Target For Each cl In dat If cl = "" Then Application.Undo MsgBox "ÍÐÝ ãÍÊæíÇÊ åÐå ÇáÎáÇíÇ ÞÏ íÄÏí áÊáÝ åÐÇ ÇáãáÝ " & vbCrLf & _ "íãßäß ÇáÊæÇÕá ãÚ ãÓÆæá ÇáÈÑäÇãÌ ÅÐÇ ÑÛÈÊ Ýì ÊÛíÑ ÇáÈíÇäÇÊ ÈåÐå ÇáÎáÇíÇ", _ vbMsgBoxRight + vbCritical, " ÊäÈíÜÜÜå ãåã " GoTo ExitPoint End If Next End If If Len(Trim(Target)) = 0 Then Application.Undo MsgBox "ÍÐÝ ãÍÊæíÇÊ åÐå ÇáÎáíÉ ÞÏ íÄÏí áÊáÝ åÐÇ ÇáãáÝ" & vbCrLf & _ "íãßäß ÇáÊæÇÕá ãÚ ãÓÆæá ÇáÈÑäÇãÌ ÅÐÇ ÑÛÈÊ Ýì ÊÛíÑ ÇáÈíÇäÇÊ ÈåÐå ÇáÎáíÉ", _ vbMsgBoxRight + vbCritical, " ÊäÈíÜÜÜå ãåã " End If ExitPoint: Application.EnableEvents = True End Sub Private Sub Worksheet_Activate() Call Replace_Two_Range End Sub