طالب مدرسة أوفيسنا قام بنشر فبراير 7, 2015 مشاركة قام بنشر فبراير 7, 2015 (معدل) السلام عليكم المطلوب تعديل هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A2").Value < Range("B2") Then Range("B2").ClearContents End If If Range("A3").Value < Range("B3") Then Range("B3").ClearContents End If End Sub طريقة عمله يقوم اذاكانت الخلية A اصغر من الخلية B يقوم بمسح الخليه B الكود يعمل بشكل جيد ولكن متعب وكبير لكل خليه IF شرطية بعمنى A2 بشرط و A3 بشرط اخر وكل ما زادات الخلايا زادت الشروط اريد منه جمعها بشرط واحد مع الشكر تم تعديل فبراير 7, 2015 بواسطه x8. رابط هذا التعليق شارك More sharing options...
أفضل إجابة بن علية حاجي قام بنشر فبراير 7, 2015 أفضل إجابة مشاركة قام بنشر فبراير 7, 2015 السلام عليكم ورحمة الله أخي الكريم، جرب الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) For I = 2 To 100 If Range("A" & I).Value < Range("B" & I) Then Range("B" & I).ClearContents End If Next End Sub أخوك بن علية 1 رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر فبراير 7, 2015 الكاتب مشاركة قام بنشر فبراير 7, 2015 استاذي العزيز بن علية الف شكر على سرعة الرد نعم هذا المطلوب والله يجزاك خير رابط هذا التعليق شارك 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.