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

محمد حسن المحمد

الخبراء
  • Posts

    2,211
  • تاريخ الانضمام

  • Days Won

    30

Community Answers

  1. محمد حسن المحمد's post in معادلة احتساب اعداد was marked as the answer   
    وعليكم السلام
    تفضل أخي الكريم
     

     
    Book2.xlsx
  2. محمد حسن المحمد's post in إحصاء النتيجه was marked as the answer   
    وعليكم السلام
    تفضل أخي الكريم:

    Book1.xlsx
  3. محمد حسن المحمد's post in حساب نسبة مقدار الربح ومبلغه لكل عميل مساهم was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    تفضل أخي الكريم

    نسبة الربح وقيمته لكل شخص من مجموع الربح.rar
  4. محمد حسن المحمد's post in حساب الاسم او احصائية الاسماء was marked as the answer   
    وعليكم السلام
    تفضل:

    Book1.xlsx
  5. محمد حسن المحمد's post in مكتبة الموقع - FACTURIER EXPRESS PRO 2024 - SQLite DataBase was marked as the answer   
    السلام عليكم أستاذ محمد
    بارك الله بجهودكم وزادكم علماً نافعاً ...آمين
  6. محمد حسن المحمد's post in مساعدة في حساب شرائج ضريبة الرواتب was marked as the answer   
    حباً وكرامة
    تفضل أخي الكريم لك ما طلبت
    على الرحب والسعة
     
    ضريبة رواتب و اجور.xlsx
  7. محمد حسن المحمد's post in استفسار عن طريقة عمل بحث was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    أرجو أن يكون الحل مناسباً
    يمكنك وضع المعادلة التالية في B2
    ووضع معادلة ثانية في C2
    كما يلي:
    B2: =IF(A2="";"";VLOOKUP(A2;Table1;2;0)) C2: =IF([رقم الموظف]="";"";LOOKUP(2;1/(Table1[[الاسم ]]=[[الاسم ]]);Table1[تاريخ اخر اجازة])) بالتوفيق إن شاء الله

    Book144.xlsm
  8. محمد حسن المحمد's post in برجاء توضيح الفرق was marked as the answer   
    السلام عليكم أخي الكريم 

    طرحت سؤالك على برنامج دردشة ميكروسوفت فكان الجواب كالتالي:
    يتم استخدام خاصية StartUpPosition في إكسل لتحديد موقع ظهور UserForm عندما يتم فتحه لأول مرة. يمكن تعيين قيمة StartUpPosition إلى واحدة من أربع إعدادات. يمكنك استخدام الإعدادات التالية لـ StartUpPosition:
    Manual: لا يوجد إعداد أولي محدد. CenterOwner: يتم وضع UserForm في المركز على العنصر الذي ينتمي إليه UserForm. CenterScreen: يتم وضع UserForm في المركز على الشاشة بأكملها. WindowsDefault: يتم وضع UserForm في الزاوية اليسرى العليا من الشاشة. - يمكن تعيين خاصية StartUpPosition برمجيًا أو من نافذة الخصائص. يمكنك الرجوع إلى المصادر المذكورة أدناه لمزيد من المعلومات.
     رابط1 رابط2 أرجو لكم الفائدة.
    والسلام عليكم
  9. محمد حسن المحمد's post in معادلة تغيير التاريخ was marked as the answer   
    وعليكم السلام
    في الخلية F2
    =IF(WEEKDAY([@[Date Doc.]]+45;16)=7;[@[Date Doc.]]+44;[@[Date Doc.]]+45) واسحب نزولاً
    تقبل تحياتي.
  10. محمد حسن المحمد's post in مساعدة في كود طباعة was marked as the answer   
    وعليكم السلام 
    أخي الكريم هذا الملف بعد التعديل
    فيه تم وضع كود لطباعة صفحة بذاتها ، وكود آخر لطباعة صفحات من رقم .... (الخلية O2)إلى رقم.....(الخلية P2)
    أما إذا أردت طباعة كل القائمة فامسح الخليتين المذكورتين أعلاه.

    وستتم طباعة كل الصفحات حسب معادلتين وضعتا في O1 & P1 اعتماداً على الخلية N5 في كل ماسبق
    بالتوفيق إن شاء الله
    والسلام عليكم
     
    ملاحظة: هذا الكود لأحد الأساتذة الفضلاء - وفقهم الله- آمين
    كود.xls
  11. محمد حسن المحمد's post in تغيير صيغة التاريخ was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    أخي الكريم @ابراهيم الحداد تحية طيبة وبعد:
    فكرت بالحل بعدة طرق منها:
    1- في عمود مساعد نضرب الخلية A3 *1 
    2 - أو نستخدم دالة :
    =TEXT(A3;"YYYY/MM/DD") 3- من data >> text to columns >> date (YMD) 
    مع ذلك لي رغبة أن توضح لنا طريقة التحويل - إن سمحت - حتى تعم الفائدة ...مستفسراً أيضاً عن بيانات جديدة في الصفوف التالية هل تحتاج إلى تحويل أيضاً أم لا؟!.
    تقبل تحياتي العطرة
    والسلام عليكم.
  12. محمد حسن المحمد's post in كيف يمكن تحويل الارقام الترتيبية الى نصوص ؟ was marked as the answer   
    السلام عليكم
    إثراء للموضوع وبعد إذن من سبقني إليكم الحل بطريقتين
    الأولى : باستخدام VlookUp حيث تم وضع الأرقام وتفقيطها في جدول بمجرد أن تكتب الرقم يتم تفقيطه
    =VLOOKUP($A2;Table1;2;0)
    الثانية: باستخدام المعادلة التي تعتمد على كود التفقيط NoToTxt الذي قمت بالتعديل على جزء يسير - بعد إذن صاحبه الذي أسأل الله تعالى أن يجعله بميزان حسناته - ليناسب الموضوع.
    =NoToTxt([@الرقم];"";"")
    راجياً أن يكون مقبولاً لديكم
    والسلام عليكم
     
    تحويل الأرقام الترتيبية إلى نصوص.xlsm
  13. محمد حسن المحمد's post in تحويل التاريخ الى يوم من ايام الاسبوع was marked as the answer   
    تفضل
    =TEXT(E5;"ddd")  
    New Microsoft Office Excel Worksheet.xlsx
  14. محمد حسن المحمد's post in ما الخطأ بهذه المعادلة لنقل البيانات was marked as the answer   
    تفضل أخي الكريم أرجو أن يكون الحل:

     
    Retails Sales Report (2).xlsx
  15. محمد حسن المحمد's post in تحويل البيانات من افقي إلى عمودي بشرط was marked as the answer   
    السلام عليكم أخي الكريم ...... ولكم بمثل ما دعوتم آمين
    بناء على طلبك - أخي الكريم - تم التعديل،
    مع ملاحظة أن الورقتين Data & Result تعتمدان في معرفة القسم والرقم الوظيفي على الورقة الأولى Data1
    وكذلك يمكنك التحديث لكتابة الأسماء آلياً بتحديث Pivot table بجانب الجدول في ورقة Result 
    أما إن أردت كتابة الاسم يدوياً ستقوم بإلغاء المعادلة التي تربط خلايا الاسم بالجدول المجاور لكن لا يضمن أن تكتب الاسم بحذافيره دون زيادة أو نقصان فتكون النتائج تابعة
    لدقة كتابتك للاسم
    تقبل تحياتي والسلام عليكم.
     
    Abu Rafat (1).xlsx
  16. محمد حسن المحمد's post in صحيفة احوال المعلمين الجديدة was marked as the answer   
    السلام عليكم أخي الكريم
    جزاكم الله خيراً على هذا العمل الذي أعددت به هذه الصحيفة بتنسيق رائع
    لكنني أرى أن تتجدد بيانات هذه الصحيفة عند كل كود تدرجه، بحيث لا تضطر أو يضطر المستخدم بعد تحديث بياناتها لإضافة بيانات أخرى، بل يمكنك استخدام جدول آخر تضع فيه هذه البيانات
    وفق رقم الكود أو الاسم ...
    متمنياً لكم التوفيق والسداد
    تقبل تحياتي العطرة والسلام عليكم.
    ملاحظة: للبيان فقط ،قسم من البيانات يتجدد بواسطة رقم الكود بينما قسم آخر ستتم كتابته وفق كل اسم جديد .
  17. محمد حسن المحمد's post in تفقيط الأرقام بالعربي في الإكسل was marked as the answer   
    وعليكم السلام
    يمكنك استبدال الكود لتصبح النتائج كما تريد
    مرفق ربطاً الملف
     
    أما إن كانت لا تزال هناك مشكلة في ظهور اللغة فأنت بحاجة إلى تعديل الإعدادات من لوحة التحكم خيارات اللغة
    كما أن الكود السابق الموجود لديك يعمل بشكل صحيح وقد رأيت أنك استخدمته كمعادلة الصفيف بضغط Ctrl+shift+enter >>> جرب كتابة المعادلة ثانية بالضغط فقط على Enter
    وستحل المشكلة لديك بإذن الله
    تقبل تحياتي.
     
    المصنف1.xlsm
  18. محمد حسن المحمد's post in تغير القسط بعد فترة was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    ولكم بمثل ما دعوتم أخي الكريم
    وما توفيقي إلا بالله
    الحمد لله الذي بنعمته تتم الصالحات، تم بفضل الله تعالى تجاوز كل هذه العقبات أو المشاكل في الملف ، وحسبما فهمت منك أنك تريد قيمة القسط التالي، وقد عملت على هذا الأساس
    أرجو أن تكون به الفائدة المرجوة ...
    والله من وراء القصد
    والسلام عليكم 
    ----------------------------------------------------------------
    ملاحظة: لحساب القسط للشهر القادم نستخدم المعادلة التالية:
    =VLOOKUP(D14+1;'تسديد عميل'!$D$19:$G$58;4;0) أما لحساب القسط للشهر الحالي فقط نحذف + 1 كما يلي:
    =VLOOKUP(D14;'تسديد عميل'!$D$19:$G$58;4;0) يرجى استخدام هذا الملف لأنني أجريت عدة تعديلات في المعادلات بكل الشيتات لم أعلن عنها لضيق الوقت مع الاعتذار.
    الزكاة الخاصة للارسال (1).xls
  19. محمد حسن المحمد's post in معادله تقوم بتحويل الرقم الى حروف was marked as the answer   
    Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim Myno As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo < 0 Then TheNo = TheNo * -1 ReMark = "يتبقى لكم " Else ReMark = "فقط " End If If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then Myno = Mid$(GetNo, i + 1, 3) Else Myno = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(Myno, 1, 3)) > 0 Then RdNo = Mid$(Myno, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(Myno, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(Myno, 2, 1) My10 = MyArry2(RdNo) If Mid$(Myno, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(Myno, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(Myno, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(Myno, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur + " " + "لا غير" Else NoToTxt = ReMark + MyFraction + " " + MySubCur + " " + "لا غير" End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + " " + "لا غير" End If End Function وعليكم السلام، هذا الكود تضعه في موديل
    ثم تكتب هذه المعادلة 
    =NoToTxt(الرقم;العملة;أجزاء العملة)  
  20. محمد حسن المحمد's post in اخفاء مسميات الصفوف والاعمدة مساعدة was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    يمكنك الاستعانة بهذا الكود في السطر الرابع تلغي تفعيل إظهار رؤوس الصفوف والأعمدة
    والسلام عليكم

    Private Sub Workbook_Open() ThisWorkbook.Application.WindowState = xlMaximized ThisWorkbook.Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False End Sub  
  21. محمد حسن المحمد's post in معادلة شرطية تساوي صفر او ناجح was marked as the answer   
    وعليكم السلام أخي الكريم
    تفضل: في الخلية B1 قم بكتابة المعادلة التالية 
    =IF(OR(A1="راسب";A1="غائب");0;IF(A1="ناجح";10;"")) بالتوفيق إن شاء الله
  22. محمد حسن المحمد's post in العثور على السندات المفقودة was marked as the answer   
    وعليكم السلام
    بطريقة بسيطة إليك الحل أخي الكريم:
    =IF(C4-C3>1;C3+1;"")
    المصنف1.xlsx
  23. محمد حسن المحمد's post in محتاج معادلة او كود يعد ايام الشهر الحالى فى الجدول was marked as the answer   
    حياكم الله
    أخي الكريم تفضل أرجو أن ينال إعجابكم
     
     
     
    Ex2.xlsx
  24. محمد حسن المحمد's post in نسبة عمولة باكثر من شرط was marked as the answer   
    السلام عليكم ورحمة الله وبركاته 💐
    أخي الحبيب م. ياسر ❤️🌺
    أولاً أعتذر عن التأخر في الرد بسبب ضغط العمل
    ثانيا: حاولت أن أجمع لك كل ما طلبت في المشاركة الأولى وفي ملفك الذي أدرجته
    أرجو أن تنتفع به سائلا إياكم الدعاء
    والسلام عليكم ورحمة الله وبركاته 
    Sales Commission.xlsx
  25. محمد حسن المحمد's post in حساب الخصم علي المشتريات بعدة شروط was marked as the answer   
    وعليكم السلام ورحمة الله وبركاته
    الجواب كما يلي:
    إن أردت تطبيق المعادلة على كل المعطيات لديك ضع هذه المعادلة ،واسحب نزولاً.
    =IF(AND(W6=12;V6=1;U6>=500;T6>=1800;S6<=3600);35%;IF(AND(W6=18;V6=2;U6>=750;T6>=3650;S6<=5500);40%;IF(AND(W6=24;V6=3;U6>=1000;T6>=5550;S6<=7500);45%;IF(AND(W6=30;V6=4;U6>=1500;T6>=7550;S6<=10000);50%)))) أرجو أن تنتفع به .
    تقبل تحياتي.
     
    طلب مساعدة.xlsx
×
×
  • اضف...

Important Information