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