اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

قام بنشر

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

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

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

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information