mousaali قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 مثلا عندما نكتب 1 يتغير لون الخلية الى اصفر و عندما نكتب 2 يتغير الون الى احمر رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 السلام عليكم تفضل هذا الكود في حدث الصفحة اعتباراً الخلية A1 هيا التي تكتب فيها الارقام اكتب من 1 الى 6 ولاحظ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Module1.Color_ALI End Sub وهذا في مدويل Sub Color_ALI() Dim color As Long Select Case Range("A1") Case "1" color = &H80FFFF Case "2" color = &HFF& Case "3" color = &HFF80FF Case "4" color = &HFF00& Case "5" color = &HFFFF80 Case "6" color = &HFFC0C0 Case Else color = &H80000009 End Select Sheets("sheet1").Range("A1").Interior.color = color End Sub وهذا المرفق color_alidroos.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 السلام عليكم ======= اليك شرح فيديو لما تريد مع العلم بأم اوفس 2003 لا يقبل اكثر من 3 شروط إذا كنت تريد اكثر من 3 شروط فيمكن ذلك بالاكواد hh1.rar رابط هذا التعليق شارك More sharing options...
جمال الفار قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 تنفضل اخى وحاول اول ان ترفق لنا ملف مثال ولو بسيط وهناك صور توضح ما فعلت التنسيق.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 الاستاذ القدير هشام شلبي جزاك الله خير على الملف القيم الاخ الفاضل وهذا كود اخر ولاكن دون شروط يعني كل ماتغير في خلية A1 في كل تغير في الخلية يظهر لون مختلف Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Range("a1").Interior.ColorIndex = Int(Rnd * 56) + 1 End Sub وهذا مرفق color2.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 ماشاء الله حلول متنوعة وجميلة بارك الله فيكم رابط هذا التعليق شارك More sharing options...
جمال الفار قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 اخى هشام شلبى واخى alidroos حلولكم اروع عذرا لقد رددت على الموضوع دون استاذنكم لانى لم اراها برغم روعتها استسمحكم عذرا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 28, 2011 مشاركة قام بنشر أكتوبر 28, 2011 الاخ جمال الفار لاعليك كلنا نستفيد من بعض كثر الحلول ليس عيب وانما بناء معلومات تحياتي رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 29, 2011 مشاركة قام بنشر أكتوبر 29, 2011 بارك الله فيكم إخواني كلما دخلت موضوع وجدت فيه مبتغايا والله هذا الموقع نهر لاينضب دائما أبداً إن شاء الله رابط هذا التعليق شارك 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.