(تمت الاجابة)كيفية تغيير لون الخلية عند كتابة رقم معين(سوال)

[mousaali]

مثلا عندما نكتب 1 يتغير لون الخلية الى اصفر و عندما نكتب 2 يتغير الون الى احمر

[الـعيدروس]

السلام عليكم

تفضل هذا الكود في حدث الصفحة

اعتباراً الخلية 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

[هشام شلبى]

السلام عليكم

=======

اليك شرح فيديو لما تريد

مع العلم بأم اوفس 2003 لا يقبل اكثر من 3 شروط إذا كنت تريد اكثر من 3 شروط فيمكن ذلك بالاكواد

hh1.rar

[جمال الفار]

تنفضل اخى وحاول

اول ان ترفق لنا ملف مثال ولو بسيط

وهناك صور توضح ما فعلت

التنسيق.rar

[الـعيدروس]

الاستاذ القدير هشام شلبي جزاك الله خير على الملف القيم

الاخ الفاضل وهذا كود اخر

ولاكن دون شروط

يعني كل ماتغير في خلية 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

[عبدالله المجرب]

ماشاء الله

حلول متنوعة وجميلة

بارك الله فيكم

[جمال الفار]

اخى هشام شلبى

واخى alidroos

حلولكم اروع

عذرا لقد رددت على الموضوع دون استاذنكم

لانى لم اراها برغم روعتها

استسمحكم عذرا

[الـعيدروس]

الاخ جمال الفار

لاعليك كلنا نستفيد من بعض

كثر الحلول ليس عيب وانما بناء معلومات

تحياتي

[الشهابي]

بارك الله فيكم إخواني

كلما دخلت موضوع وجدت فيه مبتغايا

والله هذا الموقع نهر لاينضب دائما أبداً إن شاء الله