elzaem_yousif

جزاكم الله خيرا

السلام عليكم ور حمة الله وبركاته

كل عام وانتم بخير وادام الله علينا وعليكم كل الخير والصحة

اولا تحيه للعاملين على المنتدى وتعمنا منهم الكثر جعله الله فى ميزان حسناتكم جميعا اعضاء ومشرفين

ثانيا تفاصيل المشكلة التى اواجهها كالتالى - اريد تصميم قاعدة بيانات بسيطة من خلال الاكسيس تخدم مجال عملى فى نطاق الخدمات اللوجستية ( شحن - تحميل - تفريغ - تخليص جمركى - الخ ) ، حيث تتعامل معنا نقدم خدماتنا الى الشركات بشكل مباشر او من خلال شركات وسيطة. بمعنى اكثر وضوحا وتبسيطا، توجد لدينا قائمة من العملاء وليكن عميل 1 وعميل 2 وعميل 3 وعميل 4 وعميل 5 وقائمة للشركات الوسيطة وسيط 1 ووسيط 2 ووسيط 3 ووسيط 4 ووسيط 5

اذا قام العميل وليكن ( عميل 1 ) بالتعامل معنا مباشرة يجب ان تصدر الفاتورة باسمه - واذا قام بالتعامل معنا من خلال شركة وسيطة يجب ان تصدر الفاتورة باسم الشركة الوسيطة

والعميل الواحد ممكن يتعامل معنا مباشرة او من خلال وسطاء ، والوسيط الواحد ممكن يكون وسيط لاكثر من شركة ( علاقة متعدد الى متعدد ) 

انا عملت جدول للعملاء وجدول للوسطاء وجدول للربط بين العملاء والوسطا وجدول للخدمات وجدول للفواتير ثم صممت فورم للفاتورة

المطلوب ان يظهر لى اختيار هل العميل لهذه الفاتورة  (عميل مباشر او وسيط ) حتى لا تختلط الحسابات مع بعضها كيف اعمل كده ؟؟؟؟؟

ي

مرفق ملف للتوضيح 

مع وافر الشكر والاحترام مقدما

question.rar

مرفق ملف للعمل علية

به 3 ورقات عمل

الورقة الثانية والثالثة بها زر ملحق به ماكرو الكود المذكور

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

فما هو التعديل على الماكرو بحث يقتصر على الورقة النشطة فقط او الورقة التى ينفذ بها الماكرو

اقتباس

هل لو حذفت السطور التالية مثلا يصبح الماكرو للصفحة الحالية ؟؟؟؟

    'Loop through each worksheet in ActiveWorkbook
      'For Each sht In ActiveWorkbook.Worksheets
        ActiveSheet.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      'Next sht

Jan 2016.zip

زملائى الاعزاء والسادة الخبراء

هذا الكود هو لاستبدال قيم معينة داخل جميع الشيت فى ملف الاكسيل الى قيم اخرى ، ولكن هذا الكود يعمل لجميع الشيتات داخل الملف 

المطلوب تحويلة ليكون داخل الصفحة الحالية فقط

ارجو منكم التعديل المطلوب ليكون داخل الـ sheet الذى يتم فيه اجراء الماكرو فقط 

Sub Button1_Click()

'PURPOSE: Find & Replace a list of text/values throughout entire workbook
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("Absent ", "Trainer", "Trainer ", "Op_Training", "Op_Training ", "Peer_mentor", "Peer_mentor ", "Annual ", "Forced_Annu", "Forced_Annu ", "Avl_Annual", "Avl_Annual ", "Emergency ", "Sick ", "Planned_Sic", "Planned_Sic ", "Army", "Army ", "Planned_Arm", "Planned_Arm ", "Maternity", "Maternity ", "Bereavement", "Bereavement ")
rplcList = Array("Absent", "HR", "HR", "HR", "HR", "HR", "HR", "Annual", "Annual", "Annual", "Annual", "Annual", "Emergency", "Sick", "Sick", "Sick", "Other", "Other", "Other", "Other", "Other", "Other", "Other", "Other")

'Loop through each item in Array lists
  For x = LBound(fndList) To UBound(fndList)
    'Loop through each worksheet in ActiveWorkbook
      For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next sht
  
  Next x
 MsgBox "Replacemnt Done Sucssefully", 0, "Mohamed Youssef 11674"
End Sub

للرفع 

يا اصدقائى هل العرض للموضوع جيد ولا عرض غير جيد وغير واضح

هل نظريا الحل ممكن بس مثلا صعب شويه ؟؟؟ ولا هو مستحيل وغير ممكن

الخبراء افيدونا بالله عليكم

وشكرا مقدما

للرفع

للرفع

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

