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

السلام عليكم ورحمة الله حل بكود بسيط مع نطاقات بالتسمية... xxzz (3).xlsm

السلام عليكم ورحمة الله وهذا حل آخر (مع الحل السابق) باستعمال الدالة SUMPRODUCT... xxzz (2).xlsm

السلام عليكم ورحمة الله بمعادلة صفيف تم عمل المطلوب في الدالة MATCH... دون اللجوء لعمود مساعد... xxzz (1).xlsm

السلام عليكم اقتراح في الملف المرفق... حساب مدة اخر ترقية.xlsx

استاذ موسى انا جربت التعديل على البرنامج حسب معرفتي وكانت النتائج كما في الصورة وهي مطابقة لما اريد لكن قمت بتنزيل الباقي يدوي

شركة مايكروا تعلن خطط ثم تتخلى عنها مثلا بدلا من تطوير ويندوز موبايل والذي كان من اقوى انظمة تشغيل منصة ارم تخلت عنه وانتجت نظام ويندوز فون وبدأته من الصفر فحرج نظام فيه الكثير من النواقص ومع الوقت ايضا تخلت عن وكذلك الحال اعلنت ان ويندوز 10 هو اخر نظام للكمبيوترات ووعدت بتحديثات ربع سنوية ثم اصدرت ويندوز 11 وكان يعاني من بعض النواقص في اصدارته الاولى لذا فان الامر لم يحسم وان كنت اتفق معك ان 365 هو المستقبل وربما ايضا ويندوز 365 يكون البديل لانظمة التشغيل الحالية الامر ليس كذلك وانما الامر مرتبط باتفاقات مع بعض جهات العمل توجد متاجر تبيع مفاتيح تفعيل اصلية بمبالغ تتراوم من 4 دولار الى 10 ويكون التنشيط عن طريق الموقع الرسمي لمايكروسوفت ويرتبط المفتاح بحسابك اي انه عند عمل فورمات يتم التنشيط بمجرد تسجيل بريدك الهوتميل تحياتي

السلام عليكم ورحمه الله وبركاته احبائي في الله اقدم لكم برامج الكنترول المدرسي من الصف الاول الابتدائي حتى الصف السادس هذه البرامج صممتها من عدة سنوات وكنت أعمل بها ولكني لم اشاركها أو انشرها وقد قررت النشر ليستفيد الجميع وتكون حسنة جارية لي وعمل لا ابغي منه إلا ابتغاء وجه الله سبحانه وتعالى. برنامج كنترول الصفوف الأولى برامج كنترول من الرابع حتى السادس في برنامج الصف السادس يمكنك تغيير درجات الرصد حسب محافظتك او التعليمات الواردة اليكم للتواصل والتحميل http://edartelmadrsa.blogspot.com/?m=0

حياك الله أخينا سيد رجب، واستغفر الله العظيم، يكفينا أن نعرف منك أن محاولتنا في الحل حازت على رضاك، ونصيحة من أخيك الصغير لا تمجد في أحد، هذه أمور بسيطة وسترى العشرات من الزملاء ممن يقدم لك مثل هذه الحلول وأكثر. وربنا يسعدك ويوفقك.

أهلا ومرحبا تم عمل المطلوب بالمعادلات وكود لدالة مخصصة أسميتها ConcatRng تعمل عمل الدالة CONCATENATE لتجميع مضامين خلايا من نطاق معين... 1111Microsoft Excel Worksheet.xlsm

إليك المثال حساب مدة اخر ترقية_02.xlsx

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 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

السلام عليكم 🙂 انا لازلت على ابو كلتش ، ما تحولت على الاوتوماتيك 🙂 عملت دالة علشان نتأكد ايهم الصح ، فجربت الطرق الثلاث على جميع السجلات : 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

