المطلوب كود بديلا عن المرفق بسبب البطئ

[sarab1618]

الملف المرفق يحوي على كود يقوم بكتابة كلمة معينة بدلالة لون خلية مقابلة ... ولكن هذا الكود يتم تطبيقه على قاعدة البيانات الاساسية بشكل بطيئ جدا ... فهل هناك كود افضل ... او على الاقل الاستعاضة عنه بمعادلة .... وشكرا

مثال مبسط.rar

[جلال محمد]

اخي الكريم 

جرب المرفق ... هل هذا ما تريد 

مثال مبسط.rar

[sarab1618]

السلام عليكم ... مشكور اخي جلال ...لكن المشكلة بقيت على حالها ... فلو قمت بتلوين العمود الاول باي لون .... فلن ينتهي الكود من العمل قبل عدة ايام ....وشكرا

[عبدالله باقشير]

السلام عليكم

كيف حالك اخي سارب

 

انا افضل ان تربط الكود بزر

افضل من الحدث Worksheet_SelectionChange

 

هذا تعديل للكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim j As Range, jj As Range, n As Long, MyColor

On Error Resume Next
n = 1
Do Until Cells(n, "a").Interior.ColorIndex = xlNone
    n = n + 1
Loop
For Each jj In Range("A1:A" & n)
    MyColor = jj.Interior.ColorIndex
    jj.Offset(0, 1) = WorksheetFunction.VLookup(MyColor, Sheets("الوان").Range("A1:B5"), 2, 0)
Next
End Sub

المرفق 2003

++مثال مبسط.rar

[sarab1618]

سلامي لجميع الاساتذة في المنتدى ... واخص بالذكر المعلم والاخ عبد الله باقشير ...

والمثال الأخير يحل مشكلة واجهتني ... مع الشكر