أ / محمد صالح

جرب أن تغير في المعادلة [@[Activity ID]] إلى A2 بالتوفيق

للحصول على المطلوب يمكنك استعمال هذه المعادلة في الخلية I6 للحصول على أقل تاريخ مقابل لهذا الاسم =MINIFS(B:B,C:C,H6) أو هذه المعادلة للنسخ القديمة =MIN(IF(C:C=H6,B:B)) وفي الخلية J6 للحصول على أكبر تاريخ مقابل لهذا الاسم =MAXIFS(B:B,C:C,H6) وهذه للنسخ القديمة =MAX(IF(C:C=H6,B:B)) وبالنسبة لعدد ايام العمل بين التاريخين على اعتبار الجمعة فقط هي العطلة نستخدم هذه المعادلة =NETWORKDAYS.INTL(I6,J6,16) بالتوفيق

عليكم السلام ورحمة الله وبركاته حسب فهمي للمطلوب جرب تغيير هذا السطر For Cell = startRow To .Range(myArray(x) & startRow).End(xlDown).Row Step 2 إلى For Cell = startRow To .Range(myArray(x) & Rows.Count).End(xlUp).Row Step 2 بالتوفيق

ربما تفيدك هذه النتائج التي تكلمت عن نفس الموضوع https://www.officena.net/ib/search/?&q=date picker&type=forums_topic&quick=1&nodes=135&search_and_or=and&sortby=relevancy بالتوفيق

عليكم السلام ورحمة الله وبركاته هذا كود تحديد مجلد يمكنك توظيفه كما تشاء With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then [A1] = .SelectedItems(1) End With ويتم تخزين المسار الذي تم تحديده في الخلية A1 كما هو في الكود بالتوفيق

هذا موضوع مشابه وبه كود الارسال لارقام كثيرة غير مخزنة في جهات الاتصال بالتوفيق

عليكم السلام ورحمة الله وبركاته مادامت النتائج في النموذج صحيحة إذن ينبغي جعل معادلات الشيت مثل النموذج تم ضبط معزم معادلات الشيت في حالة وجود خطأ في البحث باستخدام Iferror وتم تعديل معادلات الخلايا H19 & I19 & L19 وإضافة معادلات في H20 & I20 ليتم الحساب بعد إضافة الدرجة مع الانتباه لضرورة حذف قيمة F20 في النموذج لأنها موجودة ضمن الراتب الخام L19 مع ملاحظة أن الخلية C19 دخلت في الحسابات مرتين في منحة التأهيل ومنحة الدعم مرة قبل الدرجة ومرة بعد الدرجة بالتوفيق vba 2023 office.xlsm

عليكم السلام ورحمة الله وبركاته على افتراض أن اكبر عدد أصفار هو 5 يمكنك استعمال هذه المعادلة =E4/IF(MOD(E4,100000)=0,100000,IF(MOD(E4,10000)=0,10000,IF(MOD(E4,1000)=0,1000,IF(MOD(E4,100)=0,100,IF(MOD(E4,10)=0,10,1))))) وإذا زاد العدد عن 5 يمكنك إضافة شرط في بداية المعادلة مع زيادة عدد الأصفار في mod وفي ناتج if إذا تحقق الشرط وزيادة أقواس الإغلاق وتم مراعاة ألا يكون العدد ينتهي بأصفار على اليمين بالتوفيق

عليكم السلام ورحمة الله وبركاته يرجع السبب إلى وجود خلية بنفس الاسم في الامتدادات الحديثة xlsx و xlsm وغيرها حيث أنه من المعروف أن آخر خلية في اكسل 2003 وما فبله أو الامتداد xls هي IV65536 أما في اكسل 2007 وما بعده هي XFD1,048,576 والحل تغيير اسم الدالة المعرفة بإضافة _ (الشرطة السفلية اندر سكور) إلى نهاية الاسم ليصبح مثلا Function IRG2008_(soumis) واستعمال الدالة في الخلايا هكذا =IRG2008_(A1) أو استعمال 4 حروف في اسم الدالة المهم إيجاد اختلاف بين اسم الخلية واسم الدالة المعرفة بالتوفيق

عليكم السلام ورحمة الله وبركاته يمكنك استعمال معادلة الاستبدال التالية =SUBSTITUTE(B2,CHAR(10)," ") بالتوفيق

على فرض ان الخلية المطلوبة a1 أو نطاق معين أوله الخلية A1 نقوم بتحديد النطاق ثم نضغط على data validation من تبويب data ثم نختار custom ونكتب هذه المعادلة في التحقق من الصحة =OR(A1<=4,A1="غ") سيتم التطبيق على جميع خلايا النطاق المحدد بالتوفيق

عليكم السلام ورحمة الله وبركاته جرب استعمال هذه المعادلة في الخلية I2 =DATE(YEAR(H2)-L2,MONTH(H2)-K2,DAY(H2)-J2+1) كما تم تعديل معادلات الفرق بين تاريخين في المرفق بالتوفيق استخراج تاريخ التعين.xlsx

