ابو اياد ( الاسيوطى )

الأستاذ الفاضل / محمود الأسيوطي

 

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

 

اللـهـم أسكنهم فسيح الجنان واغفر لهم يارحمن وارحمهم رحمة واسعة يارحمن يارحيم وتجاوز عنهم ياعليم .اللـهـم اعفو عنهم أنت العفو الكريم. اللهم ارحمنا وارحم موتانا المسلمين برحمتك يا أرحم الراحمين. وجزاك الله خيراً على هذا العمل الرائع جداً وأسأل الله العلي القدير أن يجعله في ميزان حسناتكم جميعاً . لك كل التحية والتقدير.

الاستاذه الفاضله ( اختنا ) الموقره العزيزه // ام عبد الله

يعلم الله لم اقولها حتى الان لأحد ( كل عام وانتى بخير ) ارجو ان تقبليها منى مثل عبد الله

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

بارك الله فيكى على دعائك الرائع

تقبلى تحياتى

 

أخى الفاضل / ابو اياد

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

عمل ممتاز وجهد جبار

ربنا يجعله فى ميزان حسناتك ان شاء الله

 

استاذنا الكبير الحبيب // رجب جاويش

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

مشكور على الدعاء

تقبل تحياتى

السلام عليكم

الاخ // احمد فؤاد

الاخ // احمد غانم

الاخ// محمد الخازمى

بارك الله فيكم ومشكورين على مروركم العطر

السلام عليكم

الاخ // live8523

بارك الله فيك

استاذى العزيز // سعد عابد

بارك الله فيك وشكرا جزيلا لدعائك الجميل

تقبلوا تحياتى

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

بسم الله الرحمن الرحيم
وبه نستعين على كل شىء وقبل كل شىء
اللهم صلى على سيدنا محمد صلى الله عليه وسلم

الحمد لله الذى تتم به الصالحات ,,,,
برنامج تحليل المصروفات ( اداريه - بيع وتوزيع - تشغيل ) صدقه جاريه على روح والدتى رحمها الله وهديه للمنتدى !!
اليوم اقدم لكم برنامج تحليل المصروفات الذى يغى كل محاسب وخاصه من الجيل القديم عن الدفتر الـ 70000 خانه هههههههههههه
الـ 36 خانه عمل ممل ان تكتب بالدفتر فكان من وجه نظرى هذا العمل واعلم انه لم يعد يعمل احد بالدفاتر منذ فتره فقد انقرضت مع
ظهور الانظمه المحاسبيه التى لا حصر لها
واسألكم الفاتحه لوالدتى وولدى رحمهما الله اللذان ستظل روحى معلقه بهما دائما حتى يلحقنى بهما الله فى الجنه وجميع اخواننا المسلمين
وانتظر ارائكم واستفساراتكم
تلميذكم واخيكم // محمود الاسيوطى ( ابو اياد )

برنامج تحليل المصروفات اوفيسنا.XLSB

UP

السلام عليكم

كيف حال الجميع ارجو من الله ان تكونوا بخير

استاذ // قنديل الصياد

استاذ // رجب جاويش

استاذ // حماده عمر

استاذ // محمد ابو البراء

استاذى عم // سعيد بيرم

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

http://dvd4arab.maktoob.com/f232/1701794.html

تقبلوا تحياتى

السلام عليكم

مليون مبروك اخى الحبيب // محمد ابو البراء

وترقيه مستحقه من استاذ رائع ومعلم الوطن العربى // عبد الله باقشير

تقبلوا تحياتى

up

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

السلام عليكم

استاذى // حماده باشا

لا اعتقد انه هناك كلمات تعبر لك عما بداخلى لهذا العمل الرائع بارك الله فيك

ولكن هناك بعض الملاحظات البسيطه ( طبعا هتعدى على الغير محترفين ) 

1-تم التحايل على صيغه الملف ( نعم المستخدم لا يكون قادر على تغيره من داخل الملف save as ) ولكن تم تغييره بكل سهوله من اعاده تسميه الملف بدون فتحه

السؤال هنا هل يمكن تثبيت صيغه واحده بداخل الكود يعمل عليها الملف واذا تغيرت لن يفتح او لن يعمل الملف ؟؟؟؟؟؟؟ إلا بعودته مره اخرى للصيغه الاصليه التى وضعناها داخل الكود ولتكن مثلا xlsb. or xls

2- تم حمايه شيت DATA ثم حمايه اسم الشيتات من التعديل ثم تم تجربه الكود بتاخير تاريخ الملف الى 15/2/2014 نعم تم تعطيل الزر ولكن بخطأ يظهر طبعا انا لا اعلمه اعتقد انه حدث لأنى قمت بحمايه الشيتات السؤال هنا هل يمكن التغلب على هذا الخطأ مع الاحتفاظ بالحمايه ؟

