تغير لون الخليه التي عليها مؤشر الماوس مع بقاء الالوان الاساسية

[كرار خالد]

بعد التحية والسلام الى الاساتذه الاعلام ارجو المساعده في هذه الملف حيث تتغير لون الخليه اينما ذهبت مع بقاء الالوان الافتراضية او الاساسية 

كنترول صف خامس.xlsm

تم تعديل نوفمبر 1, 2019 بواسطه كرار خالد

[الـعيدروس]

السلام عليكم

شاهد المرفق احد اكواد الاستاذ الخالدي حفظه الله ورعاه

كنترول صف خامس.xlsm

[الـعيدروس]

السلام عليكم

الخلايا التي بها الوان متدرجه لايجدي الكود معها

لاكن بخصوص اختلاف ارجاع الالوان كما سابقتها

بالامكان تصحيحه بالتعديل على الكود ليصبح كالتالي

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
MyColor = 6
If Not IsError(Sh.[N_Color_Rng]) Then
If Not IsError(Sh.[N_Color_Color]) Then
If Not IsError(Sh.[N_Color_Old]) Then
If Sh.[N_Color_Rng].Interior.ColorIndex = Sh.[N_Color_Old] Then
Dim R, G, B
R = Ref_Ali(Sh.Names("N_Color_Color").RefersToR1C1, 1)
G = Ref_Ali(Sh.Names("N_Color_Color").RefersToR1C1, 2)
B = Ref_Ali(Sh.Names("N_Color_Color").RefersToR1C1, 3)
Sh.[N_Color_Rng].Interior.Color = RGB(R, G, B)
End If
End If
End If
End If
Sh.Names.Add "N_Color_Rng", ActiveCell
Sh.Names.Add "N_Color_Color", G_Colr(ActiveCell)
Sh.Names.Add "N_Color_Old", MyColor
ActiveCell.Interior.ColorIndex = MyColor
End Sub
Function Ref_Ali(a, Inx)
Select Case Inx
       Case 1
        aa = Mid(a, InStr(1, a, "(") + 1, InStr(InStr(1, a, "("), a, ",") - InStr(1, a, "(") - 1)
       Case 2
        aa = Split(a, ",")(1)
       Case 3
        aa = Mid(Trim(Split(a, ",")(2)), 1, InStr(1, Trim(Split(a, ",")(2)), ")") - 1)
End Select
Ref_Ali = aa
End Function
Function G_Colr(Rng As Range)
Dim HEX_A As String
Dim Ali_R As String
HEX_A = Right("000000" & Hex(Rng.Interior.Color), 6)
Ali_R = "RGB (" & CInt("&H" & Right(HEX_A, 2)) & ", " & CInt("&H" & Mid(HEX_A, 3, 2)) & ", " & CInt("&H" & Left(HEX_A, 2)) & ")"
G_Colr = Ali_R
End Function

 

[الـعيدروس]

الخلايا ذات الالوان المتدرجه لم تعمل مع الكود

فهمتني اما الخلايا التي بها لون عادي بتعمل بكفاءه

لي محاولات بالتعديل على الكود اذا نجحت سأرفقها

[كرار خالد]

ان شاء الله اسف جدا لم انتبه لقد فهمت حضرتك جزاك الله خيرا استاذي الفاضل