أكاديمية الصقر للتدريب

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


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





تلوين خلايا بشرط

السلام عليكم عندي في شيت data2 أريد إعفاء أساتذة مادة معينة يوم إمتحان تلك المادة و الكود المستعمل للأستاذ salim تحيات ..



29-03-2021 04:21 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم 

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

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

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





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


 










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

الساعة الآن 07:14 صباحا