ahmedghandour

' لازم تعلن عن المتغير if me.textbox1.value="" _ and me.textbox2.value="" _ and me.textbox3.value="" _ ' و هكذا حتي تنتهي من ال 18 تكست بوكس and me.textbox .value="" then msgbox " الخلايا فارغه بالفعل " ,vbokonly,"GHANDOUR" else ' اف الموجوده بالاعلي exit sub end if ' بعد عمل الامر الخاص بال

ممكن تضيف الامر التالي قبل كود التفريغ

الاخ :رشوان احمد تحياتي بعض الازرار لا اعلم مغذي عملها مثلا مفتاح حذف نهائي تقصد حذف البيانات من التيكستات بوكس ولا من خلايا الاكسل برجاء التوضيح لاكن علي كل مفتاح خروج الفرم ضع فيه الامر التالي unload me اما مفتاح الحفظ ضع فيه الكود التالي thisworkbook.save اما خروج الفورم و الاكسل (اقصد المصنف ) ضع فيه الكود التالي thisworkbook.save unload me application.quite application.displayalerts=false الامر السابق لو انت مش عاوز البرنامج طلب تاكيد علي الحفظ لانه حفظ تلقائي بمجرد الضغط علي المفتاح و كمان دا امر خاص بالمهمه دي بس يعني لو قفلت المصنف من غير الفورم هيطلب تاكيد علي الحفظ مسح البيانات دا لو من التكستات بوكس بس يبقي هتعمل الامر دا dim aa as integer if msgbox(" هل تريد تفريغ الخلايا من علي الفورم ",vbyesno,"GHANDOUR")=vbyes then for aa = 1 to 18 ' الارقام 1 الي 18 تمثل التكست بوكس عندك me.controls("TextBox" & aa).value="" next exit sub else exit sub end if بقي لديك مفتاح واحد برجاء توضيح المطلوب مع خالص تحياتي

اخي حماده عمر لقد استفدت من اعمالك بارك الله فيك شكرا لمرورك الكريم و لا تبخل عنا دائما بكل جديد مع خالص تحياتي

عملت حيله بسيطه عشان تتخطي الخطاء الناتج عن تنسيق التاريخ لاكن بقيت مشكله و هي ان انا اعتمدت علي الشيت في خليه معينه و عطيتها الداله TODAY() و التنسيق عام هل في اليوم التالي سوف تحافظ علي التنسيق لا اعلم الموضوع محتاج بحث لاكن راجع الملف لعل تجد ما يجبر خاطرك و تقبل تحياتي appo.rar

هيا فعلا الاول خليه في الاكسل و لا اكتف اكس علي العموم تضغط كليك يمين علي الخليه و تختار تنسيق و تحتار تبويب عام و تختار الوقت من علي اليمين لو الاكسل عندك English اضغط علي الخليه كليك يمين format cells > Time >

اعتقد ان دي مش فورمة VBA ممكن تكون خليه في الاكسل اعمل التنسيق بتاع الخليه علي الوقت العربي لو ما ظبطت ما تبخلش علينا استاذنا بالفرمه الجميله دي

و فيك بارك الله شكرا علي مرورك الجميل استاذنا

البرنامج دا هيفيدك جداجدا جدا من تصميمي برنامج فعلا رائع كما تحتاجه و اي استفسار انا في الخدمه

تفضل اخي و اي استفسار انا في الخدمه يمكنك التحميل من المرفقات تم التعديل علي الفورم 11 و تركت فورم 1 يمكنك نسخ الاكواد من فورم 11 الي مفاتيح الفورم 1 TOTAL QUOTATION BLOCKS & KERBS 01-03-2017.rar

حضرتك انا بعدل الملف و هيعجبك بإذن الله

بالتوفيق

تم إضافة رابط من علي ميديا فاير و ملف الاكسل الاصلي في المرفقات برجاء من اساتذتنا في المنتدي الغالي ان يقدموا ملاحظتهم يجب فك الضغط عند C:\GHANDOUR انسخ الملف المضغوط و اختار فك الي GHANDOUR او افتح ملف الاكسل مباسرة بتون الحاجه الي الملف التنفيذي المرفق ملف GH.rar هذا ملف الاكسل فقط برنامج حسابات الاصناف الاصدار الاول.rar GH.rar

تنسيق ملف الاكسل فيه مشاكل بالنسبه للقيم بتاعت الخلايا لو حضرتك نزلت لاخر صف في العمود A هتلاقي الادخالات اللي انت ضفتها موجوده

فيه حاجه كمان بعيد عن كود البحث for لما تستخدم لزم تعلن عن المتغير بتاعها