logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بليغ البتول ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby تجميع بيانات من عدة ملفات اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





  • غير مجابة
29-03-2021 04:21 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس :
تاريخ الميلاد : 23-12-1970
قوة السمعة : 111
الاعجاب : 1

السلام عليكم


عندي في شيت data2 أريد إعفاء أساتذة مادة معينة يوم إمتحان تلك المادة و الكود المستعمل للأستاذ salim تحياتي الخالصة له يقوم بهذا العمل و لكن لا يعمل في حالة تكرار نفس المادة مرتين أو ثلاثة في الاسبوع (يعفي الاستاذ الامتحان الاول فقط )


اريد التعديل إن أمكن .... وهذا هو كود الأستاذ سليم المستخدم


CODE
Option Explicit
Sub colorize_table()
Application.ScreenUpdating = False
Dim Find_Rg As Range, r%, i%
Dim serch_range As Range
Set serch_range = Sheets("ÇáãÚØíÇÊ").Range("R3:U12")
Dim start_rg As Range
Dim last_ro%: last_ro = Sheets("data2").Cells(Rows.Count, 2).End(3).Row
 Dim k%
  For k = 9 To 18 Step 2
  Cells(6, k).Resize(last_ro - 4).Interior.ColorIndex = 35
  Cells(6, k + 1).Resize(last_ro - 4).Interior.ColorIndex = 24

  Next
i = 7
Do Until Sheets("data2").Range("c" & i) = vbNullString
 Set start_rg = Sheets("data2").Range("H" & i)
  Set Find_Rg = serch_range.Find(Sheets("data2").Range("c" & i))
    If Not Find_Rg Is Nothing Then
   r = Find_Rg.Row - 2
     Else: GoTo Next_i
     End If
 start_rg.Offset(, r).Interior.ColorIndex = 25
Next_i:
 i = i + 1
Loop
Application.ScreenUpdating = True

End Sub

 
 
  My_File.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(158.121) KB





اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column YasserKhalil
11 2694 YasserKhalil
شرح كيفية تلوين خلفية متعدد الصفحات MultiPageوربط ليبل بخلية معينة مجدى يونس
1 149 مجدى يونس
البحث فى خلية مع التلوين ashraf_hertlion
3 1230 YasserKhalil
طلب تعديل كود تلوين الخلية النشطة في جدول متغير النطاق ahmed.eg
1 875 ahmed.eg
تلوين نتائج البحث بدون أكواد Color Search Results No Code YasserKhalil
9 2031 hassona229

الكلمات الدلالية
تلوين ، بشرط ، خلايا ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 01:04 AM