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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





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

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



21-03-2020 07:57 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 249
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
قوة السمعة : 193
الاعجاب : 11
 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 مرات التحميل :(6)
الحجم :(36.864) KB





22-03-2020 09:25 صباحا
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3850
الاعجاب : 82
 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



 

أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، عبدالله فتحى،



22-03-2020 11:21 صباحا
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 249
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
قوة السمعة : 193
الاعجاب : 11
 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
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3850
الاعجاب : 82
 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

أثارت هذه المشاركة إعجاب: أحمد يوسف، ali mohamed ali، المبتدأ، عبدالله فتحى،



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




22-03-2020 01:40 مساء
مشاهدة مشاركة منفردة [5]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3850
الاعجاب : 82
 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 مرات التحميل :(7)
الحجم :(80.896) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، المبتدأ، عبدالله فتحى،



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

أثارت هذه المشاركة إعجاب: YasserKhalil، عبدالله فتحى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تلوين الخلية بالتنسيق الشرطي ابو طيبه
10 255 ابو طيبه
معادلةتنسيق وتلوين شرطى لملف توزيع ميراث حسن الحياني
2 244 حسن الحياني
تلوين عدد معين من احرف داخل كلمة احمد شريف
6 485 سعد عابد
تلوين اسماء الشيتات بضغطة واحدة لاى عدد من الشيتات مجدى يونس
5 518 مجدى يونس
التنسيق الشرطي لتلوين صفوف تتوافق مع شروط محددة Conditional Formatting Tutorial YasserKhalil
3 257 YasserKhalil

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


 







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

الساعة الآن 10:23 مساء

أعلن هنا
أعلن هنا
أعلن هنا