أبوأحـمـد

شكرا على دعواتكم الفضل لله ثم ما تعلمته منكم تم بالفعل تعديل الملف كما اردت بالمشاركة الأولى

هذا بالمعادلات ولا أدري ان كان نفس المطلوب أم لا ؟ {=IFERROR(INDEX($A$2:$A$50;MATCH(0;COUNTIFS($A$2:$A$50;"<"&$A$2:$A$50)-SUM(COUNTIF($B$1:B1;$A$2:$A$50));0));"")} Book1 (1).xlsx

مميزات التقويم 1-هجري / ميلادي 2- يمكن البحث بالسنوات الهجرية ما بين 1318 و 1500 3- يوضح بالألوان فصول السنة 4-حسب تقويم أم القرى المعتمد من مدينة الملك عبدالعزيز للعلوم والتقنية 5-إمكانية إضافة المواعيد والمهام وتعديلها وحذفها 6-يوفر فرز للمواعيد والمهام القادمة والفائتة 7- يميز مواعيد والمهام المنفذة والفائتة 8- في التقويم يميز اليوم الموجود فيه موعد أو مهمة غير منفذة 9-يمكن تسجيل المواعيد والمهام بالتاريخ الهجري أو الميلادي تم تعديل الملف ليناسب الجميع التقويم.xlsx

تم حل المشكلة بهذه الطريقة شكرا للجميع =INDEX($H$3:$H$7;MATCH(TEXT(A3;"mm/dd");INDEX(TEXT($G$3:$G$7;"mm/dd");;);0);)

لاحظ أن الدالة التي وضعت تقارن باليوم والشهر والسنة =IFERROR(VLOOKUP(A3;$F$3:$H$7;2);"") المطلوب المقارنة بين اليوم والشهر فقط

السلام عليكم حاولت تنسق خلية مع دالة البحث VLOOKUP لتظهر النتيج رقم ولاكنها تظهر على شكل تاريخ =VLOOKUP(TEXT(A3;"mm/dd");INDEX(TEXT($F$3:$H$7;"mm/dd");;);2;TRUE) التفاصل بالمرفق تاريخ.xlsx

وعليكم السلام هذا الموضوع يمكن يفيدك

هذه المعادلة تعطي التاريخ ولكنه غير ثابت ( متغير كل يوم )

توصلت إلى هذه الصيغة لكن يعيبها تمكين الحساب التكراري التاريخ بالخلية E1 =IF(COUNTA(A1:D1)=1;NOW();IF(COUNTA(A1:D1)>1;E1;""))

السلام عليكم هل يوجد صيغة معية لادراج تاريخ ثابت في خلية تلقائيا بدون استخدام الأكواد البرمجية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Range("A" & Target.Row) = "" Then Range("A" & Target.Row) = Date End If End Sub وبدون استخدام اختصارات لوحة المفاتيح Ctrl+;‎ مثال : اقوم بالكتابة في خلايا صف واريد أن يضيف تلقائيا تاريخ تحرير السجل م | البيان | دائن | مدين | التاريخ | 1 | حوالة | 500 | |2018/02/18 |

إذا كان قصدك اقتطاع رقمين من الكسر العشري وإجراء عمليات عليها فيمكنك بعدة طرق منها =MID(A1;SEARCH(".";A1;1)+1;2) =INT(ROUNDUP(MOD(A1;1)*100;2)) =MID(A1-TRUNC(A1);3;2)

قصدك نجمع العدد الصحيح فقط مثلا 2+3+3=8 ياليت توضح ما تريد بأمثلة لحالات مختلفة

شكرا اخي سليم إضافة جميلة وذكية

هذا مثال للبحث بأكثر من معيار باستخدام الدالتين INDEX و MATCH لمن اراد الاستفادة منه ومن لديه طرق أخرى أرجو التكرم بوضعها لتعم الفائدة Lookup.xlsx

حل آخر =COUNTIFS($E$6:$AR$7;"<>م";$E$6:$AR$7;"<>غ";$E$6:$AR$7;"<>" & "")

لحذف الشكل الدائري والبيضاوي جرب Worksheets("Sheet1").Ovals.Delete استبدل Sheet1 باسم الصفحة

هناك عدة طرق ولكن اسرعها واسهلها غير الرقم 100 إلى 10 مثلا

