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

أ / محمد صالح

أوفيسنا
  • Posts

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

  • Days Won

    185

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

  1. المطلوب من الكود هو تفقيط الدرجة والنصف فقط وإلا فيمكن استعمال كود التفقيط الكامل الذي يخبر أن النتيجة خمس وعشرون درجة و عشر أحزاء على أساس أن المعدود درجة والكسر جزء ........................ هذه حكاية هذا الكود أنه لا يوجد اسم للكسر وإنما كان المطلوب أي كسر يتم تحويله لنصف
  2. أخي الكريم مراد المثل يقول: لا تعطني سمكة ولكن علمني كيف أصطاد وبالفعل قدم لك الأساتذة السمكة وفن الصيد لكن اعذرني لم تحاول أن تجهد نفسك فيما قدموه ******** فشرح الدالة الأولى من الأستاذ سليم (سلمه الله من كل سوء) =SUMPRODUCT(--($B$7:$B$21=$B$4),--($C$7:$C$21>0),$C$7:$C$21) تعني جمع المدى الأخير c1:c21 إذا تحقق شرط تساوي النطاق من b7:b21 بقيمة الخلية b4 وكذلك بشرط أن تكون قيمة النطاق c7:c21 أكبر من صفر ويمكنك أيضا إضافة الشرط الثالث بنفس الطريقة بإضافة فاصلة ثم -- ثم المدى الذي به أسماء العملاء ثم = ثم الخلية التي بها العميل المطلوب ************** وشرح دالة البشمهندس محمد (أعانه الله على فعل الخير) =SUMIFS($C$7:$C$21,$B$7:$B$21,B24,$C$7:$C$21,">0") تعني جمع المدى الأول ثم فاصلة ثم المدى الخاص بالتاريخ ثم فاصلة ثم شرط التاريخ وهكذا المدى ثم الشرط وإن تعددت الشروط ===== جرب وأخبرنا بالنتيجة
  3. السلام عليكم ورحمة الله وبركاته عذرا لأني لم أنتبه أن هذا الموضوع بخصوص الكود الخاص بالتفقيط خاصتي فالمنتدى مليء بالدرر تفضل أخي الكريم أصلح الله أحوالنا وأحوالكم في اليمن الشقيق تفقيط الدرجات حتى 9999.5 ويمكن كتابة غ بدلا من الدرجة ويكون التفقيط غ ويمكن تعديله في الكود إلى أي كلمة أو عبارة أحتاج دعاءكم لي بصلاح النفس وسعة الرزق وفقنا الله وإياكم لكل خير تفقيط الدرجات.zip
  4. شكرا لتواصلك أخي الكريم إن شاء الله سيتم فتح موضوع جديد بهذا الخصوص ولكن لم تخبرنا برأيك في الموضوع المنشور
  5. بسم الله الرحمن الرحيم كيف الحال أحبابي في الله إن شاء الله بخير وسعادة ورضا كل عام أنتم جميعا بخير نلتقي من جديد في شهر ميلاد سيد الخلق وهديتي لكم بمناسبة المولد النبوي الشريف هي ********** بناء على طلب الأخ الفاضل @عبدالرحمن وسلمى قمت بعمل دالة معرفة لجلب ناتج التفقيط الموجود في صقحتي الشخصية فس موقع أوفيسنا https://officena.net/team/mas/tafkeet/ إلى ملف إكسل أو أكسس بشرط الاتصال بالانترنت ============== الجميل في الصفحة أنها تراعي بإذن الله كل قواعد صياغة العدد في اللغة العربية ولا تحتوي على أخطاء إملائية ولا نحوية وتمت برمجتها بلغة php لأني لم أجد من المرونة في لغة فيجوال بيسك للتطبيقات vba ما يسمح بنفس البرمجة المستخدمة في لغة الويب php لذا تم التحايل على الأمر بكود يقوم بطلب الصفحة الخاصة بالتفقيط وتمرير البيانات الخاصة بنا من صفحة الإكسل إلى الموقع ثم يسجل ما يعود به الموقع في الخلية ============ ويمكن الاستفادة من الكود في جلب بيانات أي صفحة من الانترنت عن طريقة vba والآن أترككم مع الملف التفقيط من الانترنت.rar
  6. ما شاء الله جزاك الله كل خير أخي الكريم أستاذ رجب جاويش على هذا الجهد العظيم المبذول في هذا الملف الرائع رزقكم الله سعادة الدارين
  7. شكرا لمرورك العطر أخي الكريم فعلا هذا البرنامج يخدم المستهلك أكثر من أهل العمل في هذا المجال وفقنا الله جميعا لكل ما يحب ويرضى
  8. على بركة الله شكرا لكلماتك الطيبة أخي الكريم سعيد طلباتك أوامر رغم إن موضوع التحكم في إضافة الرسوم والدمغة كان صعب قليلا رجاء مراجعة الملف تم إضافة إصدار جديد
  9. فعلا هذه المعلومة تجعل البرنامج كاملا هل تم التأكد من هذه المبالغ؟ وكيف يتم إضافتها؟ هل تصاعدية مثل المبلغ؟ بمعنى أن الشريحة من 1 إلى 50 يضاف عليها 1 جنيه فهل يضاف على من 51 إلى 100 مبلغ 1 جنيه للشريحة السابقة + 2 جنيه للشريحة الحالية أم يضاف 2 فقط؟ ففي مبلغ التكلفة تضاف 50 * 0.13 = 6.50 + 50 * 0.22 = 11 فتكون التكلفة الإجمالية 17.5
  10. اعرض الملف حساب فاتورة الكهرباء المصرية من يوليو 2017 و يوليو 2018 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ================= استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم باستهلاك الكهرباء في المنازل وحسابها بالأكسس بطريقتين أولا بحساب تكلفة عدد الكيلو وات المستهلكة ***************** والثانية بحساب عدد الكيلوات المقترح للتكلفة المحددة ------------------------------- وكل ذلك في نموذج واحد ودالتين معرفتين ///////////////////////////// ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 20 سبت, 2017 الاقسام قسم الأكسيس
  11. Version 3.0.0

    780 تنزيل

    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ================= استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم باستهلاك الكهرباء في المنازل وحسابها بالأكسس بطريقتين أولا بحساب تكلفة عدد الكيلو وات المستهلكة ***************** والثانية بحساب عدد الكيلوات المقترح للتكلفة المحددة ------------------------------- وكل ذلك في نموذج واحد ودالتين معرفتين ///////////////////////////// ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل إن شاء الله
  12. بارك الله لك أخي الكريم اعتمدت على أنك تعرف كيفية عمل التنسيق الشرطي وبناء عليه تم تعديل المشاركة السابقة ليكون بها الجواب الكامل
  13. السلام عليكم ورحمة الله وبركاته وفقنا الله وإياكم لكل خير بعد إذن الأحباب المشاركين هذه محاولة مني لعلها تكون الإجابة تم التلوين باستخدام التنسيق الشرطي: بتحديد النطاق $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
  14. فعلا رمز الاتصال لديك أخي الكريم لا يدل على أن الاتصال مقطوع فهذا رمز قطع الاتصال في اللان وهذا رمز قطع الاتصال في الوايرلس ............. الغريب أننا لم نتلق أي رد من صاحب السؤال!!
  15. لعمل المطلوب بكل بساطة يلزمك وضع المعادلة =TRUNC(D3/$G$1,2) في الخلية G3 وذلك بقسمة عدد دقائق التأخير على عدد دقائق الحصة وفي الخلية H3 نضع هذه المعادلة =E3*G3 بضرب عدد حصص التأخير في سعر الحصة وفي الخلية I3 نضع هذه المعادلة =F3-H3 بطرح قيمة الخصم من المرتب
  16. الكود صحيح 100% ويعمل بكفاءة عالية ومجرب في أكثر من موضع وهذا ملف بسيط للتجربة وموافاتي بالنتيجة حتى نتوصل لأسباب عدم عمل البرنامج مع الأستاذ شيفان كما هو مطلوب check internet.rar
  17. يمكنك استعمال هذا الكود 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 مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول وكود الشرط يمكن تضمينه في أي إجراء أو حدث وفقنا الله وإياكم لكل خير
  18. بارك الله لك أستاذ هشام مشكلة غلق ملف الإكسل إذا قام المستخدم بإضافة أو حذف عمود أو صف لها أسباب كثيرة منها: كثرة المعادلات كثرة أوراق العمل المحتوية على معادلات قلة إمكانيات جهاز المستخدم كالمعالج والذاكرة العشوائية بالإضافة إلى ما ذكرت حضرتك من تجميد الألواح او التقسيم وأدعو الجميع المشاركة بذكر السبب الذي أدى لوجود هذه المشكلة معهم وطريقة حلها
  19. ما شاء الله أسلوب رائع في الكتابة أتوقع لك مستقبلا في تأليف المشاركات النافعة أستاذ @المالكي333 المشكلة تكمن في عدم إرفاق الملفين حتى يتمكن أحد الزملاء بعمل المطلوب وتوضيح خطواته
  20. التجربة خير دليل جرب وأخبرنا بالنتيجة رغم أنه لا يوجد ما يمنع تنفيذها نظريا
  21. ما الذي لايعمل؟ يجب أن تحددكلامك فربما يفهما أحدنا أن الوظيفة الإضافية لا تعمل وهذا مخالف للحقيقة فهي تعمل بنجاح ربما يحتاج أحدنا ممن لم تعمل معه إعادة الخظوات بطريقة أكثر دقة في تنفيذ المطلوب وفقنا الله وإياكم لكل خير
  22. بعد إذن حبيبنا شيفان يمكن استعمال المعادلة الآتية DSum("Field", "Table", "Field > 0") حيث table اسم الجدول و field اسم الحقل الموجود به الأرقام
×
×
  • اضف...

Important Information