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

أ / محمد صالح

أوفيسنا
  • Posts

    4,444
  • تاريخ الانضمام

  • Days Won

    192

كل منشورات العضو أ / محمد صالح

  1. ما شاء الله جزاك الله كل خير أخي الكريم أستاذ رجب جاويش على هذا الجهد العظيم المبذول في هذا الملف الرائع رزقكم الله سعادة الدارين
  2. شكرا لمرورك العطر أخي الكريم فعلا هذا البرنامج يخدم المستهلك أكثر من أهل العمل في هذا المجال وفقنا الله جميعا لكل ما يحب ويرضى
  3. على بركة الله شكرا لكلماتك الطيبة أخي الكريم سعيد طلباتك أوامر رغم إن موضوع التحكم في إضافة الرسوم والدمغة كان صعب قليلا رجاء مراجعة الملف تم إضافة إصدار جديد
  4. فعلا هذه المعلومة تجعل البرنامج كاملا هل تم التأكد من هذه المبالغ؟ وكيف يتم إضافتها؟ هل تصاعدية مثل المبلغ؟ بمعنى أن الشريحة من 1 إلى 50 يضاف عليها 1 جنيه فهل يضاف على من 51 إلى 100 مبلغ 1 جنيه للشريحة السابقة + 2 جنيه للشريحة الحالية أم يضاف 2 فقط؟ ففي مبلغ التكلفة تضاف 50 * 0.13 = 6.50 + 50 * 0.22 = 11 فتكون التكلفة الإجمالية 17.5
  5. لو أمكن ترفق الملف لمعاينته
  6. وإياكم أستاذ محمد لا تنس أن الفكرة من موضوعك هذا تطوير للفكرة فهل التطوير للأفضل ؟
  7. اعرض الملف حساب فاتورة الكهرباء المصرية من يوليو 2017 و يوليو 2018 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ================= استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم باستهلاك الكهرباء في المنازل وحسابها بالأكسس بطريقتين أولا بحساب تكلفة عدد الكيلو وات المستهلكة ***************** والثانية بحساب عدد الكيلوات المقترح للتكلفة المحددة ------------------------------- وكل ذلك في نموذج واحد ودالتين معرفتين ///////////////////////////// ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 20 سبت, 2017 الاقسام قسم الأكسيس
  8. Version 3.0.0

    807 تنزيل

    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ================= استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم باستهلاك الكهرباء في المنازل وحسابها بالأكسس بطريقتين أولا بحساب تكلفة عدد الكيلو وات المستهلكة ***************** والثانية بحساب عدد الكيلوات المقترح للتكلفة المحددة ------------------------------- وكل ذلك في نموذج واحد ودالتين معرفتين ///////////////////////////// ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل إن شاء الله
  9. بارك الله لك أخي الكريم اعتمدت على أنك تعرف كيفية عمل التنسيق الشرطي وبناء عليه تم تعديل المشاركة السابقة ليكون بها الجواب الكامل
  10. السلام عليكم ورحمة الله وبركاته وفقنا الله وإياكم لكل خير بعد إذن الأحباب المشاركين هذه محاولة مني لعلها تكون الإجابة تم التلوين باستخدام التنسيق الشرطي: بتحديد النطاق $E$8:$AI$62 من تبويب home نضغط conditional formatting ثم new rule ثم آخر أمر use a formula to ... ثم إضافة قاعدة التلوين =WEEKDAY(E$12)=6 وتعني أن يوم هذا التاريخ هو الجمعة على أساس أن ترقيم الأسبوع في إكسل يبدأ يوم الأحد ثم تحديد لون الخلفية المطلوب ثم Ok وتم تنفيذ الإظهار والإخفاء في حدث عند التغيير لورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) For c = 33 To 35 Columns(c).EntireColumn.Hidden = 0 If Day(Cells(12, c)) < Day(Cells(12, 32)) Then Columns(c).EntireColumn.Hidden = 1 Next c End Sub وهي للتأكد من أن اليوم المكتوب في الأعمدة من 33 إلى 35 أكبر من اليوم الموجود في العمود 32 وهو 28 في الشهر فإذا كان أصغر تعني أنه شهر جديد فيقوم بإخفاء العمود كله أترككم في رعاية الله mas_solok.rar
  11. فعلا رمز الاتصال لديك أخي الكريم لا يدل على أن الاتصال مقطوع فهذا رمز قطع الاتصال في اللان وهذا رمز قطع الاتصال في الوايرلس ............. الغريب أننا لم نتلق أي رد من صاحب السؤال!!
  12. لعمل المطلوب بكل بساطة يلزمك وضع المعادلة =TRUNC(D3/$G$1,2) في الخلية G3 وذلك بقسمة عدد دقائق التأخير على عدد دقائق الحصة وفي الخلية H3 نضع هذه المعادلة =E3*G3 بضرب عدد حصص التأخير في سعر الحصة وفي الخلية I3 نضع هذه المعادلة =F3-H3 بطرح قيمة الخصم من المرتب
  13. الكود صحيح 100% ويعمل بكفاءة عالية ومجرب في أكثر من موضع وهذا ملف بسيط للتجربة وموافاتي بالنتيجة حتى نتوصل لأسباب عدم عمل البرنامج مع الأستاذ شيفان كما هو مطلوب check internet.rar
  14. يمكنك استعمال هذا الكود Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long If InternetGetConnectedState(0&, 0&) Then 'code if conected Else MsgBox "تأكد من اتصالك بالانترنت" End If مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول وكود الشرط يمكن تضمينه في أي إجراء أو حدث وفقنا الله وإياكم لكل خير
  15. بارك الله لك أستاذ هشام مشكلة غلق ملف الإكسل إذا قام المستخدم بإضافة أو حذف عمود أو صف لها أسباب كثيرة منها: كثرة المعادلات كثرة أوراق العمل المحتوية على معادلات قلة إمكانيات جهاز المستخدم كالمعالج والذاكرة العشوائية بالإضافة إلى ما ذكرت حضرتك من تجميد الألواح او التقسيم وأدعو الجميع المشاركة بذكر السبب الذي أدى لوجود هذه المشكلة معهم وطريقة حلها
  16. ما شاء الله أسلوب رائع في الكتابة أتوقع لك مستقبلا في تأليف المشاركات النافعة أستاذ @المالكي333 المشكلة تكمن في عدم إرفاق الملفين حتى يتمكن أحد الزملاء بعمل المطلوب وتوضيح خطواته
  17. التجربة خير دليل جرب وأخبرنا بالنتيجة رغم أنه لا يوجد ما يمنع تنفيذها نظريا
  18. ما الذي لايعمل؟ يجب أن تحددكلامك فربما يفهما أحدنا أن الوظيفة الإضافية لا تعمل وهذا مخالف للحقيقة فهي تعمل بنجاح ربما يحتاج أحدنا ممن لم تعمل معه إعادة الخظوات بطريقة أكثر دقة في تنفيذ المطلوب وفقنا الله وإياكم لكل خير
  19. بعد إذن حبيبنا شيفان يمكن استعمال المعادلة الآتية DSum("Field", "Table", "Field > 0") حيث table اسم الجدول و field اسم الحقل الموجود به الأرقام
  20. في هذه الحالة يلزمك حساب على موقع استضافة مجانية أو مدفوعة http://www.hostingadvice.com/how-to/free-web-hosting/
  21. وهذا فيديو لشرح الأكواد والطريقة من الألف إلى الياء نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا
  22. جزاك الله خيرا أخي الكريم على مرورك العطر وكلماتك الرقيقة ويبدو انك لم تقم بفحص الأكواد جيدا بالنسبة المطلوب الأول: هل المدة التجريبية غير محددة في الكود باسم trial days ؟! وبالنسبة لتمديد الفترة التجريبية بعد تسجيل البرنامج يتم تمديد الفترة التجريبية وفتح البرنامج لأجل غير مسمى وبالنسبة لحقول العميل تكون في شاشة خاصة غير شاشة التسجيل فهنا الاعتماد على رقم الجهاز وليس اسم العميل وربما تتحفنا بمثال كهذا به كل أفكارك فيما يتعلق بالموضوع بانتظار تعديلاتك وفي ذلك فليتنافس المتنافسون
  23. السلام عليكم ورحمة الله وبركاته كيف الحال؟ يا رب دايما بخير وسعادة ورضى بالمكتوب ومحاولات جاهدة لنكون أفضل مما كنا عليه حياكم الله وبعد اليوم أحببت أن أشارك أحبابي في الله مشرفي وأعضاء وزوار موقعنا الغالي على قلوبنا جميعا ملتقى الأوفيس العربي الأول على مستوى الانترنت أوفيسنا بمعلومة مفيدة جدا لكل من يريد التطبيق العملي للتعليمات الموجودة في فيديوهات الشروح ومن يريد الاستمتاع بمشاهدة يوتويب أثناء تصفحه باقي المواقع إليكم الطريقة بمنتهى البساطة ملحوظة: العمل على متصفح جوجل كروم وذلك من خلال إضافة تسمى floating for YouTube extension وولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرى وإن أعجبكم الفيديو استفدتم به فلا تبخل على غيرك بمشاركته معهم فلو بخل به غيرك ما وصل إليك والآن مع الفيديو وفقنا الله وإياكم لكل ما يحب ويرضى وتسعدني تعليقاتكم ولو بكلمة انتظرونا فالقادم أفضل
  24. جرب تعديل كود زر الأمر إلى هذا الكود If Not (IsNull(Me.Dept)) Then DoCmd.OpenForm "Employees", , , "Dept =Forms!main!Dept" Else MsgBox ("تأكد من إدخال البيانات بشكل سليم") End If
  25. اللهم علمنا ما ينفعنا وانفعنا بما علمتنا واوعى تنسى مشاركة الفيديو لو بخل بها غيرك ما وصلت إليك زكاة العلم نشره
×
×
  • اضف...

Important Information