الملف المرفق بيه ورقتي عمل الورقة الاولى اسمها Team Attendance وفيها اسماء الموظفين وارقامهم ورصيد الاجازات فى بداية التعيين وتاريخ التعيين ثم حالة الموظف فى كل يوم من اول يوم تعيين حتى تاريخه ( ويتم تحديثها باستمرار كل اسبوع ) وهى اما شيفت عمل طبيعى يمثل عنه ساعات العمل مثال 0900-1800 او هو حالة اخرى مثلا اجازة عادية يكون كودها Avl_Annual  او اجازة مرضية يكون كودها Sick .

المطلوب هو

اولا : اعادة فلترة و ترتيب هذا البيانات فى الشيت رقم 2 واسمه Sheet1 على النحو التالى 

عند اختيار موظف لعرض بياناته يتم ادخال رقم الموظف فى هذا الشيت فى الخلية رقم B1 واختيار الشهر المطلوب عرض بياناته فى الخلية F2  ( الخلايا باللون الاخضر ) يتم تلخيص بيانات هذا الموظف خلال هذا الشهر على الترتيب الاتى 

يوجد بهذا الشيت خمسة جداول هي على الترتيب 

الجدول الاول Annual Vacations يتم فيه ترتيب الاكواد الخاصة بالاجازات السنوية وهى على سبيل الحصر ( Avl_Annual او Annual او Forced_Annu ) 

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

الجدول الثالث Sick Leaves يتم فيه ترتيب الاكواد الخاصة بالاجازات المرضية وهى على سبيل الحصر ( Sick او Planned_Sic ) 

الجدول الرابع HR يتم فيه ترتيب الاكواد الخاصة بالمهام الادارية وهى على سبيل الحصر ( Trainer او Op_Training او Peer_mentor ) 

الجدول الخامس Other Vacations يتم فيه ترتيب الاكواد الخاصة بالاجازات الاخرى بخلاف ما سبق وهى على سبيل الحصر ( Army او Planned_Arm او Maternity او Bereavement ) 

بحث مثلا لو كان الموظف فى يوم 1 فى الشهر المختار Forced_Annu يتم وضع الكود فى الجدول الاول واليوم فى الخلية المقابلة له 

ولو فى يوم 2 فى الشهر المختار كان الموظف Op_Training يتم وضع الكود فى الجدول الخاص هو جدول رقم 4 واليوم الموافق فى الخلية المقابلة وهكذا الخ الخ 

الخلايا باللون الاصفر ( هل يتم عمل دالة مثل الـ VLOOKUP مثلا ؟؟ اعذرونى لجلهلى )

ثانيا 

حساب رصيد الاجازات الباقى لهذا الموظف فى بدايه الشهر المختار مثلا لم تم اختيار شهر يوليو يتم حساب رصيد الاجازات الباقية للموظف فى اول يوليو فى الخلية L1 ( باللون الاصفر ) بناء على المعادلة التالية 

( الرصيد السنوى المتاح للموظف عند التعيين  - ما تم استهلاكة حتى اول يوليو ) علما بان

الرصيد السنوى المتاح هو موجود فى الشيت الاول Team Attendance فى العمود H 

ما تم استهلاكه هو الاكواد بالجدولين الاول والثاني (  Avl_Annual او Annual او Forced_Annu او Emergency ) يقوم الاكسيل بعد هذه الاكواد من بداية السنه الحالية حتى الشهر المختار وطرحها من الرصيد السنوى المتاح 

فلو مثلا الرصيد السنوى المتاح للموظف عند التعيين 21 يوم اجازة وتم خلال 1 يناير حتى 30 يونيو ( حتى الشهر الذى تم اختيارة وهو شهر يوليو ) استهلاك 10 ايام متنوعة الاكواد سابقة الذكر 

اذا الرصيد الباقى للاستهلاك هو 21 - 10 = 11 يوم 

ارجو ان يكون عرضى دقيق وواضح وانا تحت امركم فى اي سؤال

مع وافر وجزيل الشكر مقدما على دعمكم المستمر لنا

وجعله الله فى ميزان حسناتكم 

BALANSE ATTENT.zip

السلام عليكم

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

وهى اما كود شيف للحضور مثال 

او كود اخر لو الموظف مثلا اجازة او مثلا فى تدريب او مثلا فى استدعاء للجيش الخ الخ ومثال الاكود 

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

ومن ثم حساب الرصيد المستهلك والرصيد الباقى لهذا الموظف فى هذا الشهر

Attend.zip

تم تحميل الملف مع الشكر والتقدير 

بارك الله فيك يا اخى العزيز

جارى التحميل والعمل على الملف واخطارك بالنتيجة ان شاء الله

سؤال هل من الممكن اضافة كود فى نفس الصفحة لحذف الصفوف الفارغة فى حيز البيانات  ( حتى لو احتوت على معادلة فقط ) .؟

3 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم الزعيم يوسف