السلام عليكم ورحمة الله وللحساب أكثر دقة (ليست دقة مطلقة) وبطريقة منطقية عما سبق نتبع الطريقة التالية : استعمال الدالة DATEDIF بين تاريخ اليوم (تاريخ البداية) وتاريخ آخر ترقية مضاف إلية 04 سنوات (تاريخ النهاية). قمت بتطبيق ذلك في الملف المرفق... حساب مدة اخر ترقية (1).xlsx

السلام عليكم سأحاول غدا بحول الله وقوته ما أستطيع عمله في الملف...

السلام عليكم نعم صحيح أن استعمال date(4,0,0) تعطي نتائج غير دقيقة ولكن يمكن استبدالها بـ date(4,1,1) أو date(4,1,0) (الفرق بينهما 01 يوم)... مع ملاحظة أنه في كل الأحوال النتائج غير دقيقة (اختلاف طفيف)... غير أنها تفي الغرض حسب اعتقادي...

وعليكم السلام ورحمة الله وبركاته 🙂 هذا هو كود التحقق للصيغة التي طلبتها : Like "*" & "/" & Year(Date()) وأما بالنسبة للجزئية الثانية ، جرب هذا الكود : If Not Me.TextBox Like "*" & "/" & Year(Date) Then Me.TextBox = Me.TextBox & "/" & Year(Date) End If

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

ممتاز ما شاء الله عليك 🙂 استخدم دالة mod لإضافة الباقي للقسط الأخير 🙂

لا الذكاء الصطناعي شغال على قد حاله 😅 ( على قدر المعطيات ) كان ما متعرف على أنه الفقرة بادية من سطر جديد .. فأنا قمت بضغط Enter قبل الفرة الثانية واشتغل زين 🙂

وعليك السلام أخي أحمد 🙂 ما يقوم به البرنامج هو تقسيم مجموع ( إجمالي المبلغ - المقدم ) / عدد الأقساط .. ( 5000000 - 0 ) / 45 = 111111.111111 ثم يقوم بأخذ الفواصل من الأقساط (0.111111) ويضرها في عدد الأقساط ثم يضيف مجموع هذه الفواصل للقسط الأخير 🙂 فسيكون (0.111111 * 45 ) = 4.999999 ثم يضاف هذا للقسط الأخير فتكون قيمته 4.999999 + 111111 = 111116 ومثل ما قال أخي أبو بسملة @ابو بسمله قم بحذف الأقساط وإضافتها من جديد بسبب وجود خطأ . ولا تنسى تغيير العملة في مصدر بيانات حقل المبلغ لعملة بلدك 🙂 برنامج الأقساط - موسى.rar

مشاركه مع اخى @Moosak جزاه الله خيرا احذف سجلات الاقساط لهذا العميل وقم باضافتها مره اخرى لان بعد مراجعه المثال تبين ان اخر سجلين ليس بتسلسلهم الصحيح بالرغم من انهم واخدين تسلسل مظبوط وتواريخ مظبوطه والسجل اللى قبلهم اللى هو المفروض الاخير 116000 بالتوفيق اخى احمد

البرنامج بالفعل يقوم بذالك .. لاحظ أن القسط الأخير أكبر من الأقساط الأخرى 🙂

انا اشتريت نسخة مايكروسوفت اوفيس 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 ، فلا تنسى الشباب 🙂 جعفر

السلام عليكم في أي شيت تريد ترتيب القائمة حسب الأسماء؟

السلام عليكم ورحمة الله تفضل ما طلبته في الملف المرفق حيث تم الحل بمعادلات صفيف... نسخة من انذار غياب (2).xlsm

اخى الفاضل برجاء مراعاه قوانين المنتدى لكل موضوع سؤال وبما انه تمت الاجابه على الموضوع الاساسى فبرجاء فتح موضوع جديد للسؤال الجديد وارفاق النماذج التى تخص السؤال حتى يتمكن اخوانك واساتذتنا من مساعدتك بالتوفيق

