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

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11651
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    308

كل منشورات العضو Ali Mohamed Ali

  1. يمكنك عمل ما تريد ولكن عليك بتوحيد رقم خلية مجموع الرصيد بالمعادلة مع كل صفحات الملف حتى تعمل المعادلة كما تريد ,فالأمر سهل جدا وليس به مشكلة -يسر دائما ولا تعسر
  2. وعليكم السلام-بعد اذن استاذنا الكبير سليم ,تم عمل كل اللازم بالنسبة لصفحة حساب سائق , من معادلات وقوائم منسدلة لجلب البيانات كما تريد من صفحة data كما تم وضع كود بمعادلة تفقيط بالملف 2020_-_1.xlsm
  3. يمكنك استخدام هذه المعادلة ولكن بعد اعادة ضبط وتنسيق وتكملة الملف بحيث يكون مجموع الرصيد فى كل صفحة من صفحات الملف فى الخلية I352 ولو حابب يكون رقم الخلية اكبر من هذا فلابد من توحيد وتثبيت الخلية التى تريدها فى كل الصفحات وتعديل الرقم الذى تريده بالمعادلة =IFERROR(INDIRECT("'"&$A2&"'!I352"),"") عملاء - 1.xlsx
  4. اذا كان الكود يعمل معك بكفاءة فبهذه الإضافة يكون الكود كالتالى: Sub Macro1() Dim i As Integer, m As Integer Application.ScreenUpdating = False For i = 2 To 4 With ThisWorkbook.Worksheets(i) m = .Cells(Rows.Count, 1).End(xlUp).Row If i <> 3 Then .Range("A1:AH" & m).PrintOut Copies:=1, Collate:=True ElseIf i = 3 Then If .Range("AH" & .Cells(Rows.Count, "AH").End(xlUp).Row).Value > 0 Then .ListObjects("HR_2").Range.AutoFilter Field:=34, Criteria1:=">0" .Range("A1:AH" & m + 1).PrintOut Copies:=1, Collate:=True .ListObjects("HR_2").Range.AutoFilter End If End If End With Next i Application.ScreenUpdating = True Sheets("Overtime").PageSetup.RightFooter = Range("AP3").Value End Sub
  5. وعليكم السلام-تفضل نظام_الملاك_2019.xlsm
  6. وعليكم السلام-لك ما طلبت مستخلص كميات لسيارات النقل.xlsx
  7. تفضل لك ما طلبت بمعادلة معرفة وهى Text_ALL Option Explicit Function Text_ALL(rng As Range) Dim i%, x$ With CreateObject("VbScript.RegExp") .Global = True .Pattern = "([\u0621-\u064A]+)" If Not (.Test(rng.Value)) Then _ Text_ALL = vbNullString: Exit Function For i = 0 To .Execute(rng.Value).Count - 1 x = x & " " & .Execute(rng.Value)(i).Value Next i Text_ALL = x End With End Function وهذه المعادلة توضع بالخلية B2 =Text_ALL(A2) New Microsoft Excel Worksheet.xlsm
  8. أحسنت استاذ مجدى بارك الله فيك وزادك الله من فضله
  9. وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى-تفضل طلب مساعدة ( جمع الأعداد دون المتكرر منها ) وهذه هى المعادلة المستخدمة =SUMPRODUCT((($D$5:$D$16<>"")/COUNTIF($D$5:$D$16,$D$5:$D$16&""))*($D$5:$D$16)) حساب الاعداد المكررة مرة واحدة 1فقط.xlsx
  10. بارك الله فيك استاذ مجدى وجزاك الله كل خير
  11. تفضل لك ما طلبت هذه الأكواد فى مديول عادى Sub hide_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)" End Sub Sub show_menu() Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)" End Sub وهذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() hide_menu End Sub وذلك كما بالملف Hide.xlsm
  12. فقط عليك استخدام هذه المعادلة =COUNTIF($B8:$AF8,$NU$5)/4 أو عن طريق معادلتك بعد القسمة على 4 لتكون بهذه الطريقة =SUMPRODUCT((OFFSET($A8,0,1,1,372)<>"")*(OFFSET($A$3,0,1,1,372))*((OFFSET($A8,0,1,1,372))=NU$5))/4 leave tracker.xlsb
  13. وعليكم السلام-تفضل بمجرد كتابة الرقم بالعمود C سوف تظهر قيمته بالعمود B 1مثال.xlsx
  14. أحسنت استاذ مجدى عمل رائع بارك الله فيك ورحم الله والديك
  15. فقط يمكنك استخدام هذه المعادلة =CEILING(C2,1) ABSS1.xls
  16. تفضل فقط يمكنك استخدام معادلة المصفوفة هذه =IF(ROWS($K$4:K4)<=SUMPRODUCT(--(COUNTIF($I$4:$I$140,$D$4:$D$150)<>1)),INDEX($D$4:$D$150,SMALL(IF(COUNTIF($I$4:$I$140,$D$4:$D$150)<>1,ROW($D$4:$D$150)-ROW($D$4)+1),ROWS($K$4:K4))),"") Etat de developpement de solde.xlsx
  17. وعليكم السلام-تفضل شهادات.xlsm
  18. بارك الله فيك وزادك الله من فضله
  19. فقط عن طريق التنسيق الشرطى تم التلوين كما تريد وهذه المعادلة تم استخدامها فى حالة الخسارة بالتنسيق الشرطى =AND($J$2="صافي خسارة",$J$3<0) وهذه فى حالة الربح =AND($J$2="صافي ربح",$J$3>0) وكما ترى بالصورة
  20. وعليكم السلام هناك طريقة كما ترى بهذا الرابط : كيفية عرض كافة نوافذ إكسيل في شريط المهام؟ او يمكنك تجربة هذا الرابط فتح ملفين اكسيل فى وقت واحد
  21. وعليكم السلام-اهلا بك فى المنتدى , وبما ان الشرح لا يكفى المطلوب ولم تقم بوضع مثال والنتائج بالضبط على الملف فيمكنك استخدام هذه الموضوعات مهمة لك بموضوعك تكرر عشرات المرات وكان عليك قبل رفع المشاركة استخدام خاصية البحث بالمنتدى : مساعدة في شيت بصمة استخراج الوقت الصباحي والمسائي من عمود الوقت
×
×
  • اضف...

Important Information