طالب مدرسة أوفيسنا قام بنشر مارس 15, 2010 مشاركة قام بنشر مارس 15, 2010 السلام عليكم اخوني الافاضل اواجه مشكله بسيطه في نسخ كود حيث اني اخذت الكود من احدى مشاركات الاساتذه بارك الله فيهم وزادهم من نعيمه المشكله يعمل الكود في المثال ولما اعمل نسغ ولصق في الملف الخاص بي لايعمل رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر مارس 15, 2010 الكاتب مشاركة قام بنشر مارس 15, 2010 (معدل) هذا الكود من عمل الاستاذ هشام شلبى Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Select Case Target Case 1 To 5 icolor = 6 Case 6 To 10 icolor = 12 Case 11 To 15 icolor = 7 Case 16 To 20 icolor = 53 Case 21 To 25 icolor = 15 Case 26 To 30 icolor = 42 Case Else 'Whatever End Select Target.Interior.ColorIndex = icolor End If End Sub تم تعديل مارس 15, 2010 بواسطه x8. رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر مارس 15, 2010 مشاركة قام بنشر مارس 15, 2010 (معدل) أرفق الملف الذي أضفت إليه هذا الكود لنرى ما الخلل فيه . تم تعديل مارس 15, 2010 بواسطه abusarah73 رابط هذا التعليق شارك More sharing options...
hmksalem قام بنشر مارس 15, 2010 مشاركة قام بنشر مارس 15, 2010 مساء الورد حمل الملف حتي أري المثال علي ملفك وأرجع اليك في الإنتظار رابط هذا التعليق شارك More sharing options...
طالب مدرسة أوفيسنا قام بنشر مارس 15, 2010 الكاتب مشاركة قام بنشر مارس 15, 2010 شكرا لكم ياشباب بعد عدة محاولات الحمد لله استطعت من تشغيله بشكل صحيح اكرر شكر رابط هذا التعليق شارك 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.