2010 ماتزال صامدة وان كان التوجه الى 365 لما سبق ان اشرنا اليه الفروقات بين النسخ ليست كبيرة في نظر البعض والحديث هنا لا يشمل 365 مع ذلك من المميزات في نسخة 21 الاستعلامات اضافة اكثر من جدول للاستعلام من خلال تحديد الجدول المطلوبة ثم اضافة المحدد في نافذة اضافة جداول يمكن البحث عن الجداول تغيير حجم العرض للجدول بالنقر على الزر الايمن ثم تغيير الحجم وبالتالي يتم عرض كافة حقول الجدول ممكن البحث والاستبدال في طريقة عرض sql اطار اكسس فتح عدة تبويبات والتنقل بينها تصميم الجدول اضافة حقل من نوع وقت تاريخ موسع متوافق مع نوع التاريخ "التاريخ والوقت 2 في SQL Server" ولكن عند استخدامه لن تعمل القاعدة مع الاصدارات الاقدم وقد نحصل على نتائج غير صحيحة في العمليات الحسابية في العلاقات تغيير حجم العرض للجدول بالنقر على الزر الايمن ثم تغيير الحجم وبالتالي يتم عرض كافة حقول الجدول و يمكن استخدام عجلة الماوس لمعاينة حقول الجدول لسهولة اختيار حقول العلاقة اضافة الى تحسينات في ادارة الجداول المرتبطة وكذلك نسق اوفيس باضافة رمادي واسود واعدادات النظام هذه ربما ابرز الاضافات ولكن هل تساوي قيمة المبلغ للانتقال من اصدار سابق ربما نعم وربما لا . اخيرا عندما ارسلت مايكروسوف الاصدار 2021 اخبروني ان هذا اخر اصدار سيتم ارسالة لي وان بامكاني مستقبلا الحصول على اصدار 365 فقط تحياتي

ايضا لم افهم عبارة : جميع النماذج في صفحة واحدة ( في نفس المكان ) اتمنى زيادة الايضاح

السلام عليكم 🙂 وخلال جولتي التفقدية للجديد عن الاكسس ، ممرت بهذا الرابط الذي يعطينا معلومات حقيقية عن واقع استعمال المحترفين العالميين اي نسخة من الاكسس https://www.accessforever.org/post/which-access-versions-do-developers-use وبإختصار . . جعفر

عليكم السلام وارحمة وكل عام وأنتم بألف خير أخي الكريم في كود الترحيل .Cells(x + 1, 15) = mat وفي كود المسح myArea(28, 15) = "" ولك تحياتي

هذه محاولة جرب وخبرنا إلا إذا أردت النتيجة شهور فقط وبكسر عشري غيرنا لك طريقة الحل. التاريخ_02.accdb

اتفضل الملف الثاني بعد الاصلاح والذي أعمل عليه وكتبت عنه (وكله يعمل تمام) Mahdi'sBell-111 (AccessFIX).rar

اخي الكريم هل النماذج كانت فيها اكواد وعناصر .... لانها تبدو فارغة من الاكواد ؟؟

عليكم السلام لو عملت كم نموذج من التي تريد فتحها ،، ووضحت اسم العقدة لكل نموذج من اجل تستطيع اكمال البقية

انا وضعت شرح في مشاركتي السابقة ، فرجاء ترجع لي بشرح اكثر وامثلة اضافيه عن طلبك الثاني

السلام عليكم تحايلا مع المعطيات تم تقديم حلين بالدالتين SUM و SUMPRODUCT في الملف المرفق... مسافة مخفية (2).xlsx

السلام عليكم محاولة في المرفق ويبقى تطبيق الفكرة نفسها على الموضوع البعيد خالص عن الأقساط... 2.xlsx

بسيطة 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

وعليكم السلام ورحمة الله وبركاته بعد اذن استاذنا الاستاذ محمد بالمرفقات محاولة لعلها المطلوب باستخدام الدالة (DateDif) ارجو التجربة. حساب مدة اخر ترقية.xlsx

