المتأمل الحسني قام بنشر يناير 7, 2016 مشاركة قام بنشر يناير 7, 2016 أرجو من الإخوة مساغدتي في منع كلمة معينة ضمن جملة في خلية وفق شروط في المحلق مع الشكر. Book1.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 7, 2016 مشاركة قام بنشر يناير 7, 2016 أخي الكريم المتأمل جرب الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 10 And Target.Row > 5 Then Application.ScreenUpdating = False Application.EnableEvents = False Dim Stock, Suggested With Target Stock = .Offset(, -5): Suggested = .Offset(, -3) If Stock = Suggested Then If InStr(.Value, "دفع") > 0 Then MsgBox "الرصيد يساوي المبلغ المقترح", 64: .ClearContents: .Activate If Stock <> Suggested Then If InStr(.Value, "سداد") > 0 Then MsgBox "يمنع كتابة كلمة سداد حيث أن الرصيد والمقترح غير متساوين", 64: .ClearContents: .Activate End With Application.ScreenUpdating = True Application.EnableEvents = True End If End Sub أرجو أن يكون المطلوب ويفي بالغرض تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
المتأمل الحسني قام بنشر يناير 9, 2016 الكاتب مشاركة قام بنشر يناير 9, 2016 شكر الله لك أخي ياسر ، و العفو على تأخر الرد لعدم توفر الوقت الكافي لتصفح الكود و تجريبه.. رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 9, 2016 مشاركة قام بنشر يناير 9, 2016 أخي الكريم المتأمل الحسني شكرتني ولك جزيل الشكر هل جربت الكود وأدى الغرض أم أن هناك لبس في الأمر؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.