أبوعيد

متى ينحسب الإضافي ب 50 ريال ؟ يعنى أكمل الفراغ لما تكون الحمولة أكبر من ........ حبة يكون إضافي السائق 50 وسؤالي الذي لم تجب عليه هل يوجد ليوم الجمعة حساب خاص ؟ تحياتي

جياك أخي حتى لو أضفت حسابات جديدة (يعني أوراق جديدة) ستجد النتيجة في الورقة summary

عفوا ورد خطأ في الملف المرفق السابق وهذا هو التصحيح تحياتي المصنف2.rar

السلام عليكم أخي رائد أنا مثلك لم أفهم لأن التنقيب في أكواد الآخرين سطرا سطرا يعد شيئا متعبا للعقل الأفضل أن يشرحه صاحب الكود نفسه والذي فهمته هو ان القيمة first_time هي متغير يأخذ القيمة TRUE OR FALSE هذا المتغير تم تعريفه من قبل المستخدم الجموعي يأخذ القيمة FALSE عند انطلاق القورم هكذا Private Sub UserForm_Initialize() first_time = False ويتم تغيير قيمته عند الضغط على أزرار الفورم أظن أنه يوجد خطأ في زر ألغاء الأمر لأن هذه القيمة لم تيم تحديدها هكذا If first_time Then ولكن الصحيح هو If first_time = TRUE Then أو If first_time = FALSE Then وأرجو من الأخ الجموعي أن يطل علينا لشرح هذه المعلومة تحياتي

تفضل اخي تحياتي المصنف1.rar

أخي العزيز عند الضغط على زر تعديل يتم تفعل حفظ التعديل وعند الضغط على الغاء الأمر يتم مسح الكومبوبكس الأزرق من الأرقام يعنى لا يوجدد بيانات وبما أنه لا يوجد بيانات يتم تفعيل زر جديد لأنه لا يمكن تفعيل زر تعديل إلا بوجود البيانات اختر رقما من الكومبو بكس الأرزق ستجد أن زر تعديل تم تفعيله

تفضل بس إذا واجهتك أي مشكلة أو بقيت أي مشكلة لا تتردد في نقلها إلينا فكلنا يريد المساعدة حتى يتم حل الموضوع تم التعديل على زر ألغاء الأمر فقط تحياتي التحكم بالأزرار2.rar

السلام عليكم تم العمل على حساب سعيد فقط فإذا نجحت التجربة يمكن نسخ المعادلات إلى حساب حسين مع عملته هو : وضعت معادلة في خانة (عادي) وأخرى في خانة (إضافي) بالشروط التي ذكرتها فجاءت مطابقة للأرقام التي وضعتها في الخلايا باستثناء الخلايا الملونة بالأحمر الرجاء مراجعت حساب سعيد والإخص الخلايا الحمراء قد تحتاج في وقت ما إلى زيادة سعر الرد العادي أو الإضافي فغير الرقم في الخلايا الزرقاء فقط هل حساب يوم الجمعة يختلف عن بقية الأيام ؟ تحياتي الاضافى1.rar

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

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

تفصل إذا وجد خطا أرجو توضيحه التحكم بالأزرار1.rar

يا ضاحي الغريب إبداعك عجيب قل لي كيف أهديك تحية لمعجب فيك اسمح لي اقول حيرت العقول ولك مني سلام تحمله الحمام وانتبه لا تنسينا اوفسينا أوفسينا

كود إظهار الصفحة (X هو اسم الصفحة) SHEETS("X").VISIBLE=1 أ[ما كود إخفاء الصفحة فيوجد نوعان من الإخفاء أخفاء عادي SHEETS("X").VISIBLE=0 وإخفاء شديد SHEETS("X").VISIBLE=2 الإخفاء العادي تستطيع بعد فك حماية الصفحة ( ومن القائمة المختصرة ) تستطيع إظهارها أما الإخفاء الشديد فلا تستطيع إظهار الورقة إلا من محرر الفيجوال بيسك

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

أرجو أن يكون هذا هو مطلوبك تفضل كشف حساب 1.rar

تفضل مطلوبك مخزن 2.rar

تفضل مخزن 1منتج تام مارس (2)1.rar

تفضل مثال11.rar

تفضل كلمة السر هي 123 وتستطيع أن تغيرها اخقاء اعمدة1.rar

إذهب إلى Private Sub ListBoxP1_Click() وغير هذا السطر CommandButton2.Enabled = false إلى CommandButton2.Enabled = True

الكود يعمل عندي جيدا أعطني مثالا للبيانات التي تكتبها والتي لا يعمل معها الكود معك مثلا اسم العميل : ............ رقم الشيك : ........... من تاريخ : ............ غلى تاريخ ...................

تفضل نبات1.rar

تفضل استدعاء البيانات1.rar

غير القيمة 0 في السطر التالي الموجود في التكست بوكس P36 If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then إلى القيمة 1 كالتالي If Application.WorksheetFunction.Search(M, Q, 1) = 1 Then ولاحظ النتيجة

أحسنت يا أخ محمد بارك الله فيك رائع جدا في انتظار الحلقات القادمة