إليك ما طلبت إن شاء الله ، حيث يتم حذف الصف الذي يحتوي النص والصف السابق له و16 صف تالية له أي مجموع 18 صف متتالي ..

حمل الملف من هنا

 

عزيزى ياسر خليل أبو البراء

ارجو اعادة ارسال الملف بطريقة اخرى حيث ان الموقع لا يعمل معى 

الاستاذة الافاضل

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

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

1-  الصف السابق للصف الموجود فى الخلية  ( j ) اى جزء من ( __________ ) ، يعنى الصف العلوى لهذا الصف

2- الصف نفسة الذى يوجد به فى الخلية ( J ) اى جزء من النص ( __________ )

3- عدد 16 صف التالى للصف نفسة الذى يوجد به فى الخلية ( J ) اى جزء من النص ( __________ )

ولكم منى جزيل الشكر والتقدير 

جعله الله علمكم خالصا فى ميزان حسانتكم يوم الحساب

محاسب محمد يوسف

مدير مالى

tardy.rar

بسم الله الرحمن الرحيم

وبه استعين

مشكلتى فى الملف المرفق هى الاتى

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

الجدول الثانى ( اليسار ) مطلوب جمع الكميات المخصصة لكل دور على حده والاسعار التى تم الشراء بها

بمعنى اذا فى الجدول الاول تم اجمالى ما تم شراءة وتخصيصة للدور الاول 5655 طن واجمالى سعر الشراء 3565000 الف جنيه يتم نقل هذه البيانات للجدول الثانى امام الدور الاول

وشكرا

101.rar

بسم الله الرحمن الرحيم

وبه استعين

عزيزى واستاذى منتصر الانسى

حلك رائع وفعلا تلاشت المشكلة بشكل جذرى

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

انا قمت بعملية شراء معدات بفاتورة رقم 1305 من المورد شركة تيكمان للتجارة بتاريخ 1/1/2010 باجمالى عدد 10 معدة زراعية

هذا الحدث يتم تسجيلة فى تسجيل طلبية جديده بتفاصيل المعدات

ثم فى اليوم التالى تصل الى مخازنى عدد 4 معدة من هذه الفاتورة اقوم بتسجيلها باذن اضافة رقم 1301 فى يوم 2/1/2010

ثم فى اليوم بعد التالى تصل باقى المعدات بعدد 6 معدة اقوم بتسجيلها باذن اضافة رقم 1302 فى يوم 4/1/2010

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

فهمتنى ؟؟؟

ارجو منك مساعدتى لحل هذه المشكلة وشكرا جزيلا

اخوك محمد يوسف

مرفق شكل قاعده البيانات المصممة

وملف الاكسيل المستخدم حاليا

Desktop.rar

السلام عليكم

ايه ياجماعه محدش عنده رد للمشكلة !

بسم الله الرحمن الرحيم وبه استعين

والصلاة والسلام على سيد المرسلين

سيدنا محمد اما بعد

السادة الزملاء والمشرفين الافاضل بالمرفقات قاعده بيانات بها مشكلة

فى عجالة المشكلة هى :

عند التسجيل فى فورمة orders تظهر رسالة خطا معناها ان هناك ارتباط بين الجدول cahses&motors والجدول Add_recite وبهذا لا يمكننى اضافة اى بيانات الى الفورم!!!!! لماذا وما الخطا الذى وقعت فيه ؟؟؟؟؟

لمزيد من الشرح ََََِ~~ اقرا التالى

قمت بعمل قاعده بيانات بسيطه تتكون من خمسة جداول كالتالى

1- جدول ارقام المعدات cahses&motors به الحقول

- رقم الشاسية ( مفتاح اساسى )

- رقم الماتور

- كود طلبية الشراء ( لوك اب من جدول اكواد طلبيات الشراء وبينهما علاقة راس باطراف )

- رقم اذن الاضافة ( لوك اب من جدول اذون الاضافاة وبينهما علاقة راس باطراف )

- رقم اذن الصرف ( لوك اب من جدول اذون الصرف وبنهما علاقة راس باطراف )

2- جدول اكواد الطلبيات Orders وبه الحقول

- معرف ترقيم تلقائى ( مفتاح اساسى )

- كود طلبية الشراء

- اسم المورد ( لوك اب من جدول الموردين وبينهما علاقة راس باطراف )

- رقم فاتورة الشراء

- تاريخ فاتورة الشراء

3- جدول اذون الاضافة Add_recite وبه الحقول

- معرف ترقيم تلقائى ( مفتاح اساسى )

- رقم اذن الاضافة

- تاريخ اذن الاضافة

4- جدول اذون الصرف Exit_recite وبه الحقول

- معرف ترقيم تلقائى ( مفتاح اساسى )

- رقم اذن الصرف

- تاريخ اذن الصرف