وعليكم السلام .. بالنسبة لسؤالك الاول ..الدالة بتشتغل معاك كويس ومافيهاش مشكلة الشطر الثاني من السؤال ... يمكنك عمل مربع نص بأسم 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

في شيت يومي يمكن نسخ أي جدول واقحامه بين جدولين باستخدام "Insert Coped Cells" في الكود المرفق يمكنك إضافة أو إقحام صفوف و عليك أن تضيف الصفوف كما ذكرت سابقاً بنفس ترتيب الجدول عسى ولعل يرضيك هذا الحل ايجاد كود للتوزيع3.xlsm

عليكم السلام والرحمة عسى يكون المطلوب مع ملا حظة أن الدرس السادس كما لا حظت فارغ دائما وإلا الكود لن يعمل إذا ولا بد اعلمني للتعديل ايجاد كود للتوزيع.xlsm

اللهم اغفر له واعف عنه واكرم نزله ووسع مدخله واغسله بالماء والثلج والبرد ونقيه من الخطايا كما ينقى الثوب الابيض من الدنس اللهم ان كان محسنا فزد في احسانه وتجاوز عن سيئات اللهم آنس وحشته اللهم اجعل قبره روضة من رياض الجن اللهم ان عبدك الان بين يديك اللهم جازيه بالاحسان احسانا وبالسيئات عفوا ومغفرة ورضوانا اللهم ابدله دارا خيرا من داره واهلا خيرا من اهله اللهم اسكنه الفردوس الاعلى من الجنة

جعل الله قلوبكم عامرة بالايمان وموازينكم بالحسنات ان شاء الله وعمركم بالبركة وحياتكم بالسعادة وبيوتكم بكل الخيرات ان شاء الله با استاذ @jjafferr انت وكل اساتذتنا الافاضل واخواننا

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

أولا قبل كل شيء أعتذر عن تاخر ردي لأنشغالي .. وكذلك تطلب مني التاكد من فاعلية كل الطرق والحلول والاكواد أشكر أساتذتي الغالين @jjafferr و @صالح حمادي و @husamwahab على تعاونكم الكبير معي فجزاكم الله عني وعن الاسلام خيرا أخي @husamwahab أشكرك على كل مابذلته .. فحلولك رائعة .. واستفدت منها .. شكرا لك أستاذي الغالي @صالح حمادي هذه الطريقة جميلة وفكرة جيدة لكن في الحقيقة لم تنفع لسبب تعارض الترقيم مع نسخ قاعدة البيانات عند العملاء السابقة لكن لا يمنع من استخدامها في امور اخرى أن شاء الله .. لك كل الشكر والتقدير استاذي أستاذي الكبير والغالي @jjafferr حرت في كلماتي ماذا عساي أن أقول لك .. تارتاً أقول في نفسي أنك (( المنقذ )) وتارتاً (( معجزة المحترفين )) .. لكن .. الواقع أنك بفضل الله ماتدخلت في حل مشكلة ألا وكانت حلولك مدهشة ولم تكون أبداً في الحسبان .. أحمد الله على وجودك معنا فأنت كنزاً ثمين لا يقدر بثمن فلك كل الشكر والتقدير والاحترام .. أسأل الله أن يجعل عملك هذا ذخراً في ميزان حسناتك يوم أن تلقاه وأن يدخلك ووالديك الجنة الفردوس الاعلى .. وأن يصلح لك ذريتك .. أنه على مايشاء قدير .. وكذلك هذه الدعوات بالمثل للجميع فجزاكم الله جميع عنا خيرا

انا سأحاول ان اطبق على شبكة بأكثر من كمبيوترين ، وان شاء الله خير 🙂 جعفر

السلام عليكم ورحمة الله استخدم هذا الكود Sub Right_To_Left() Dim ws As Worksheet For Each ws In Worksheets ws.DisplayRightToLeft = True Next End Sub