sarab1618 قام بنشر مارس 9, 2014 مشاركة قام بنشر مارس 9, 2014 الملف المرفق يحوي على كود يقوم بكتابة كلمة معينة بدلالة لون خلية مقابلة ... ولكن هذا الكود يتم تطبيقه على قاعدة البيانات الاساسية بشكل بطيئ جدا ... فهل هناك كود افضل ... او على الاقل الاستعاضة عنه بمعادلة .... وشكرا مثال مبسط.rar رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر مارس 9, 2014 مشاركة قام بنشر مارس 9, 2014 اخي الكريم جرب المرفق ... هل هذا ما تريد مثال مبسط.rar رابط هذا التعليق شارك More sharing options...
sarab1618 قام بنشر مارس 9, 2014 الكاتب مشاركة قام بنشر مارس 9, 2014 السلام عليكم ... مشكور اخي جلال ...لكن المشكلة بقيت على حالها ... فلو قمت بتلوين العمود الاول باي لون .... فلن ينتهي الكود من العمل قبل عدة ايام ....وشكرا رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 10, 2014 مشاركة قام بنشر مارس 10, 2014 السلام عليكم كيف حالك اخي سارب انا افضل ان تربط الكود بزر افضل من الحدث 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 3 رابط هذا التعليق شارك More sharing options...
sarab1618 قام بنشر مارس 10, 2014 الكاتب مشاركة قام بنشر مارس 10, 2014 سلامي لجميع الاساتذة في المنتدى ... واخص بالذكر المعلم والاخ عبد الله باقشير ... والمثال الأخير يحل مشكلة واجهتني ... مع الشكر رابط هذا التعليق شارك 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.