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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





مساعدة في تلوين خلايا بناء على اكثر من شرط

السلام عليكم لقد قمت بتصميم كود بواسطة حلقة تكراررية اذاكان التاريخ في العمود e اقل من تاريخ العمود d يتم تلوين با ..



21-03-2020 07:57 مساء
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام عليكم 
لقد قمت بتصميم كود بواسطة حلقة تكراررية  اذاكان التاريخ في العمود  e  اقل من تاريخ العمود d  يتم تلوين  بالاحمر للعمود d   وهذا يعمل جيدا  اما  اذا كان تاريخ العمود f  = تاريخ العمود d+69يوم  يتم تلوينها  بالاصفر  المشكلة يطبق  فقط من الصف  10   ويتجاهل الصفوف بداية من 1    ام اذا كان العمود 2020/ g=< 30/03 يتم تلوينها  بالاخضر   يقوم بتلوين البعض  كما يقوم  بتلوين اكبر من هذا  التاريخ   اتمنى المساعدة في فهم المشكلة 


Sub ss()
Dim lr, j As Integer

lr = Range("d" & Rows.Count).End(xlUp).Row
For j = 1 To lr
If Cells(j, 5) < Cells(j, 4) Then
Cells(j, 5).Interior.Color = vbRed
ElseIf Cells(j, 6) = Date + 69 Then
Cells(j, 6).Interior.Color = vbYellow
ElseIf Cells(j, 7) <= "2020 / 03 / 30" Then
Cells(j, 7).Interior.Color = vbGreen
End If

Next j
End Sub


 
 
 
  تلوين تواريخ‬.xls   تحميل xls مرات التحميل :(7)
الحجم :(36.864) KB


22-03-2020 09:25 صباحا
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مساعدة في تلوين خلايا بناء على اكثر من شرط
جرب هذا الماكرو

Sub sas()
Dim lr%, j%, n%
Range("D1").CurrentRegion.Interior.ColorIndex = xlNone
lr = Range("D1").CurrentRegion.Rows.Count
For j = 1 To lr
    Select Case Cells(j, 5)
      Case Is < Cells(j, 4): n = 3
      Case Else: n = xlNone
    End Select
    Cells(j, 5).Interior.ColorIndex = n
 
    Select Case Cells(j, 6)
      Case Is = Date + 69: n = 6
      Case Else: n = xlNone
    End Select
    Cells(j, 6).Interior.ColorIndex = n

    Select Case Cells(j, 7)
      Case Is <= "2020/03/30": n = 4
      Case Else: n = xlNone
    End Select
    Cells(j, 7).Interior.ColorIndex = n
Next j
End Sub



 

22-03-2020 11:21 صباحا
مشاهدة مشاركة منفردة [2]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مساعدة في تلوين خلايا بناء على اكثر من شرط
شكر اخي  سليم  ولكن اعتقد يوجد خلل في  العمود G حيث حددنا  الشرط  بان يكون يساوي  او اقل من تاريخ 30/3/2020  ولكن  الذي  حدث  قام بتلوين ايضا  اكبر من هذا  التاريخ  وتجاهل بعض  التواريخ التي  هي اقل من 30/03/2020   كما   اريد   باضافة سطر للكود  يقوم بتلوين تواريخ الشهر الحالي باللون الازرق  كل تواريخ شهر مارس  قمت باضافة هذا  السطر  ولكن اصبح الكود  لايعمل 

  Select Case Month(CDate(Cells(i, 7))) = Month(Date)
     Case Is = Month(Date) n:=2
    Case Else: n 2= xlNone
End Select

22-03-2020 01:04 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مساعدة في تلوين خلايا بناء على اكثر من شرط
انت لم تذكر تاريخ اليوم بل ذكرت تاريخ 20/3/2020
التصحيح

Sub sas()
Dim lr%, j%, n%
Range("D1").CurrentRegion.Interior.ColorIndex = xlNone
lr = Range("D1").CurrentRegion.Rows.Count
For j = 1 To lr
    Select Case Cells(j, 5)
      Case Is < Cells(j, 4): n = 3
      Case Else: n = xlNone
    End Select
    Cells(j, 5).Interior.ColorIndex = n
 
    Select Case Cells(j, 6)
      Case Is = Date + 69: n = 6
      Case Else: n = xlNone
    End Select
    Cells(j, 6).Interior.ColorIndex = n

    Select Case Cells(j, 7)
      Case Is = vbNullString: n = xlNone
      Case Is <= Date: n = 4
      Case Else: n = xlNone
    End Select
    Cells(j, 7).Interior.ColorIndex = n
Next j
End Sub

22-03-2020 01:39 مساء
مشاهدة مشاركة منفردة [4]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مساعدة في تلوين خلايا بناء على اكثر من شرط
شكرا  استاد سليم هذا  المطلوب 

22-03-2020 01:40 مساء
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مساعدة في تلوين خلايا بناء على اكثر من شرط
زيادة في الايضاح هذا الملف
الكود

Sub sas()
Dim lr%, j%, n%
Range("D1").CurrentRegion.Interior.ColorIndex = xlNone
lr = Range("D1").CurrentRegion.Rows.Count
For j = 1 To lr
    Select Case Cells(j, 5)
      Case Is < Cells(j, 4): n = 3
      Case Else: n = xlNone
    End Select
    Cells(j, 5).Interior.ColorIndex = n
 
    Select Case Cells(j, 6)
      Case Is = Date + 69: n = 6
      Case Else: n = xlNone
    End Select
    Cells(j, 6).Interior.ColorIndex = n

    Select Case Cells(j, 7)
      Case Is = vbNullString: n = xlNone
      Case Is <= Date: n = 4
      Case Else: n = xlNone
    End Select
    Cells(j, 7).Interior.ColorIndex = n
Next j
 For j = 1 To lr
 If Cells(j, 7) = vbNullString Or Cells(j, 7) = Date _
  Then GoTo NexT_j
    Select Case Month(Cells(j, 7))
     Case Is = Month(Date), Cells(j, 7) <> Date: n = 7
     Case Is < Month(Date): n = 37
    Case Is > Month(Date): n = 40
    End Select
    Cells(j, 7).Interior.ColorIndex = n
NexT_j:
 Next
End Sub

المف مرفق
 
 
 
  Talween_Date.xls   تحميل xls مرات التحميل :(8)
الحجم :(80.896) KB


22-03-2020 08:13 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مساعدة في تلوين خلايا بناء على اكثر من شرط
كفيت ووفيت استاد سليم بارك الله فيك على مجهودك الطيب 




الكلمات الدلالية
مساعدة ، تلوين ، خلايا ، بناء ، اكثر ،


 










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

الساعة الآن 06:47 مساء