اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

جمعة العوامي

03 عضو مميز
  • Posts

    104
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

23 Excellent

2 متابعين

عن العضو جمعة العوامي

البيانات الشخصية

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

اخر الزوار

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

Important Information