أخي العزيز
عند الضغط على زر تعديل يتم تفعل حفظ التعديل
وعند الضغط على الغاء الأمر يتم مسح الكومبوبكس الأزرق من الأرقام يعنى لا يوجدد بيانات
وبما أنه لا يوجد بيانات يتم تفعيل زر جديد
لأنه لا يمكن تفعيل زر تعديل إلا بوجود البيانات
اختر رقما من الكومبو بكس الأرزق ستجد أن زر تعديل تم تفعيله
تفضل
بس إذا واجهتك أي مشكلة أو بقيت أي مشكلة
لا تتردد في نقلها إلينا فكلنا يريد المساعدة
حتى يتم حل الموضوع
تم التعديل على زر ألغاء الأمر فقط
تحياتي
التحكم بالأزرار2.rar
السلام عليكم
تم العمل على حساب سعيد فقط فإذا نجحت التجربة يمكن نسخ المعادلات إلى حساب حسين
مع عملته هو :
وضعت معادلة في خانة (عادي) وأخرى في خانة (إضافي) بالشروط التي ذكرتها فجاءت مطابقة للأرقام التي وضعتها في الخلايا باستثناء الخلايا الملونة بالأحمر
الرجاء مراجعت حساب سعيد والإخص الخلايا الحمراء
قد تحتاج في وقت ما إلى زيادة سعر الرد العادي أو الإضافي فغير الرقم في الخلايا الزرقاء فقط
هل حساب يوم الجمعة يختلف عن بقية الأيام ؟
تحياتي
الاضافى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
ولاحظ النتيجة
الأخ حمادة باشا
شكرا على تقديرك واعجابك بالفكرة
الأخ كيم
لم أفهم طلبك ماذا تعني (بالملف الأصلى) فقد أرفقت لنا ملفا واحدا فقط وتم التعديل عليه
إذا كنت تقصد ملفا آخرا فأرفقه حتى يتم التعديل عليك
بارك الله في الجميع