جمال احمد محمود قطب

يجب عليك تفعيل الماكرو اولا حتي يعمل معاك التكست بوكس للبحث

تفضل

بحث.xlsx

اشكرك ولكن لا يوجد مستحيل مع الاكسيل

لقد اجتهدت وقمت بايجاد هذا الكود

If keycod = 13 then

"*" & Textbox1 =  textbox1. Text  

End if

بس عيب الكود انة بيديني مسافة بعد النجمة

وانا مش عايز مسافة بعد النجمة انا عايز لما اكتب اي حرف بعد النجمة ميكونش فية مسافة

للعلم التكست بوكس دة باستخدمة في البحث 

السلام عليكم

ارجو كود يخليني لما اكتب في تكست بوكس وادوس علي المسطرة بدال ما يسيب مسافة يكتب نجمة(*) وما يسبش  مسافة

من الاخر عايز ابدل المسطرة بنجمة وشكرا مقدما

بضم صوتى لصوت الاخ 
انا كمان ابحث عن هذا الكود

جزاك الله خيرا انا استفدت من الشيت جدا

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

انا جربت اكثر من كود ولم يعمل الرجاء ادراج شيت جاهزة بالكود وشكرا

اغلاق الشيت بدون ظهور رسالة هل تريد حفظ التغييرات

في ١‏/١٢‏/٢٠١٢ at 08:53, ابو تميم said:

أخي زوهير

أعلم أني أزعجتك ولكني جربت هذا التعديل سابقا ولم يفلح معي لأن الكود هنا يبدأ بإغلاق الملف الفرعي ثم الانتقال إلى الملف الرئيس ثم فتح الفورم وهنا يتم تنفيذ الكود كما يلي

* إغلاق الملف الفرعي ثم الانتقال إلى الملف الرئيسي فقط ولكنه لا يقوم بفتح الفورم وذلك لأنه بمجرد تنفيذ السطر الأول من الكود وهو إغلاق الملف الفرعي ينتهي الكود ولا يتم تنفيذ باقي الكود لأن الملف تم إغلاقه

والدليل على ذلك أنه إذا كان لدينا أكثر من ملف اكسل مفتوح فإنه عند اغلاق الملف الفرعي لا يتم الانتقال إلى الملف الرئيسي وإنما يتم الانتقال إلى آخر ملف اكسل تم فتحه بعد الملف الرئيسي

وبالتالي يتم إنهاء الكود بمجرد إغلاق الملف الفرعي

العمل على ملف الاكسل من خلال الفورم.rar

عندما اريد الحفظ التلقائى للشيت  اذهب الى الحدث bfore close ثم اكتب save وفى هذه الحالة يتم حفظ التغييرات بمجرد غلق الشيت
اما فى هذه الحالة اريد ان اعرف كيف اغلق الشيت بدون ان يتم الحفظ وايضا بدون ان تظهر الرسالة التقليدية (هل تريد حفظ التغييرات)
وارجو ارسال ملف (شيت) جاهز بما طلبت وشكرا