البحث في الموقع
Showing results for tags 'ترتيب كود وتعديله'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته اتمني من خبراء الاكسل مساعدتي في تصحيح هذا الكود حيث انه يعمل جيدا ولكن الرساله تطهر مرتين ورا بعض MsgBox "هذه الرساله عند تشغيل الكود تظهر مرتين ورا بعض اريدها تظهر مره واحده فقط" Private Sub A5_Change() Dim ws As Worksheet Set ws = Worksheets("Archives_Bill") If ComboBox2.Text = "" Then MsgBox ("ÇáÑÌÇÁ ÇÎÊíÇÑ ÇÓã ÇáÚãíá") A5.Text = "" Else With Me If Me.A5.Text > Me.A1.Text = True Then MsgBox "هذه الرساله عند تشغيل الكود تظهر مرتين ورا بعض اريدها تظهر مره واحده فقط" A5.Text = "" Else End If: End With If ComboBox2.Text = "ÈÇáßÑÊæäÉ" Or ComboBox2.Text = "ÈÇáÚáÈÉ" Or ComboBox2.Text = "ÈÇáÚÈæÉ" = True Then ws.Cells(3, 2).Value = "" ws.Cells(3, 1).Value = Me.A5.Value Else If ComboBox2.Text = "ÈÇáÞØÚÉ" Or ComboBox2.Text = "ÈÇáãÊÑ" Or ComboBox2.Text = "ÈÇáßíáæ" Or ComboBox2.Text = "ÈÇáÚÏÏ" = True Then ws.Cells(3, 1).Value = "" ws.Cells(3, 2).Value = Me.A5.Value End If End If End If End Sub
