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

نجوم المشاركات

  1. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      23

    • Posts

      4,330


  2. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      5

    • Posts

      9,724


  3. AbuuAhmed

    AbuuAhmed

    الخبراء


    • نقاط

      5

    • Posts

      919


  4. Moosak

    Moosak

    أوفيسنا


    • نقاط

      5

    • Posts

      1,823


Popular Content

Showing content with the highest reputation on 31 ديس, 2022 in all areas

  1. السلام عليكم ورحمة الله حل بكود بسيط مع نطاقات بالتسمية... xxzz (3).xlsm
    4 points
  2. السلام عليكم ورحمة الله وهذا حل آخر (مع الحل السابق) باستعمال الدالة SUMPRODUCT... xxzz (2).xlsm
    3 points
  3. السلام عليكم ورحمة الله بمعادلة صفيف تم عمل المطلوب في الدالة MATCH... دون اللجوء لعمود مساعد... xxzz (1).xlsm
    3 points
  4. السلام عليكم اقتراح في الملف المرفق... حساب مدة اخر ترقية.xlsx
    3 points
  5. استاذ موسى انا جربت التعديل على البرنامج حسب معرفتي وكانت النتائج كما في الصورة وهي مطابقة لما اريد لكن قمت بتنزيل الباقي يدوي
    2 points
  6. شركة مايكروا تعلن خطط ثم تتخلى عنها مثلا بدلا من تطوير ويندوز موبايل والذي كان من اقوى انظمة تشغيل منصة ارم تخلت عنه وانتجت نظام ويندوز فون وبدأته من الصفر فحرج نظام فيه الكثير من النواقص ومع الوقت ايضا تخلت عن وكذلك الحال اعلنت ان ويندوز 10 هو اخر نظام للكمبيوترات ووعدت بتحديثات ربع سنوية ثم اصدرت ويندوز 11 وكان يعاني من بعض النواقص في اصدارته الاولى لذا فان الامر لم يحسم وان كنت اتفق معك ان 365 هو المستقبل وربما ايضا ويندوز 365 يكون البديل لانظمة التشغيل الحالية الامر ليس كذلك وانما الامر مرتبط باتفاقات مع بعض جهات العمل توجد متاجر تبيع مفاتيح تفعيل اصلية بمبالغ تتراوم من 4 دولار الى 10 ويكون التنشيط عن طريق الموقع الرسمي لمايكروسوفت ويرتبط المفتاح بحسابك اي انه عند عمل فورمات يتم التنشيط بمجرد تسجيل بريدك الهوتميل تحياتي
    2 points
  7. السلام عليكم ورحمه الله وبركاته احبائي في الله اقدم لكم برامج الكنترول المدرسي من الصف الاول الابتدائي حتى الصف السادس هذه البرامج صممتها من عدة سنوات وكنت أعمل بها ولكني لم اشاركها أو انشرها وقد قررت النشر ليستفيد الجميع وتكون حسنة جارية لي وعمل لا ابغي منه إلا ابتغاء وجه الله سبحانه وتعالى. برنامج كنترول الصفوف الأولى برامج كنترول من الرابع حتى السادس في برنامج الصف السادس يمكنك تغيير درجات الرصد حسب محافظتك او التعليمات الواردة اليكم للتواصل والتحميل http://edartelmadrsa.blogspot.com/?m=0
    2 points
  8. حياك الله أخينا سيد رجب، واستغفر الله العظيم، يكفينا أن نعرف منك أن محاولتنا في الحل حازت على رضاك، ونصيحة من أخيك الصغير لا تمجد في أحد، هذه أمور بسيطة وسترى العشرات من الزملاء ممن يقدم لك مثل هذه الحلول وأكثر. وربنا يسعدك ويوفقك.
    2 points
  9. أهلا ومرحبا تم عمل المطلوب بالمعادلات وكود لدالة مخصصة أسميتها ConcatRng تعمل عمل الدالة CONCATENATE لتجميع مضامين خلايا من نطاق معين... 1111Microsoft Excel Worksheet.xlsm
    2 points
  10. إليك المثال حساب مدة اخر ترقية_02.xlsx
    2 points
  11. بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry
    1 point
  12. السلام عليكم 🙂 انا لازلت على ابو كلتش ، ما تحولت على الاوتوماتيك 🙂 عملت دالة علشان نتأكد ايهم الصح ، فجربت الطرق الثلاث على جميع السجلات : Function Which_Chr_is_used() As String Dim x() As String, x1() As String, x2() As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select ID, Nass From book Order by ID") Do Until rst.EOF x = Split(rst!Nass, vbCrLf) 'chr(13) & chr(10) x1 = Split(rst!Nass, vbCr) 'chr(13) x2 = Split(rst!Nass, vbLf) 'chr(10) Debug.Print rst!ID, UBound(x), UBound(x1), UBound(x2) rst.MoveNext Loop rst.Close: Set rst = Nothing End Function . والصقت البيانات في الاكسل ، وبعد عمل تنسيق شرطي ، عرفت بأن فاصل الفقرات هو chr(13) ، لأنه موجود في جميع السجلات اللي نحتاج لها : . للجزء الثاني ، عملت وحدة نمطية : Function Search_for_Two_Numbers(ID As Integer, txt As String) As String On Error GoTo err_Search_for_Two_Numbers Dim x() As String Dim i As Integer, How_Many_Numbers As Integer How_Many_Numbers = 0 '1st letter If IsNumeric(Left(txt, 1)) Then How_Many_Numbers = How_Many_Numbers + 1 End If x = Split(txt, Chr(13)) 'Do we have a new Paragraph 'check if the begining of the new Paragraph is a number For i = 1 To UBound(x) If IsNumeric(Mid(x(i), i + 1, 1)) Then 'Debug.Print ID, Mid(x(i), i + 1, 1) How_Many_Numbers = How_Many_Numbers + 1 End If Next i Search_for_Two_Numbers = How_Many_Numbers Exit_Search_for_Two_Numbers: Exit Function err_Search_for_Two_Numbers: If Err.Number = 9 Then Resume Next ElseIf Err.Number = 13 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . نناديها من الاستعلام. عملت لك استعلامين ، Query2 حتى تعرف كيف ناديت الوحدة النمطية ، وحتى اذا اردت اللعب بها وترى نتائجها ، والاستعلام Query3 ليعمل تحديث في الجدول: جعفر 1539.check_Book2.zip
    1 point
  13. السلام عليكم ورحمة الله وللحساب أكثر دقة (ليست دقة مطلقة) وبطريقة منطقية عما سبق نتبع الطريقة التالية : استعمال الدالة DATEDIF بين تاريخ اليوم (تاريخ البداية) وتاريخ آخر ترقية مضاف إلية 04 سنوات (تاريخ النهاية). قمت بتطبيق ذلك في الملف المرفق... حساب مدة اخر ترقية (1).xlsx
    1 point
  14. السلام عليكم سأحاول غدا بحول الله وقوته ما أستطيع عمله في الملف...
    1 point
  15. السلام عليكم نعم صحيح أن استعمال date(4,0,0) تعطي نتائج غير دقيقة ولكن يمكن استبدالها بـ date(4,1,1) أو date(4,1,0) (الفرق بينهما 01 يوم)... مع ملاحظة أنه في كل الأحوال النتائج غير دقيقة (اختلاف طفيف)... غير أنها تفي الغرض حسب اعتقادي...
    1 point
  16. وعليكم السلام ورحمة الله وبركاته 🙂 هذا هو كود التحقق للصيغة التي طلبتها : Like "*" & "/" & Year(Date()) وأما بالنسبة للجزئية الثانية ، جرب هذا الكود : If Not Me.TextBox Like "*" & "/" & Year(Date) Then Me.TextBox = Me.TextBox & "/" & Year(Date) End If
    1 point
  17. السلام عليكم ورحمة الله معذرة على هذا الخلل... وشكرا على الملاحظة لقد تم إدراج الملف الصحيح في الرد بالأعلى...
    1 point
  18. ممتاز ما شاء الله عليك 🙂 استخدم دالة mod لإضافة الباقي للقسط الأخير 🙂
    1 point
  19. لا الذكاء الصطناعي شغال على قد حاله 😅 ( على قدر المعطيات ) كان ما متعرف على أنه الفقرة بادية من سطر جديد .. فأنا قمت بضغط Enter قبل الفرة الثانية واشتغل زين 🙂
    1 point
  20. وعليك السلام أخي أحمد 🙂 ما يقوم به البرنامج هو تقسيم مجموع ( إجمالي المبلغ - المقدم ) / عدد الأقساط .. ( 5000000 - 0 ) / 45 = 111111.111111 ثم يقوم بأخذ الفواصل من الأقساط (0.111111) ويضرها في عدد الأقساط ثم يضيف مجموع هذه الفواصل للقسط الأخير 🙂 فسيكون (0.111111 * 45 ) = 4.999999 ثم يضاف هذا للقسط الأخير فتكون قيمته 4.999999 + 111111 = 111116 ومثل ما قال أخي أبو بسملة @ابو بسمله قم بحذف الأقساط وإضافتها من جديد بسبب وجود خطأ . ولا تنسى تغيير العملة في مصدر بيانات حقل المبلغ لعملة بلدك 🙂 برنامج الأقساط - موسى.rar
    1 point
  21. مشاركه مع اخى @Moosak جزاه الله خيرا احذف سجلات الاقساط لهذا العميل وقم باضافتها مره اخرى لان بعد مراجعه المثال تبين ان اخر سجلين ليس بتسلسلهم الصحيح بالرغم من انهم واخدين تسلسل مظبوط وتواريخ مظبوطه والسجل اللى قبلهم اللى هو المفروض الاخير 116000 بالتوفيق اخى احمد
    1 point
  22. البرنامج بالفعل يقوم بذالك .. لاحظ أن القسط الأخير أكبر من الأقساط الأخرى 🙂
    1 point
  23. انا اشتريت نسخة مايكروسوفت اوفيس 2021 Pro Plus الذي يحتوي على مايكروسوفت اكسس بمبلغ 39.99$ يعني حوالي 40$ من هنا : https://store.techspot.com/sales/microsoft-office-professional-plus-2021-for-windows?utm_source=techspot.com&utm_medium=referral&utm_campaign=microsoft-office-professional-090922 في هذه الحالة ، حُسم الامر ، Microsoft 365 هو المستقبل 🙂 بس اذا فيه عزيمة ويوزعون فيه اصدار 365 ، فلا تنسى الشباب 🙂 جعفر
    1 point
  24. السلام عليكم في أي شيت تريد ترتيب القائمة حسب الأسماء؟
    1 point
  25. السلام عليكم ورحمة الله تفضل ما طلبته في الملف المرفق حيث تم الحل بمعادلات صفيف... نسخة من انذار غياب (2).xlsm
    1 point
  26. اخى الفاضل برجاء مراعاه قوانين المنتدى لكل موضوع سؤال وبما انه تمت الاجابه على الموضوع الاساسى فبرجاء فتح موضوع جديد للسؤال الجديد وارفاق النماذج التى تخص السؤال حتى يتمكن اخوانك واساتذتنا من مساعدتك بالتوفيق
    1 point
  27. 2010 ماتزال صامدة وان كان التوجه الى 365 لما سبق ان اشرنا اليه الفروقات بين النسخ ليست كبيرة في نظر البعض والحديث هنا لا يشمل 365 مع ذلك من المميزات في نسخة 21 الاستعلامات اضافة اكثر من جدول للاستعلام من خلال تحديد الجدول المطلوبة ثم اضافة المحدد في نافذة اضافة جداول يمكن البحث عن الجداول تغيير حجم العرض للجدول بالنقر على الزر الايمن ثم تغيير الحجم وبالتالي يتم عرض كافة حقول الجدول ممكن البحث والاستبدال في طريقة عرض sql اطار اكسس فتح عدة تبويبات والتنقل بينها تصميم الجدول اضافة حقل من نوع وقت تاريخ موسع متوافق مع نوع التاريخ "التاريخ والوقت 2 في SQL Server" ولكن عند استخدامه لن تعمل القاعدة مع الاصدارات الاقدم وقد نحصل على نتائج غير صحيحة في العمليات الحسابية في العلاقات تغيير حجم العرض للجدول بالنقر على الزر الايمن ثم تغيير الحجم وبالتالي يتم عرض كافة حقول الجدول و يمكن استخدام عجلة الماوس لمعاينة حقول الجدول لسهولة اختيار حقول العلاقة اضافة الى تحسينات في ادارة الجداول المرتبطة وكذلك نسق اوفيس باضافة رمادي واسود واعدادات النظام هذه ربما ابرز الاضافات ولكن هل تساوي قيمة المبلغ للانتقال من اصدار سابق ربما نعم وربما لا . اخيرا عندما ارسلت مايكروسوف الاصدار 2021 اخبروني ان هذا اخر اصدار سيتم ارسالة لي وان بامكاني مستقبلا الحصول على اصدار 365 فقط تحياتي
    1 point
  28. ايضا لم افهم عبارة : جميع النماذج في صفحة واحدة ( في نفس المكان ) اتمنى زيادة الايضاح
    1 point
  29. السلام عليكم 🙂 وخلال جولتي التفقدية للجديد عن الاكسس ، ممرت بهذا الرابط الذي يعطينا معلومات حقيقية عن واقع استعمال المحترفين العالميين اي نسخة من الاكسس https://www.accessforever.org/post/which-access-versions-do-developers-use وبإختصار . . جعفر
    1 point
  30. عليكم السلام وارحمة وكل عام وأنتم بألف خير أخي الكريم في كود الترحيل .Cells(x + 1, 15) = mat وفي كود المسح myArea(28, 15) = "" ولك تحياتي
    1 point
  31. هذه محاولة جرب وخبرنا إلا إذا أردت النتيجة شهور فقط وبكسر عشري غيرنا لك طريقة الحل. التاريخ_02.accdb
    1 point
  32. اتفضل الملف الثاني بعد الاصلاح والذي أعمل عليه وكتبت عنه (وكله يعمل تمام) Mahdi'sBell-111 (AccessFIX).rar
    1 point
  33. اخي الكريم هل النماذج كانت فيها اكواد وعناصر .... لانها تبدو فارغة من الاكواد ؟؟
    1 point
  34. عليكم السلام لو عملت كم نموذج من التي تريد فتحها ،، ووضحت اسم العقدة لكل نموذج من اجل تستطيع اكمال البقية
    1 point
  35. انا وضعت شرح في مشاركتي السابقة ، فرجاء ترجع لي بشرح اكثر وامثلة اضافيه عن طلبك الثاني
    1 point
  36. السلام عليكم تحايلا مع المعطيات تم تقديم حلين بالدالتين SUM و SUMPRODUCT في الملف المرفق... مسافة مخفية (2).xlsx
    1 point
  37. السلام عليكم محاولة في المرفق ويبقى تطبيق الفكرة نفسها على الموضوع البعيد خالص عن الأقساط... 2.xlsx
    1 point
  38. بسيطة Sub protect_sh() Dim i& Dim p As String p = InputBox("ÃÏÎá ßáãÉ ÇáÓÑ") For i = 1 To Sheets.Count Sheets(i).Protect p Next End Sub Sub unprotectsh() Dim i& Dim p As String p = InputBox("ÃÏÎá ßáãÉ ÇáÓÑ") For i = 1 To Sheets.Count Sheets(i).Unprotect p Next End Sub
    1 point
  39. وعليكم السلام ورحمة الله وبركاته بعد اذن استاذنا الاستاذ محمد بالمرفقات محاولة لعلها المطلوب باستخدام الدالة (DateDif) ارجو التجربة. حساب مدة اخر ترقية.xlsx
    1 point
  40. وعليكم السلام .. بالنسبة لسؤالك الاول ..الدالة بتشتغل معاك كويس ومافيهاش مشكلة الشطر الثاني من السؤال ... يمكنك عمل مربع نص بأسم Ds ومربع نص ثاني باسم De ويمكنك ان تخفيهما في النموذج ..وتجعل مصد السجلات لهما هكذا Ds =DLast("[strDate]";"[TblLeaveRegistrationOrdinary]";"[Emp]='" & [Emp] & "'") De =DLast("[EndDate]";"[TblLeaveRegistrationOrdinary]";"[Emp]='" & [Emp] & "'") وفي حدث بعد التحديث للحقل DateShift في النموذج تضع الكود التالي Private Sub DateShift_AfterUpdate() If Me.DateShift >= Me.Ds And Me.DateShift <= Me.De Then MsgBox "الموظف في اجاؤة" DoCmd.CancelEvent Me.DateShift = "" End If End Sub
    1 point
  41. في شيت يومي يمكن نسخ أي جدول واقحامه بين جدولين باستخدام "Insert Coped Cells" في الكود المرفق يمكنك إضافة أو إقحام صفوف و عليك أن تضيف الصفوف كما ذكرت سابقاً بنفس ترتيب الجدول عسى ولعل يرضيك هذا الحل ايجاد كود للتوزيع3.xlsm
    1 point
  42. عليكم السلام والرحمة عسى يكون المطلوب مع ملا حظة أن الدرس السادس كما لا حظت فارغ دائما وإلا الكود لن يعمل إذا ولا بد اعلمني للتعديل ايجاد كود للتوزيع.xlsm
    1 point
  43. اللهم اغفر له واعف عنه واكرم نزله ووسع مدخله واغسله بالماء والثلج والبرد ونقيه من الخطايا كما ينقى الثوب الابيض من الدنس اللهم ان كان محسنا فزد في احسانه وتجاوز عن سيئات اللهم آنس وحشته اللهم اجعل قبره روضة من رياض الجن اللهم ان عبدك الان بين يديك اللهم جازيه بالاحسان احسانا وبالسيئات عفوا ومغفرة ورضوانا اللهم ابدله دارا خيرا من داره واهلا خيرا من اهله اللهم اسكنه الفردوس الاعلى من الجنة
    1 point
  44. جعل الله قلوبكم عامرة بالايمان وموازينكم بالحسنات ان شاء الله وعمركم بالبركة وحياتكم بالسعادة وبيوتكم بكل الخيرات ان شاء الله با استاذ @jjafferr انت وكل اساتذتنا الافاضل واخواننا
    1 point
  45. بسم الله ما شاء الله .. الله اكبر فعلا اضم صوتى لاخى الحبيب ولذلك قبل ايام قليلة قلت فى استاذى الجليل تلك الكلمات والتى احسها على لسان حال كل صاحب حاجة وجد ضالته بفضل الله تعالى ثم بفضل استاذى الجليل
    1 point
  46. أولا قبل كل شيء أعتذر عن تاخر ردي لأنشغالي .. وكذلك تطلب مني التاكد من فاعلية كل الطرق والحلول والاكواد أشكر أساتذتي الغالين @jjafferr و @صالح حمادي و @husamwahab على تعاونكم الكبير معي فجزاكم الله عني وعن الاسلام خيرا أخي @husamwahab أشكرك على كل مابذلته .. فحلولك رائعة .. واستفدت منها .. شكرا لك أستاذي الغالي @صالح حمادي هذه الطريقة جميلة وفكرة جيدة لكن في الحقيقة لم تنفع لسبب تعارض الترقيم مع نسخ قاعدة البيانات عند العملاء السابقة لكن لا يمنع من استخدامها في امور اخرى أن شاء الله .. لك كل الشكر والتقدير استاذي أستاذي الكبير والغالي @jjafferr حرت في كلماتي ماذا عساي أن أقول لك .. تارتاً أقول في نفسي أنك (( المنقذ )) وتارتاً (( معجزة المحترفين )) .. لكن .. الواقع أنك بفضل الله ماتدخلت في حل مشكلة ألا وكانت حلولك مدهشة ولم تكون أبداً في الحسبان .. أحمد الله على وجودك معنا فأنت كنزاً ثمين لا يقدر بثمن فلك كل الشكر والتقدير والاحترام .. أسأل الله أن يجعل عملك هذا ذخراً في ميزان حسناتك يوم أن تلقاه وأن يدخلك ووالديك الجنة الفردوس الاعلى .. وأن يصلح لك ذريتك .. أنه على مايشاء قدير .. وكذلك هذه الدعوات بالمثل للجميع فجزاكم الله جميع عنا خيرا
    1 point
  47. انا سأحاول ان اطبق على شبكة بأكثر من كمبيوترين ، وان شاء الله خير 🙂 جعفر
    1 point
  48. السلام عليكم ورحمة الله استخدم هذا الكود Sub Right_To_Left() Dim ws As Worksheet For Each ws In Worksheets ws.DisplayRightToLeft = True Next End Sub
    1 point
×
×
  • اضف...

Important Information