او استخدم هذي =TRIM(RIGHT(B4;LEN(B4)-SEARCH(" ";B4))) دوال معالجة السلاسل النصية LEFT وMID وRIGHT وSEARCH وLEN

استخدم هذه الصيغة =TRIM(MID(B4;SEARCH(" ";B4);100))

السلام عليكم هذه بعض الملاحظات على الملف اولا : بعد تعديل شهر تاريخ النهاية حل الأخ سليم لا يعطي نتائج ثانيا: لماذا لا يتم استخدام دوال التاريخ حتى لا يتم احتساب أيام عطل الأسبوع واعطل الرسمية =NETWORKDAYS.INTL(C4;D3;7) =DAYS360(C4;D3) =NETWORKDAYS(C4;D3)

عدل هذا السطر إلى الرقم الذي تريد sh.Range("B5:O10000").ClearContents

قمت بتقسيم الصيغة الطويلة لتكون اوضح =OR( VALUE(MID( MID(TEXT(MID(C2;1;1)*2;"00");1;1)+MID(TEXT(MID(C2;1;1)*2;"00");2;1)+ MID(TEXT(MID(C2;3;1)*2;"00");1;1)+MID(TEXT(MID(C2;3;1)*2;"00");2;1)+ MID(TEXT(MID(C2;5;1)*2;"00");1;1)+MID(TEXT(MID(C2;5;1)*2;"00");2;1)+ MID(TEXT(MID(C2;7;1)*2;"00");1;1)+MID(TEXT(MID(C2;7;1)*2;"00");2;1)+ MID(TEXT(MID(C2;9;1)*2;"00");1;1)+MID(TEXT(MID(C2;9;1)*2;"00");2;1)+ MID(C2;2;1)+MID(C2;4;1)+MID(C2;6;1)+MID(C2;8;1);2;1)) = VALUE(MID(C2;10;1)) ; VALUE(MID(C2;10;1)) = 10-VALUE(MID( MID(TEXT(MID(C2;1;1)*2;"00");1;1)+MID(TEXT(MID(C2;1;1)*2;"00");2;1)+ MID(TEXT(MID(C2;3;1)*2;"00");1;1)+MID(TEXT(MID(C2;3;1)*2;"00");2;1)+ MID(TEXT(MID(C2;5;1)*2;"00");1;1)+MID(TEXT(MID(C2;5;1)*2;"00");2;1)+ MID(TEXT(MID(C2;7;1)*2;"00");1;1)+MID(TEXT(MID(C2;7;1)*2;"00");2;1)+ MID(TEXT(MID(C2;9;1)*2;"00");1;1)+MID(TEXT(MID(C2;9;1)*2;"00");2;1)+ MID(C2;2;1)+MID(C2;4;1)+MID(C2;6;1)+MID(C2;8;1);2;1)) )

هذه بالكود Private Function ID_Val(ByVal SEGEL_NO As String) As Boolean On Error Resume Next Dim i, TOT, ten As Integer Dim TEMP, FIN As String TOT = 0 For i = 1 To 9 If i Mod 2 <> 0 Then TEMP = (CInt(Mid(SEGEL_NO, i, 1)) * 2) If Len(TEMP) = 1 Then TEMP = "0" & (CInt(Mid(SEGEL_NO, i, 1)) * 2) Else TEMP = (CInt(Mid(SEGEL_NO, i, 1)) * 2) End If TOT = TOT + CInt(Mid(TEMP, 1, 1)) + CInt(Mid(TEMP, 2, 1)) Else TOT = TOT + CInt(Mid(SEGEL_NO, i, 1)) End If Next FIN = Format(TOT, "00") ten = CInt(Mid(SEGEL_NO, 10, 1)) ID_Val = (CInt(Mid(FIN, 2, 1)) = ten) Or (ten = 10 - CInt(Mid(FIN, 2, 1))) End Function الخوارزمية باختصار نضرب الأعداد الفردية من رقم السجل المدني بـ 2 ثم نجمع الآحاد مع العشرات ونضيف معهم مجموع الأعداد الزوجية وفي النهاية يكون معنا عدد مكون من آحاد وعشرات فإذا تشابه الآحاد مع آخر رقم من السجل المدني فهو صحيح أو ننقص 10 من آحاد الناتج فإذا تشابه مع آخر رقم من السجل المدني فهو صحيح

معك حق فهي طويلة وغير مفهومة عندما نستخدمها كصيغة