السلام عليكم
تم العمل على حساب سعيد فقط فإذا نجحت التجربة يمكن نسخ المعادلات إلى حساب حسين
مع عملته هو :
وضعت معادلة في خانة (عادي) وأخرى في خانة (إضافي) بالشروط التي ذكرتها فجاءت مطابقة للأرقام التي وضعتها في الخلايا باستثناء الخلايا الملونة بالأحمر
الرجاء مراجعت حساب سعيد والإخص الخلايا الحمراء
قد تحتاج في وقت ما إلى زيادة سعر الرد العادي أو الإضافي فغير الرقم في الخلايا الزرقاء فقط
هل حساب يوم الجمعة يختلف عن بقية الأيام ؟
تحياتي
الاضافى1.rar
أخي لو أكلمت هذه الفراغات سأكون قد فهمت مطلوبك
لاحظ
عند ضغط (تعديل) يتم تفعيل ....... ولأغاء تفعيل ..............
عند ضغط (حفظ التعديل) يتم تفعيل ....... ولأغاء تفعيل ..............
عند ضغط (جديد) يتم تفعيل ....... ولأغاء تفعيل ..............
عند ضغط (حفظ الجديد) يتم تفعيل ....... ولأغاء تفعيل ..............
عند ضغط (الغاء الامر) يتم تفعيل ....... ولأغاء تفعيل ..............
سكرا
أخي أرجو توضيح طلبك أكثر ولو أرفقت ملفا لكان أفضل
لاحظ معي
في عنوان مشاركتك مكتوب ( بدون الصفر )
وفي المشاركة نفسها مكتوب ( بدون الصف )
ولكل واحد من العبارات مدلول مختلف عن الأخرى
تقبل تحياتي
كود إظهار الصفحة (X هو اسم الصفحة)
SHEETS("X").VISIBLE=1
أ[ما كود إخفاء الصفحة فيوجد نوعان من الإخفاء
أخفاء عادي
SHEETS("X").VISIBLE=0
وإخفاء شديد
SHEETS("X").VISIBLE=2
الإخفاء العادي تستطيع بعد فك حماية الصفحة ( ومن القائمة المختصرة ) تستطيع إظهارها
أما الإخفاء الشديد فلا تستطيع إظهار الورقة إلا من محرر الفيجوال بيسك
الكود يعمل عندي جيدا
أعطني مثالا للبيانات التي تكتبها والتي لا يعمل معها الكود معك
مثلا اسم العميل : ............
رقم الشيك : ...........
من تاريخ : ............
غلى تاريخ ...................
غير القيمة 0 في السطر التالي الموجود في التكست بوكس P36
If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then
إلى القيمة 1 كالتالي
If Application.WorksheetFunction.Search(M, Q, 1) = 1 Then
ولاحظ النتيجة
الأخ حمادة باشا
شكرا على تقديرك واعجابك بالفكرة
الأخ كيم
لم أفهم طلبك ماذا تعني (بالملف الأصلى) فقد أرفقت لنا ملفا واحدا فقط وتم التعديل عليه
إذا كنت تقصد ملفا آخرا فأرفقه حتى يتم التعديل عليك
بارك الله في الجميع