3- هناك خطأ فى مربع العامل رقم 10 وهو من AA26:AA20 لم يتم تجميع الساعات او الحصول على الناتج تم اعطائها اللون الاحمر فى كل الشيتات

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

بارك الله فيك ولك

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

وهو يعمل بكفاءه بنسبه 99.99% وان شاء الله يكون مليون % بعد لمساتك الاخيره

انتظرك

11DATA-7.rar

السلام عليكم

لقد حاولت قدر المستطاع تنفيذ ما اريد وهذا ما توصلت اليه

ارجو تعديل الخطأ فى الملفين

الاول يعمل بالكود

والثاتى يعمل بالمعادلات

انتظر

DATA11.rar

DATA22.rar

السلام عليكم

استاذنا // حماده باشا

بسم الله ماشاء الله عليك الله يبارك فيك

شغل عالى جدا وبجد انت باشا والملف اخد منك وقت كبير ومشكور على مجهودك وتعبك معى 

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

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

المرفق بالمشاركه 7# ممتاز ويؤدى الغرض بدقه وسريع فقط اريد بعض التعديلات عليه ( الملف اقتراحك العبقرى ) مبهر

الملف الاول ( الكود بديل المعادله ) رائع معجب به لدرجه رهيبه زادك الله من علمه وبارك فيك ونفع بك

1- ان يتوقف عمل الزر بلا عوده بعد التاريخ المحدد حتى اذا تأخر تاريخ الكمبيوتر

2- ان يزيد عدد شيتات RES الى 6

الملف الثانى ويتم التنفيذ على المرفق بالمشاركه 1# رأس الموضوع بالمعادلات فقط

1- ان يتم مسح البيانات من شيت DATA بعد التاريخ المحدد

2- ان يتم مسح جميع المعادلات بعد التاريخ المحدد

3- ان يزيد عدد شيتات RES الى 6

تقبل احر تحياتى على تعبك ومجهودك معى

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

السلام عليكم

الاخ // فريد

اربعه ساعات ونصف بالدقائق تكون 4.5 ساعه * 60 دقيقه = 270 دقيقه

ولتكن على علم انك تتعامل مع الواحد الصحيح حين تكتب 4.5 مع ملاحظه عند تحويلك للكسر مراعاه الاتى

النصف هنا من الواحد الصحيح ولابد من تحويله الى دقائق لابد من قسمته على 60 دقيقه فتعطى 30 دقيقه 

ايضا مثال اخر اربعه ساعات وثلاثه ارباع تعنى بالواحد الصيحيح 4.75 بعد تحويل الكسر الى دقائق 75. /60 تعطيك ثلاثه ارباع ساعه وهى 45 دقيقه

بمعنى اكثر ثلاثه ارباع الواحد الصحيح هى 75. اما ثلاثه ارباع الساعه هى 45. 

اذا اردت تحويل الواحد الصحيح الى ساعه تقسم على 60 دقيقه تعطى 1 ساعه و 666. من الساعه يتم ضربها فى 60 دقيقه تعطى 40 دقيقه تقريبا

بالتالى تكون حصلت على 1 ساعه 40 دقيقه

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

ثمن الساعه 3 جنيه

على حساب الساعه بالدقائق 4.30 * 3 = 12.9

على الحساب بالواحد الصحيح 4.50 * 3 = 13.5 اعتقد هى الاصدق

والله اعلم

03-حساب ساعات العمل.rar

السلام عليكم

اخى العزيز تمام ارجو تغيير اسمك الى العربيه

وان تبحث اولا عما تريده قبل ان تضع موضوع

وعلى العموم عليك وعلى توقيعى عسى ان يفيدك

السلام عليكم

بعد اذن استاذنا الكبير ومعلمنا // رجب جاويش

تم اختصار معادله المجموع بعض الشىء

حساب ساعات العمل1.rar

السلام عليكم

كيف حالكم استاذى // حماده باشا

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

ارجو ان نطمئن عليكم اولا وقبل كل شىء

والملف عذرا كان محمى أليك النسخه الغير محميه واود ان اضع امام ذاكرتكم هذا مره اخرى

واطمع فى الاتى -- ملفين الاول بكود ( بديل المعادله )  -- والملف الثانى بالمعادلات 

الملف الاول الاهم -- يتم تعطيل عمل الكود ( بديل المعادله ) بعد تاريخ محدد ولن يعود للعمل مره حتى اذا تاخر تاريخ الكمبيوتر

