وعليكم السلام ورحمه الله وبركاته
تفضل معادلة اخري
=IF(YEAR($D2)>1999,"3","2")&TEXT($D2,"YY")&IF(MONTH($D2)<10,"0"&MONTH($D2),MONTH($D2))&IF(DAY($D2)<10,"0"&DAY($D2),DAY($D2))&$C2
وعليكم السلام ورحمه الله وبركاته
تفضل معادلة اخري
=IF(YEAR($D2>1999),"3","2")&TEXT($D2,"YY")&IF(MONTH($D2)<10,"0"&MONTH($D2),MONTH($D2))&IF(DAY($D2)<10,"0"&DAY($D2),DAY($D2))&$C2
وعليكم السلام ورحمه الله وبركاته
تفضل وقم بالضغط علي زر جلب البيانات
شروط واجب توافرها
1- قمت باضافة شيت اسمه فنكشن لا تقم بمسحه
2- يجب تعريف جميع التواريخ الخاصة بالوجبات في " جدول المتغيرات الاساسية " اي لا يكون هناك تواريخ غير موجودة مثل شهر واحد الخلاصة وفر جميع البيانات هذا الامر غاية في الاهمية
ارجو ان اكون قد وفقت في المطلوب
تحياتي
TEST MEALS.xlsm
بالطبع وذلك عن طريق تطبيق التنسيق الشرطي في كلا العموديين
،تفضل
القيمة الملونة بللاخضر هي الموجودة في كلا العمودين والغير مظللة البيضاء غير موجود في كلا العمودين
المعادلة المستخدمة في التنسيق الشرطي هي
=COUNTIF($F:$F,"*"&$D1)>=1
OMAR.xlsx
=COUNTIF(F:F,"*"&D1)
المعادلة تقوم بالبحث عن الجزء الاول من رقم الشاص في العمود
F
في حالة وجوده تعطي عدد تكراره وفي خالة عدم وجوده تعطي صفر
ثم يمكنك استخدام التنسيق الشرطي لتمييز لون رقم الشاص الموجود
في اي عمود تختاره وذلك عن طريق تظليل العمود ووضع المعادلة التاليةلتمييز الموجود باللون الاخضر واختيار اللون الاخضر
=$c1>=1
وعليكم السلام
تفضل
Sub delete_redcells()
With ActiveSheet
If .AutoFilterMode Then
.AutoFilterMode = False
End If
End With
Range("A1").Select
Selection.CurrentRegion.Select
Selection.AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor
Range("a1").CurrentRegion.Select
Selection.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
With ActiveSheet
If .AutoFilterMode Then
.AutoFilterMode = False
End If
End With
End Sub