جمعة العوامي

شكرا للجميع ؛؛

اضافة للموضوع ..هذا ملف للتفقيط ممتاز بصراحة .. ويمكن تعديل كلمتي العملة من داخل الكود فقط .. والباقي يشتغل تمام!! التفقيط.xlsm

جرب هذا الملف .. ان كنت لم تتحصل على اجابة بعد .. واعمل لي اشارة هل اشتغل عندك والا لا ؟ التفقيط.xlsm

ليس هناك داع لهذا كله ضع هذا الكود في حدث اغلاق ورقة العمل كما تلاحظ وسوف يحفظ نسخة تلقائية بتاريخ اليوم .. أسهل واحسن وذلك في دليل في نفس المجلد الذي به ملف العمل .. باسم saveit ... قم بانشائه على جهازك Private Sub Workbook_Deactivate() Dim saveFilename As String Dim savedate As String savedate = Format(Date, "yyyyMMdd") Application.DisplayAlerts = False saveFilename = ThisWorkbook.Name ActiveWorkbook.SaveAs ThisWorkbook.Path & "\saveit\" & saveFilename & savedate Application.DisplayAlerts = True End Sub

لم أستوعب قصدك ... ممكن شرح المسألة ولو في ملف مرفق ..

تفضل الحل ... عن طريق الكود !!! Copy of GCC_Expense_Report_Tax_Details_190621 1_تم التعديل.xlsb

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

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

من غير مقابل .. باذن الله

اقتبست الكثير من المعادلات واكواد vba ومن كثرتها لا أعرف أصحابها الحقيقيين .. وزدت عليها صممت بها برامج تنفع الآخرين .. فليعذرني كل من رأي كود أو معادلة في منظوماتي المختلفة القائم بتصميمها .. وله الأجر والثواب من رب العالمين فقد علم الإنسان مالم يعلم .. ومن لا يشكر الناس لا يشكر الله .. الشكر الجزيل للجميع .. للعلم (لم استفد من ذلك ماديا بتاتا .. وإنما لوجه الله تعالى .. ورحمة الوالدين)

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

مازلت عايز الملف ... والا خلاص ...

استاذ :: Ali Mohamed Ali بارك الله فيك ... ولكني استخدم VBA للاكسل ... ولقد حاولت ونجحت الطريقة مشكور جدا ... وهي في هذه الخطوة ... wslstrow = .Range("d" & ws.Rows.Count).End(xlUp).Row For ie = 3 To wslstrow If txt = CStr(.Cells(ie, "E")) And .Cells(ie, "I") = adi And .Cells(ie, "ak") > 0 Then banktot = Application.WorksheetFunction.SumIf(.Range("E3:e" & wslstrow), wws.[j3], .Range("ak3:ak" & wslstrow)) End If Next banktot2 = Round(banktot, 3) وهي جزء من منظومة مرتبات لحوالي 1000 موظف ...

المرفق يوجد فيه مجموعة من الارقام عبارة عن مرتبات فيها اختلاف 1 دينار في التفقيط .. لا أدري لماذا هذه المشكلة ؟ برغم أنني قد حاولت وغيرت الأرقام واسم المجموعة ولكن لم افلح في حل تلك المشكلة !!! فيرجى المساعدة ... خطأ في التفقيط.xlsm

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

تم التعديل ... معرض الشيخ4.xlsm

بسم الله .. ومازالنا على تواصل باذن الله .... معرض الشيخ3.xlsm

معرض الشيخ2.xlsm

هذه بداية شاشات المنظومة .. نأمل الإطلاع والإفادة ... معرض الشيخ1.xlsm

إن شاء الله ... سنتواصل أولا بأول لإستكمال المنظومة ... وبسم الله سوف أبدأ ...

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

جربت .. ولكن ماهي الغاية والغرض من تلوين كل عميل بلون ؟ لان جدول العملاء فيه مايربو عن الف عميل ... واعتقد لا يوجد 1000 لون في الكمبيوتر الموجود حاليا 56 لون فقط !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! حسابات_معدل.xlsm

قي مودول open workbook يوجد خطا املائي في كلمة fulase وهي تكون false عدم وجود عبارة option explicit في كل المودول والفورمز .. وهي جملة تريحك من الاخطاء الاملائية وعند عدم الاعلان عن متغير يتم تنبيهك لذلك ... عدم حجز او اعلان للمتغيرات في جميع الفورمز والمودول .. يرجى مراجعة ذلك .. وبالنسبة للادراج والتعديل يعمل تمام مافيش مشكلة ... انتظار ردكم ...

ارفق نموذج لعمل المطلوب ... والاساتذة في الموقع مايقصروا باذن الله ...

الاستاذ : حاتم عيسى .... والاستاذ : عبدالله الصاري