الملف الثانى هام ايضا يتم مسح المعادلات ( بكود المسح ) بعد التاريخ المحدد كما الكود الاول لك فبذلك لن يعمل الملف بعد التاريخ المحدد لعدم وجود المعادلات ولن يعود الملف للعمل مره حتى اذا تاخر تاريخ الكمبيوتر

معلومه صغيره ارجو ان يكون امتداد الملف ( صيغته ) xlsb or xls

مع العلم اعمل على 2007

يوميه2.rar

من الواضح ان استاذنا // حماده باشا 

مشغول كان الله فى عونه

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

تقبل تحياتى

وانتظر ان شاء الله

up

up

up

السلام عليكم

اخى العزيز // محمد ابو البراء

عمل رائع ومتقن ومتعوب فيه على الرغم من عدم فهمى لأى من اجزاءه ولكن الشكل والمضمون واضح

بارك الله فيك 

وشايف اسم اسيوط كده منور وكمان ديروط ملعلع

وسلامى لأهل صنبو وخارفه والعزبه وفزاره والقوصيه والنزالى كمان جمب النادى

استاذى العزيز // حماده باشا

المعادله او الكود كلامها واحد بعد تعديلاتك

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

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

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

واطمع فى الاتى -- ملفين الاول بكود ( بديل المعادله )  -- والملف الثانى بالمعادلات 

الملف الاول الاهم -- يتم تعطيل عمل الكود ( بديل المعادله ) بعد تاريخ محدد ولن يعود للعمل مره حتى اذا تاخر تاريخ الكمبيوتر

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

ارجو التنفيذ على الملف المرفق المشاركه 14# لآنه الشكل النهائى للملف

تقبل تحياتى

معلومه صغيره ارجو ان يكون امتداد الملف ( صيغته ) xlsb or xls

مع العلم اعمل على 2007

مليون مبروووووووووووووك

ونتمنى منك بذل المزيد حتى تتقدم الى الاعلى ان شاء الله

قولت ألحق وانت لسه مترقى عشان روحك المعنويه بتقى مرتفعه طازه

ومن تقدم الى تقدم ان شاء الله

واحب ان انوه عن فرحتى وسرورى

واخيرا شوفت صوره استاذ الجميع // خبور خير فى مجله اوفيسنا ( شكله مدى على محمد رجب ) ممثل مصرى

وطبعا محتفظ بالنسخه الاصدار الاول لها

تقبلوا تحياتى

الأخ الحبيب/ محمود الاسيوطى

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

كرد سريع - الكود التالي يقوم بعمل الآتي في التاريخ المحدد - ضعه داخل ThisWorkbook:

1- حذف البيانات من الشيت الأول DATA

2- حذف المعادلات من الشيت الثاني RES ( مع الإبقاء علي البيانات - حسب طلبك )

Private Sub Workbook_Open()
If Date >= CDate("15/05/2014") Then
    Application.ScreenUpdating = False
    Sheet1.Range("B1:I2880").ClearContents
    With Sheet2.Range("C8:AA40")
        .Value = .Value
    End With
    Me.Save
    Application.ScreenUpdating = True
End If
End Sub

جعل الكود يقوم محل المعادلات تحتاج لوقت - يمكن ذلك عن طريق أمر Formula - وأعتقد رغبة إحلال الكود محل المعادلات

لجعل تفعيل الماكرو يبدو مألوفا دون تفكير - وساعة الصفر .... ( أو لعل الأمر غير ذلك ) - تقبل تحياتي

السلام عليكم

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

اولا - هذا الكود هو محور الموضوع والحمد لله تم انجازه وهو ألغاء المعادلات بعد تاريخ معين 

فقط اريد تنفيذه على المرفق بالمشاركه 14#

ثانيا - المرفقات المتتاليه بعد مرفقق الاول كان بها اخطأ لا اعلم ما هى تحديدا فى الكود - مره المعادلات لم تلغى 

ان اخرت تاريخ الكمبيوتر مره اخرى يعود الزر ويعمل مثله مثل المعادله 

وان كان هنا الفيصل هو عدم عوده الملف للعمل مره اخرى كما المرفق الاول لك وهو فقط يقوم بألغاء المعادلات بعد التاريخ الذى حددناه له

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

فقط ارجو تنفيذ الكود الاول لك على المرفق بالمشاركه 14#

تقبل تحياتى وانتظرك

ويكون تم تنفيذ المطلوب هكذا

1- حذف البيانات من الشيت الأول DATA

2- حذف المعادلات من باقى الشيتات 1-2-3-4-5-6 ( مع الإبقاء علي البيانات - حسب طلبك )