Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

جمعة العوامي

03 Special Member
  • Posts

    100
  • Joined

  • Last visited

Reputation

17 Good

2 Followers

About جمعة العوامي

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    موظف

Recent Profile Visitors

892 profile views
  1. تفضل الحل ... عن طريق الكود !!! Copy of GCC_Expense_Report_Tax_Details_190621 1_تم التعديل.xlsb
  2. جربت كثيرا ذلك .. ولكن كان التكرار كثيرا جدا .. مما اضطرني الى الاستعانة بهذ الحل ... خوفا من الغاء بيانات نرغب في عدم الغاؤها .
  3. وجدت الحل بعد عدد من المحاولات ... في ان تضع لمدين لون (ازرق ) والدائن لون (اصفر) ثم نضعها في عمود واحد .. وناخذ نسخة من الثلاثة أعمدة ABC ونضعها بجانب الدائن ثم نفزر من الاصغر للأكير ثم تنسيق شرطي للمكرر باللون الاخضر .. وهنا تخرج علينا القيم المكررة وانتهى الأمر بأن لاتتعلم القيم الغير مكررة .. وعند المرجعة النهائية يكون لنا الاختيار في الحذف ام لا .....؟ وهذا اقرب واسهل حل !!!!
  4. اقتبست الكثير من المعادلات واكواد vba ومن كثرتها لا أعرف أصحابها الحقيقيين .. وزدت عليها صممت بها برامج تنفع الآخرين .. فليعذرني كل من رأي كود أو معادلة في منظوماتي المختلفة القائم بتصميمها .. وله الأجر والثواب من رب العالمين فقد علم الإنسان مالم يعلم .. ومن لا يشكر الناس لا يشكر الله .. الشكر الجزيل للجميع .. للعلم (لم استفد من ذلك ماديا بتاتا .. وإنما لوجه الله تعالى .. ورحمة الوالدين)
  5. السلام عليكم .. اطلعت على الملف وجدته عبارة عن جدول لا يحوي بيانات.. وكل الموجود اربعة اسماء واربعة ارقام في عمود واحد .. ولم يكون هناك شرح للمطلوب !! اذا كان المطلوب البحث بحد ذاته يجب ان يكون لكل عمود خاصية التابعة له (حروف ) او (ارقام) ولا يتم الخلط بين البيانين في عمود واحد ... الموضوع سهل ولكن شرحك للمطلوب غير موجود
  6. مازلت عايز الملف ... والا خلاص ...
  7. استاذ :: 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 موظف ...
  8. المرفق يوجد فيه مجموعة من الارقام عبارة عن مرتبات فيها اختلاف 1 دينار في التفقيط .. لا أدري لماذا هذه المشكلة ؟ برغم أنني قد حاولت وغيرت الأرقام واسم المجموعة ولكن لم افلح في حل تلك المشكلة !!! فيرجى المساعدة ... خطأ في التفقيط.xlsm
  9. بالنسبة للتاريخ .. سوف يتم التعديل .. والامر الاخر بالنسبة للمراجعة .. هذا مااسميه كشف حساب .. وهو ما اعمل عليه حاليا .. لكن اولا يجب تفادي الاخطاء .. وضع جميع المعطيات التي نرغبها في الشاشات .. لان وصولنا لكشف الحساب يعني .. لا توجد مشكلة في المنظومة .. وهذا ماارغب فيه الدقة في الشاشات الاولى .. وفي النهاية سوف يصدر كشف ساب لغرض المراجعة .. وعرض جميع بيانات العميل من اول تعامل حتى اخر قسط تم دفعه ..
  10. بسم الله .. ومازالنا على تواصل باذن الله .... معرض الشيخ3.xlsm
  11. هذه بداية شاشات المنظومة .. نأمل الإطلاع والإفادة ... معرض الشيخ1.xlsm
×
×
  • Create New...

Important Information