كرار خالد قام بنشر نوفمبر 1, 2019 مشاركة قام بنشر نوفمبر 1, 2019 (معدل) بعد التحية والسلام الى الاساتذه الاعلام ارجو المساعده في هذه الملف حيث تتغير لون الخليه اينما ذهبت مع بقاء الالوان الافتراضية او الاساسية كنترول صف خامس.xlsm تم تعديل نوفمبر 1, 2019 بواسطه كرار خالد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 1, 2019 مشاركة قام بنشر نوفمبر 1, 2019 السلام عليكم شاهد المرفق احد اكواد الاستاذ الخالدي حفظه الله ورعاه كنترول صف خامس.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة الـعيدروس قام بنشر نوفمبر 1, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 1, 2019 السلام عليكم الخلايا التي بها الوان متدرجه لايجدي الكود معها لاكن بخصوص اختلاف ارجاع الالوان كما سابقتها بالامكان تصحيحه بالتعديل على الكود ليصبح كالتالي 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 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 2, 2019 مشاركة قام بنشر نوفمبر 2, 2019 الخلايا ذات الالوان المتدرجه لم تعمل مع الكود فهمتني اما الخلايا التي بها لون عادي بتعمل بكفاءه لي محاولات بالتعديل على الكود اذا نجحت سأرفقها 1 رابط هذا التعليق شارك More sharing options...
كرار خالد قام بنشر نوفمبر 2, 2019 الكاتب مشاركة قام بنشر نوفمبر 2, 2019 ان شاء الله اسف جدا لم انتبه لقد فهمت حضرتك جزاك الله خيرا استاذي الفاضل رابط هذا التعليق شارك 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.