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

وعليكم السلام -يمكنك ذلك بجعل التنسيق هكذا [$-,2000000]0.00_);[Red](0.00) TEST1.xlsx

السلام عليكم ورحمة الله وبركاته .. وبدون مقدمات 🙂 يطيب لي أن أضع بين يديكم برنامج ( مكتبة الأكواد الخاصة ) كان الهدف من تصميم البرنامج أن يخدمني بشكل خاص وذلك لحفظ الأكواد التي أحتاجها بشكل دائم وتجميعها في مكان واحد وتسهيل عملية البحث والوصول إليها بكل سهولة .. والبرنامج به تجميعة طيبة من الأكواد بعضها مما أبدعه الشباب هنا وبعضها مما صنعتها بنفسي ومنها من مواقع مختلفة .. والآن أحببت أن أشارككم بها وأن تعم الفائدة للجميع 🙂 البرنامج طبعا مفتوح بأحلاسه وأقلاسه ( بنماذجه وأكواده ) 😁 ويوجد فيه خاصية البحث ، وإدراج مرفقات (خارجية طبعا ) ومتاح للتطوير والتعديل والزيادة وتطويعه حسب احتياجاتكم .. 🌹 :: ولا تنسوني من صالح دعواتكم :: Pleeeeeeeeeeeeeeese 😄🤲🌷🌹 (واجهة البرنامج) (نافذة تفاصيل الكود) أعتقد البرنامج ما محتاج شرح واضح وضوح الشمس 😁 ::والتحميل في المرفقات :: مكتبة الأكواد الخاصة.accdb

برنامج لتجميع اكواد الاكسيس قابل للتطوير : موجه للاخوة المبتدئين مثلي حتى يتمكنوا من تجميع اساسيات الفجوال بيزيك الاساسية في ملف واحد DataCodeVba.accdb

وعليكم السلام ورحمة الله اليك هذا الكود جربه يقوم بترحيل بشروط : اولها يفحص الخلايا في العمود 17 اذا كانت متطابقة مع اي شهر (مسميات الصفحات) تانيا : يفحص كود العميل في العمود b في الداتا و العمود b في شهر (الصفحة المطابقة للشرط الاول) اذا وجد الكود يمر الى التالي وغير ذلك يرحل ملاحظة : اضف تتمة الكود حسب ما تريد ان يرحل تحياتييييييييييييييييييييييييييي Option Explicit Sub tarhil2() Dim sh As Worksheet Dim ws As Worksheet Set ws = Sheets("Accmove") Dim lr1, lr2, x Application.ScreenUpdating = False lr1 = ws.Cells(Rows.Count, 3).End(3).Row For Each sh In Sheets If sh.Name <> "Accmove" Then For x = 4 To lr1 lr2 = sh.Cells(Rows.Count, 2).End(3).Row If lr2 = 3 Then lr2 = lr2 + 1 If sh.Name = ws.Cells(x, 17).Text Then If Application.WorksheetFunction.CountIf(sh.Range("b5:b" & lr2), ws.Cells(x, 2)) > 0 Then GoTo 1 '=============== sh.Range("b" & lr2 + 1).Value = ws.Cells(x, 2) sh.Range("c" & lr2 + 1).Value = ws.Cells(x, 3) 'اضف ما تريد ان يرحل هنا كالسطرين اعلاه '=============== End If 1: Next x End If Next sh Application.ScreenUpdating = True End Sub

الف الف شكر لحضرتك ..ربنا يبارك فيك ويكرمك

هدية جميلة ولك الشكر والتقدير لدي بعض الملاحظات البسيطة تجعل العمل افضل واسهل من وجهة نظر مبرمج متقاعد ادخال الاقساط في النموذج الفرعي امر مرهق وغير عملي ويمكن عمل كود يتولى المهمة ولكن يتطلب منا اضافة ثلاثة حقول ليعمل الكود حقل بداية السداد نوعه تاريخ وحقل المدة رقمي نحدد فيه عدد الاشهر خلال مدة القرض واخيرا حقل مبلغ القسط ايضا رقمي مزدوج ليقبل الكسور ثم نعمل حلقة دوارة تقوم باضافة السجلات بدلا من اغلاق النموذج واعادة فتحه لمشاهدة التغيير في حقول المبلغ المدفوع والمتبقي عند اختيار خانه تم الدفع يمكن وضع الامر ⬇️ Me.Parent.Recalc في شرحك عند تقسيم المبلغ على عدد الاشهر تجاوزت الكسر العشري وهذا سوف يسبب خطا في الاجمالي وبدلا من ذلك يمكن استخدام الدالة int وهي تسمح لنا بذلك ثم نقوم بحساب المتبقي من القسمة بدالة mod والافضل من ذلك ان نقوم بعمل كود يقوم بحساب المتبقي بدون mod واضافتة على القسط الاول او الاخير وبشكل الى من خلال الكود الذي اشرنا اليه في الفقرة الاولى اخير اضافة ثلاث نماذج فرعية في الرئيسي بشكل مخفي لغرض الحصول على قيمة بعض الحقول امر غير عملي ويمكن بدلا من ذلك استخدام دالة dsum وبالشروط التي تحقق لنا الحصول على القيمة المطلوبة لكل حقل وحينها نسنغني عن ثلاث نماذج وثلاث استعلامات اخيرا هي وجهة نظر غير ملزمة وليس الهدف منها النقد وانما زكاة العلم نشره تحياتي وتقديري

السلام عليكم سينم بحث الأمر باذن الله تعالي

وبما انك لم تقم برفع الملف فسيتم الرد عليك أيضاً بدون ملف ... يمكنك مشاهدة هذا الفيديو وهذا فيديو أخر How to Create Barcodes in Excel - الطريقة الأسهل على الإطلاق لإنشاء الباركود في الإكسل

يوجد بالمشاركه السابقه لى ملف للاخوات وليس التؤام الموضوع به ملفات كثيره من ضمنها ملف للاخوات

المفروض ان BE على سيرفر ...حتى لو انقطع احد FE فانه لايؤثر على البقية ربما السيرفر موجود عند احد FE... وانقطاعه يؤثر على البقية ؟

تفضل هذا التعديل مع بعض التعديلات على المكتبة و الاكواد حتى يكون اكثر تفاعلاً عند الاختيار و التنقل __Domain Functions Builder V1.0.accdb تم تغيير المكتبة يرجى تجربة اخر تعديل

السلام عليكم و رحمة الله وبركاته اخي الصواف طلبك له عدة حلول تفضل استاذي الفاضل الباش مهندس طارق بحل = واستخدم كود اخفاء الصفوف التي لايوجد بها القيمة المطلوبة وتفضل اخي الفاضل حسين بحل = بكود التصفية المتقدمة الذي يظهر النتائج في نطاق جديد و الطريقة الثالثة = باستخدام كود التصفية التلقائية AutoFilterوهذا يقوم بعمل التصفية في نفس الجدول بحيث يمكنك الكتابة و التعديل و الطريقة الرابعة = باستخدام الدوال Search - Max - Index - match وسوف يتم استخراج النتائج في ورقة جديدة مع ملاحظة انه لايمكن التعديل في النتائج او الكتابه عليها

السلام عليكم ورحمة الله أخي الكريم، أهلا بك عضوا جديدا بين إخوانك، أخي الحبيب محمود بارك الله فيك وجزاك الله خيرا... في الملف المرفق تجد حلا آخر بكود بسيط جدا... أرجو أن يفي أيضا بالغرض المطلوب... أخوك بن علية حالة وفقا لرقم.rar

الشكر لله أخى (محمد ) وبارك الله فيك وفى أعمالك