5- جدول الموردين Supp وبه الحقول

- معرف ترقيم تلقائى ( مفتاح اساسى )

- اسم المورد

وقمت بتصميم الفورم اللازمة للتسجيل وفقا للاتى

1- اولا تسجيل طلبية الشراء وبياناتها الاساسية التى تتكون من جزئين

الاول من جدول اكواد الطلبيات وهى ( كود الطلبية - اسم المورد - رقم فاتورة الشراء - تاريخ الشراء )

والثانى من جدول ارقام المعدات وهى ( رقم الشاسية - رقم الماتور )

2- ثانيا تسجيل اذون الاضافة التى تاتى تباعا وهى من جزئين

الاول من جدول اذون الاضافة وهى ( رقم اذن الاضافة - تاريخ الاضافة )

والثانى من جدول المعدات وهى ( رقم الشاسية )

3- ثالثا تسجيل اذون الصرف للمعدات التى تصرف تباعا وهى من جزئين

الاول من جدول اذون الصرف وهى ( رقم اذن الصرف - تاريخ الصرف )

والثانى من جدول المعدات وهى ( رقم الشاسية )

ناتى الى المشكلة وهى انه عند التسجيل فى فورمة orders تظهر رسالة خطا معناها ان هناك ارتباط بين الجدول cahses&motors والجدول Add_recite وبهذا لا يمكننى اضافة اى بيانات الى الفورم!!! لماذا ؟؟؟؟

3.rar

بسم الله الرحمن الرحيم

وبه استعين

اخى العزيز ابو الانس

بعد التحية وكل عام وانت بخير

مشكور جهدك الرائع معى وصبرك ومثابرتك ، انا شخصيا استفدت الكثير وتعلمت الكثير على يديك

ولكن هل ستتوقف عن المتابعه معى ؟؟ ام سنستكمل عمل التقارير ؟؟؟؟؟

شكراً

بسم الله الرحمن الرحيم

وبه استعين

الاخ العزيز ابو الانس

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

كلمة السر 11111

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

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

اركز على هذه النقظه لانها هامه

وشكرا

محمد يوسف

Desktop.rar

بسم الله الرحمن الرحيم

وبه نستعين

اخى ابو الانس

بعد التحية

سارفق جميع الملاحظات بملف وورد

وشكرا

للرفع

بسم الله الرحمن الرحيم

عزيزى ابو الانس

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

ارجو الافادة

وشكرا

بسم الله الرحمن الرحيم

وبه استعين

الاخوه الاعزاء كل من شارك وساهم واستفاد

تحياتى العطره

اخى ابو الانس صاحب المجهود الوفير فى المنتدى

تحياتى العطره

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

هناك بعض الملاحظات حين قمت باستخدامه فهل تحب حضرتك ان نناقشها الان ام نتخطاها لنصمم التقارير اولا ؟؟؟ بافتراض ان اجابتك هى الثانية ، اول التقارير المطلوبة هى تقريرين ( مشتريات و مبيعات ) الشرح كالتالى

1- بيان بالمشتريات خلال فتره معينه يتم تحديدها والبيانات المطلوبة كراس للجدول كالتالى

2- بيان بالمبيعات خلال فترة معينة يتم تحديدها ، وحسب التصنيف ( نقدى - بنك - فاتورة ) من خلال مربع اختيار Check Box وايضاحسب تصنيف ( بالاستقطاعات او بالاجماليات ) من خلال دائرة اختيار والبيانات المطلوبة كراس للجدول كالتالى

- رقم الشاسية

- رقم الماتور

- نوع المعدة

- الموديل

- تاريخ البيع

- جهه البيع

- سعر البيع

- ضريبة المبيعات

- اجمالى القيمة

- بنود الاستقطاعات

- اجمالى الاستقطاعات

- صافى المسدد

ومرفق ملفين وورد يوضحوا بيانات المحددات وشكل المخرجات بشكل مبسط

وشكرا جزيلا

اخوك يوسف

Reports.rar

بسم الله الرحمن الرحيم

وبه استعين

السادة الاعزاء

عزيزى واستاذى وصاحب الفضل علي ابو الانس

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

والتمس لاخيك المسلم عذراً ( والله اعذار )

ومره اخرى اسف جدا على التاخير واكرر وعدى بان ارد عليك بما طلبت فى اسرع ما يمكن

اشكرك بشده وارجوك ادعوا لي

اخوك محمد يوسف

بسم الله الرحمن الرحيم

وبه استعين

عزيزى ابو الانس

ساشرح لك ما دور النموذج الحالى فى تسجيل عمليه سحب المعده

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

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

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

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

اخوك يوسف

fff.rar

بسم الله الرحمن الرحيم

وبه استعين

عزيزى واستاذى ابو الانس

الوااجهه خطيرة خطيرة والله شئ جميل جدا

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