أ / محمد صالح

هل يعمل هذا الرابط على انترنت اكسبلورر؟ إذا كان يعمل بصورة طبيعية أرسل الرابط حيث يمكن فتح الرابط في انترنت اكسبلورر وقراءة محتويات الجدول ونقلها إلى الشيت بالكود

يا ريت توضح أكتر المطلوب لأن الملفين متطابقين يختلفان فقط في سنة نهاية الاقامة 2 / 7 / 2023 بدلا من 2 / 7 / 2022 وهكذا

جهد مشكور أستاذ محمد هشام ولكني أقترح على الأخ صاحب السؤال أن يعيد هيكلة ملفه ليتوافق مع قواعد البيانات حتى يسهل استخراج المعلومات منه لذا أقترح مثلا أن يكون بهذه الصورة بالتوفيق

الدالة indirect هدفها هو تحويل نطاق مكتوب على شكل نص إلى نطاق وقد تم تمرير اسم الشيت الموجود في الخلية j6 وبعده ! وبعده النطاق المطلوب البحث فيه

عليكم السلام جرب وضع هذه المعادلة في الخلية L6 =IFERROR(VLOOKUP(H6,INDIRECT("'"&J6&"'!d2:e1000"),2,0),"") بالتوفيق

حسب فهمي للمطلوب تم إضافة خلية تكتب فيها عدد الشهور وبناء عليها يتم كتابة تاريخ النهاية ويتم حساب رصيد آخر المدة في هذا التاريخ بالتوفيق جلب اكبر واصغر قيمة لتاريخ.xls

بعد إذن أخي الكريم @محي الدين ابو البشر يمكنك استعمال هذه المعادلة =SUM(COUNTIF(INDIRECT({"$F$4:$F$12","$J$4:$J$12","$N$4:$N$12"}),"<40")) مع ملاحظة القوسين المعقوفين وعلامات التنصيص حول كل نطاق بالتوفيق

جرب استعمال هذi المعادلة في الخلية B10 =IF($C$3+ROW()-10>=$C$3+$C$6,"",$C$3+ROW()-10) مع سحب المعادلة لأسفل بالتوفيق

لقد قلت لحضرتك يمكنك توظيفه وليس مجرد وضعه في اكوادك والتوظيف هو أن تخزن هذا المسار في متغير وتستعمل هذا المتغير في مسار حفظ ملفات ال PDF أكوادك غير واضحة لي وإلا كنت من البداية وظفته لك بالتوفيق

كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 5 Then Range("e" & Target.Row).Value = Now() End Sub ويعني أنه إذا تم التعديل في العمود الثاني ( B ) وبعد الصف الخامس يتم وضع الوقت والتاريخ في الخلية E لنفس الصف ويمكن توسيع العمود E وتغيير تنسيق الوقت والتاريخ بالتنسيق المطلوب بالتوفيق

إن شاء الله يكون هذا هو المطلوب تم إنشاء معادلة للصف الأول ومعادلة للصف من الثاني إلى 99 نظرا لأن الترقيم لديك تنسيقه 00 وطبعا يمكن زيادته بزيادة عدد الأصفار بالتوفيق إنشاء تسلسل بالمعادلات.xlsx

لتحويل رقم من موجب إلى سالب يمكنك الضرب في سالب واحد ws.Cells(LR, 3).Value = Me.C1.Value * -1 بالتوفيق

إذا كان المقصود مقارنة خلايا العمود D مع الرقم الموجود في نهاية اسم الباكدج فيمكن استعمال التنسيق الشرطي بمعادلة =D2>VALUE(RIGHT(A2,3)) كما في المرفق التالي مع ضرورة تحويل تنسيق الأرقام في الخلايا إلى رقم لأن تنسيقها نص وذلك بتحديدها ثم الضغط على المثلث الأصفر ثم اختيار convert to number بالتوفيق Mobil.xlsx

عليكم السلام ورحمة الله وبركاته إذا كان الهدف حساب عدد المرات التي يكون فيها نوع البلوك هو المطلوب وعدد الكبسات أكبر من صفر جرب أن تضع المعادلة التالية في الخلية C3 =COUNTIFS(C6:C1000,C2,D6:D1000,">0") وأعتقد countifs تعمل على 2016 وإذا كان الهدف عدم حساب تكرار اليوم ضمن المرات فيمكن إضافة عمود مساعد لحساب عدد مرات تكرار اليوم لنفس البلوك ومعادلته في E6 =COUNTIFS($B$6:B6,B6,$C$6:C6,C6) ونغير معادلة C3 إلى =COUNTIFS(C6:C1000,C2,D6:D1000,">0",E6:E1000,1) بالتوفيق

جرب أن تغير في المعادلة [@[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="غ") سيتم التطبيق على جميع خلايا النطاق المحدد بالتوفيق