جرب هذا المرفق يجب تثبيت واتساب للكمبيوتر وربطه بحساب واتساب الخاص بك أولا ثم فتح الواتس اب قبل الضغط على زر الإرسال ثم الضغط على الزر المرتبط بماكرو الارسال سيتم الارسال لكل من هو مكتوب امامه تاريخ اليوم ولم يتم الارسال له من قبل (خلية تم الرسال فارغة) مع التنبيه على كتابة رقم الموبايل مع مفتاح الدولة ويمكن تشغيل الكود بمجرد فتح هذا الشيت (في خدث فتح الشيت worksheet_open) ولكن الأفضل بعد الضغط على الزر (فربما لم تفتح الواتس اب أو ربما يوجد بيان ناقص في البيانات) بالتوفيق برنامج الصيانة.xlsb

الحمد لله الذي وفقنا جميعا لهذا

الشكر لله الذي وفقنا لهذا

يمكنك استعمال هذه المعادلة في الخلية C3 =IF(RIGHT(D3,8)="المحترمة",": الدكتورة المحاضرة",": الطبيب المحاضر") وتعديل هذا الكود في خدث قبل الدبل كلك Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("g10:j15")) Is Nothing Then Application.Calculation = xlManual Application.ScreenUpdating = False Application.EnableEvents = False ActiveSheet.Unprotect Password:="123" Target.Value = "Negative" ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:= _ False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=False, AllowInsertingColumns:=True, AllowInsertingRows _ :=True, AllowInsertingHyperlinks:=True Application.Calculation = xlAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية B3 =INDIRECT("'"&A3&"'!B2") تم استعمال الفاصلة المفردة بحيث إذا كان اسم الشيت يحتوي على مسافة وإذا لم يكن يحتوي على مسافة فيمكن اختصار المعادلة =INDIRECT(A3&"!B2") مع سحب المعادلة لأسفل بالتوفيق

أعتقد أنك تريد التقريب لأعلى نصف أو واحد صحيح وليس لأقرب نصف أو واحد صحيح على العموم لأقرب نصف نستعمل هذه المعادلة في اللغة العربية مثلا في الخلية M6 =MROUND((L6/2)*M$4/100,0.5) وهي تقوم بتقريب اقل من 0.25 إلى 0 وتقريبا من 0.25 حتى 0.74 إلى 0.5 وأكثر من 0.75 إلى الواحد الصحيح وهي تعمل على إكسل 2007 وما بعده ولمن يستخدم إكسل 2003 يمكن استعمال هذه الدالة المعرقة masround Function masround(n As Double, m As Double) As Double masround = IIf(n - m * (n \ m) >= m / 2, m * (n \ m + 1), m * (n \ m)) End Function والتقريب لأعلى نصف نستعمل هذه المعادلة =CEILING((L6/2)*M$4/100,0.5) وهذه المعادلة تقوم بتقريب اقل من 0.5 إلى 0.5 وأكبر من 0.5 إلى واحد صحيح ويمكن نسخ المعادلة في جميع أعمدة الدرجة الأصلية وسحبها لأسفل مع مراعاة الفاصلة او الفاصلة المنقوطة في المعادلات بالتوفيق

عليكم السلام ورحمة الله وبركاته بالنسبة لدالة xlookup إن شاء الله يفيدك هذا الموضوع وبالنسبة لدالة ifs فلا أعتقد أنه تم إيجاد بديل لها غير دوال if المتداخلة بالتوفيق

يمكنك استعمال هذه المعادلة في K7 لطرح الأسهم =IF(C7<G7,24,0)+C7-G7 وهذه في L7 لطرح القراريط =IF(C7<G7,-1,0)+IF(D7<H7,24,0)+D7-H7 وهذه في M7 لطرح الأفدنة =IF(D7*24+C7<H7*24+G7,-1,0)+E7-I7 مع سحب المعادلات لأسفل بالتوفيق

بعد إذن حبيبنا أستاذ علي محمد علي يمكن اختصار المعادلة إلى هذه في الخلية C1 =IF(B1>=90,1,IF(B1>=70,2,IF(B1>=50,3,IF(B1>=40,4,IF(B1>=1,5,6))))) بالتوفيق

جميعا بإذن الله تعالى

عليكم السلام ورحمة الله وبركاته إن شاء الله تفيدك هذه المعادلات البسيطة Large Small index & match بالتوفيق أعلى وأقل الأيام حضورا.xlsx

لا تتعب نفسك الاكسل ضعيف في الحماية اقل من الأكسس

عليكم السلام ورحمة الله وبركاته إذا كان الهدف هو مجرد ترتيب بالمعادلات قيمكنك استعمال هذه المعادلة في الخلية F4 للحصول على نفس المجموعة مرتبة =INDEX($A$4:$C$11,MATCH(ROW()-3,$A$4:$A$11,0),COLUMN()-5) مع ملاحظة بداية ونهاية نطاق البحث A4:C11 وعدد الصفوف الفارغة قبل مكان أول نتيجة (F4) == 3 وخلايا الفهرس غير المرتب الذي يتم التريب عليه A4:A11 وعدد الأعمدة الفارغة قبل مكان أول نتيجة == 5 مع سجب المعادلة لأسفل ولليمين بالتوفيق