اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Posts

    4,029
  • تاريخ الانضمام

  • Days Won

    151

Community Answers

  1. أ / محمد صالح's post in عمل حافظة دوام عن طريق المعادلات was marked as the answer   
    يمكنك استعمال هذه المعادلة في الخلية D12
    =IFERROR(IF(INDEX(D$6:D$10,MATCH($C12,$C$6:$C$10,0))="",CHAR(251),IF(COUNTIF($C12:C12,CHAR(252))>=$L12,CHAR(251),CHAR(252))),"") مع تغيير نوع الخط في هذه الخلية إلى wingdings لتظهر علامة الخطأ والصواب
    مع سحب المعادلة يمينا ثم أسفل
    بالتوفيق
  2. أ / محمد صالح's post in حساب كمية التحميل اليومية للودر was marked as the answer   
    أخي الكريم
    حسب فهمي للمطلوب
    ضع هذه المعادلة في الخلية B26
    =SUMPRODUCT(B6:B22,$Y$6:$Y$22) بالتوفيق
     
  3. أ / محمد صالح's post in جلب اكبر واصغر قيمة لتاريخ معين was marked as the answer   
    حسب فهمي للمطلوب
    تم إضافة خلية تكتب فيها عدد الشهور وبناء عليها يتم كتابة تاريخ النهاية
    ويتم حساب رصيد آخر المدة في هذا التاريخ
    بالتوفيق
    جلب اكبر واصغر قيمة لتاريخ.xls
  4. أ / محمد صالح's post in طلب مساعده في عمل معادله اوداله تجلب قيمه من ورقه عمل 1 او ورقه عمل 2 حسب متغبر يكتب في خليه was marked as the answer   
    عليكم السلام
    جرب وضع هذه المعادلة في الخلية L6
    =IFERROR(VLOOKUP(H6,INDIRECT("'"&J6&"'!d2:e1000"),2,0),"") بالتوفيق
  5. أ / محمد صالح's post in تعبئة الخلايا على حسب رقم بخلية was marked as the answer   
    جرب استعمال هذi المعادلة في الخلية B10
    =IF($C$3+ROW()-10>=$C$3+$C$6,"",$C$3+ROW()-10) مع سحب المعادلة لأسفل
    بالتوفيق
  6. أ / محمد صالح's post in طلب مساعدة في الخلية التاريخ was marked as the answer   
    كلك يمين على اسم الشيت ثم 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 وتغيير تنسيق الوقت والتاريخ بالتنسيق المطلوب
    بالتوفيق
  7. أ / محمد صالح's post in مساعده - طلب معادله was marked as the answer   
    إذا كان المقصود مقارنة خلايا العمود D مع الرقم الموجود في نهاية اسم الباكدج
    فيمكن استعمال التنسيق الشرطي بمعادلة
    =D2>VALUE(RIGHT(A2,3)) كما في المرفق التالي
    مع ضرورة تحويل تنسيق الأرقام في الخلايا إلى رقم لأن تنسيقها نص
    وذلك بتحديدها ثم الضغط على المثلث الأصفر ثم اختيار convert to number
    بالتوفيق
     
    Mobil.xlsx
  8. أ / محمد صالح's post in عمل متسلسل بشروط معينة was marked as the answer   
    إن شاء الله يكون هذا هو المطلوب
    تم إنشاء معادلة للصف الأول
    ومعادلة للصف من الثاني إلى 99
    نظرا لأن الترقيم لديك تنسيقه 00
    وطبعا يمكن زيادته بزيادة عدد الأصفار
    بالتوفيق
    إنشاء تسلسل بالمعادلات.xlsx
  9. أ / محمد صالح's post in تعديل فى كود اليوزرفورم was marked as the answer   
    لتحويل رقم من موجب إلى سالب يمكنك الضرب في سالب واحد
    ws.Cells(LR, 3).Value = Me.C1.Value * -1 بالتوفيق
  10. أ / محمد صالح's post in عدد أيام إنتاج صنف معين بشروط was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
    إذا كان الهدف حساب عدد المرات التي يكون فيها نوع البلوك هو المطلوب وعدد الكبسات أكبر من صفر
    جرب أن تضع المعادلة التالية في الخلية 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) بالتوفيق
  11. أ / محمد صالح's post in تاريخ البدء والانتهاء لكل عامل حسب قائمة العمال ومدة عمل كل منهم بشروط محددة was marked as the answer   
    للحصول على المطلوب يمكنك استعمال هذه المعادلة
    في الخلية 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) بالتوفيق
  12. أ / محمد صالح's post in التعديل على كود الدوائر الحمراء was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
    حسب فهمي للمطلوب
    جرب تغيير هذا السطر
    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 بالتوفيق
  13. أ / محمد صالح's post in زراعة ملف للحماية was marked as the answer   
    لا تتعب نفسك
    الاكسل ضعيف في الحماية
    اقل من الأكسس
  14. أ / محمد صالح's post in طلب مساعدة في جلب محتوى خلية الى التكست بوكس was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
    مادامت النتائج في النموذج صحيحة
    إذن ينبغي جعل معادلات الشيت مثل النموذج
    تم ضبط معزم معادلات الشيت في حالة وجود خطأ في البحث باستخدام Iferror
    وتم تعديل معادلات الخلايا H19 & I19 & L19 وإضافة معادلات في H20 & I20 ليتم الحساب بعد إضافة الدرجة
    مع الانتباه لضرورة حذف قيمة F20 في النموذج لأنها موجودة ضمن الراتب الخام L19
    مع ملاحظة أن الخلية C19 دخلت في الحسابات مرتين في منحة التأهيل ومنحة الدعم مرة قبل الدرجة ومرة بعد الدرجة
    بالتوفيق
     
    vba 2023 office.xlsm
  15. أ / محمد صالح's post in التحقق من صحة البيانات was marked as the answer   
    على فرض ان الخلية المطلوبة a1 أو نطاق معين أوله الخلية A1
    نقوم بتحديد النطاق ثم نضغط على data validation من تبويب data
    ثم نختار custom
    ونكتب هذه المعادلة في التحقق من الصحة
    =OR(A1<=4,A1="غ") سيتم التطبيق على جميع خلايا النطاق المحدد
    بالتوفيق
  16. أ / محمد صالح's post in ارسالة رسالة من الاكسل للواتس اب بناء على تاريخ معين was marked as the answer   
    جرب هذا المرفق
    يجب تثبيت واتساب للكمبيوتر وربطه بحساب واتساب الخاص بك أولا ثم فتح الواتس اب قبل الضغط على زر الإرسال
    ثم الضغط على الزر المرتبط بماكرو الارسال
    سيتم الارسال لكل من هو مكتوب امامه تاريخ اليوم ولم يتم الارسال له من قبل (خلية تم الرسال فارغة)
    مع التنبيه على كتابة رقم الموبايل مع مفتاح الدولة
    ويمكن تشغيل الكود بمجرد فتح هذا الشيت (في خدث فتح الشيت worksheet_open) ولكن الأفضل بعد الضغط على الزر (فربما لم تفتح الواتس اب أو ربما يوجد بيان ناقص في البيانات)
    بالتوفيق
     
    برنامج الصيانة.xlsb
  17. أ / محمد صالح's post in لماذا الملفات ذات الامتداد XLSM او XLSX لا تتعامل مع الدوال التي اسمها يحتوي على ارقام was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
    يرجع السبب إلى وجود خلية بنفس الاسم في الامتدادات الحديثة xlsx و xlsm وغيرها
    حيث أنه من المعروف أن آخر خلية في اكسل 2003 وما فبله أو الامتداد xls هي IV65536 أما في اكسل 2007 وما بعده هي XFD1,048,576
    والحل تغيير اسم الدالة المعرفة بإضافة _ (الشرطة السفلية اندر سكور) إلى نهاية الاسم ليصبح مثلا
    Function IRG2008_(soumis) واستعمال الدالة في الخلايا هكذا
    =IRG2008_(A1) أو استعمال 4 حروف في اسم الدالة
    المهم إيجاد اختلاف بين اسم الخلية واسم الدالة المعرفة 
    بالتوفيق
  18. أ / محمد صالح's post in حذف الاصفار من يمين العدد was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
    على افتراض أن اكبر عدد أصفار هو 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 إذا تحقق الشرط وزيادة أقواس الإغلاق
    وتم مراعاة ألا يكون العدد ينتهي بأصفار على اليمين
    بالتوفيق
  19. أ / محمد صالح's post in الكتابة على سطر واحد فقط داخل الخلية was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
    يمكنك استعمال معادلة الاستبدال التالية
    =SUBSTITUTE(B2,CHAR(10)," ") بالتوفيق
  20. أ / محمد صالح's post in استخراج تاريخ التعين was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
    جرب استعمال هذه المعادلة في الخلية I2
    =DATE(YEAR(H2)-L2,MONTH(H2)-K2,DAY(H2)-J2+1)  
    كما تم تعديل معادلات الفرق بين تاريخين في المرفق
    بالتوفيق
    استخراج تاريخ التعين.xlsx
  21. أ / محمد صالح's post in هل يمكن تغيير اسم الصفحة في المعادلات باسم خلية مجاورة was marked as the answer   
    يمكنك استعمال هذه المعادلة في الخلية B3
    =INDIRECT("'"&A3&"'!B2") تم استعمال الفاصلة المفردة بحيث إذا كان اسم الشيت يحتوي على مسافة
    وإذا لم يكن يحتوي على مسافة فيمكن اختصار المعادلة 
    =INDIRECT(A3&"!B2") مع سحب المعادلة لأسفل
    بالتوفيق
  22. أ / محمد صالح's post in كود عند الضغط دبل كلك على أي خلية من خلايا محددة تكون قيمتها Negative دون غيرها was marked as the answer   
    يمكنك استعمال هذه المعادلة في الخلية 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 بالتوفيق
  23. أ / محمد صالح's post in كيف أضيف معادلة في الإكسل was marked as the answer   
    عليكم السلام ورحمة الله وبركاته
     
    بالنسبة لدالة xlookup
    إن شاء الله يفيدك هذا الموضوع
    وبالنسبة لدالة ifs فلا أعتقد أنه تم إيجاد بديل لها غير دوال if المتداخلة
    بالتوفيق
  24. أ / محمد صالح's post in طرح مساحات السهم والقيراط والفدان في اعمدة منفصلة was marked as the answer   
    يمكنك استعمال هذه المعادلة في 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 مع سحب المعادلات لأسفل
    بالتوفيق
  25. أ / محمد صالح's post in التقريب لاقرب نصف او عدد صحيح فى خلية الدرجة الاصلية was marked as the answer   
    أعتقد أنك تريد التقريب لأعلى نصف أو واحد صحيح
    وليس لأقرب نصف أو واحد صحيح
    على العموم
    لأقرب نصف نستعمل هذه المعادلة في اللغة العربية مثلا في الخلية 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 إلى واحد صحيح
     
    ويمكن نسخ المعادلة في جميع أعمدة الدرجة الأصلية وسحبها لأسفل
    مع مراعاة الفاصلة او الفاصلة المنقوطة في المعادلات 
    بالتوفيق
×
×
  • اضف...

Important Information