khalid_star2005 قام بنشر مارس 16, 2017 قام بنشر مارس 16, 2017 السلام عليكم لدي فورم تعديل اسم الشيت ناجح ما عدا اذا كان اسم الشيت موجود بل فعل تظهر خطأ مع رسالة دبك ارجو المساعدة الملف في المرفق ملاحظة:- تم ادراج الكود في الاسفل نوع الملف اكسل 2016 لا استطيع ارفاق الملف بسبب الحجم لا يسمح به في الموقع وشكراً Quote '''' Stoldna = كومبو بوكس يحتوي على اسماء الشيتات '''' StNewNa = تكست بوكس يكتب فيه اسم الشيت '''' ReNameSt = اسم الفورم ---------------------------------------------------------------------------------- Private Sub ReNaSt_Click() If Me.StOldNa.Value = "" Or Me.StNewNa.Value = "" Then MsgBox "يجب عدم ترك الحقول فارغة" Unload ReNameSt ReNameSt.Show End If If Me.StOldNa.Value = StNewNa.Value Then MsgBox "هذا الاسم موجود بل فعل" Unload ReNameSt ReNameSt.Show End If Worksheets(StOldNa.Text).Name = StNewNa.Text Unload ReNameSt ActiveWorkbook.Save ReNameSt.Show End Sub
ابو العلاء قام بنشر مارس 17, 2017 قام بنشر مارس 17, 2017 تفضل لعله المطلوب على فكرة هذة المشاركة هي اجابة سابقة لاحد الاساتذة لا اذكر اسمه ....جزاه الله كل خير 123.zip 2
khalid_star2005 قام بنشر مارس 17, 2017 الكاتب قام بنشر مارس 17, 2017 مشكور اخي ابو علاء ولكن المطلوب هو التغيير عن طريق اليوزر فورم المشكلة هو عند تغيير اسم الشيت الى شيت موجود بالفعل تظهر رسالة خطأ برمجي
حمادة عمر قام بنشر مارس 17, 2017 قام بنشر مارس 17, 2017 (معدل) قم اخي الكريم بارفاق ملف كمثال ليمكن التعامل معه بشكل اوضح ولرفع الملفات ستخدم المحرر الكامل ثم اضغط ملفك واختار من تبويب ارفاق الملفات بالاسفل ((اختر ملفات )) ثم حدد مكان الملف من علي الجهاز عندك قم موافق (( لابد ان يكون الملف مضغوط)) باحد برامج الضغط واشهرها Winare ولا تتجاوز مساحة الملف 1.95 ميجابايت وان كان اكبر من ذلك قم برفعه علي اي موقع رفع ملفات وضع الرابط بالمشاركة كما في الصورة علي الرابط التالي https://www.officena.net/ib/topic/46745-طلب-مساعدة-كيفية-رفع-الملفات/#comment-280436 تقبل خالص تحياتي تم تعديل مارس 17, 2017 بواسطه حمادة عمر 2
khalid_star2005 قام بنشر مارس 19, 2017 الكاتب قام بنشر مارس 19, 2017 تم الملف في المرفق Data base.zip
ابو العلاء قام بنشر مارس 22, 2017 قام بنشر مارس 22, 2017 جرب هذا وبالنسبة لرسالة الخطا فانه يحصل فقط ان اخترت رموز غير مسموح بها مثل +/ /*( الخ Data base.rar 1
khalid_star2005 قام بنشر مارس 22, 2017 الكاتب قام بنشر مارس 22, 2017 اخي لاحظ الصورة هذه الرسالة التي تظهر اريد انت تظهر رسالة " هذا الاسم موجود بالفعل " مع زر OK
ابو العلاء قام بنشر مارس 22, 2017 قام بنشر مارس 22, 2017 اخي الكريم هذا الخطأ لانك تختار اسما موجودا من قبل وكما تعلم لا يمكن تكرار اسماء الشيتات 1
khalid_star2005 قام بنشر مارس 22, 2017 الكاتب قام بنشر مارس 22, 2017 (معدل) اخي العزيز ابو علاء اولاً اشكرك من قلبي نعم اعلم لقد قمت بحل المشكلة جرب بنفسك لتعرف القصد اذا لديك اضافة او ملاحظة ساكون ممتن لك بانتظار الرد منك تحياتي الك اخي Data base.zip تم تعديل مارس 22, 2017 بواسطه khalid_star2005
محمود أبوالدهب قام بنشر يوليو 15, 2017 قام بنشر يوليو 15, 2017 في ٢٣/٣/٢٠١٧ at 01:53, khalid_star2005 said: اخي العزيز ابو علاء اولاً اشكرك من قلبي نعم اعلم لقد قمت بحل المشكلة جرب بنفسك لتعرف القصد اذا لديك اضافة او ملاحظة ساكون ممتن لك بانتظار الرد منك تحياتي الك اخي Data base.zip رغم قدم المشاركة وكانت سؤال لك وقد وصلت للحل لكنى احتجتها الان وتعلمت منك شكرا لك اخى خالد ووفقق الله يعمل جيدا ولكن هناك خطأ فى جملة vbyesonly ارجوا من الاخوه الاعضاء تعليل ما السبب في الخطا وشكرا للجميع
ياسر خليل أبو البراء قام بنشر يوليو 16, 2017 قام بنشر يوليو 16, 2017 مفيش حاجة اسمها vbyesonly هي اسمها vbOKOnly .. بس خلاص ومشكور على البحث في الموضوعات القديمة أخي الكريم محمود .. منكم نستفيد
محمود أبوالدهب قام بنشر يوليو 16, 2017 قام بنشر يوليو 16, 2017 حتى في دى غلط يظهر انى زهقتك كتير على العموم انا وقفت عملها والكود ظبط معايا وشكرا على ردكم المشرف
ياسر خليل أبو البراء قام بنشر يوليو 16, 2017 قام بنشر يوليو 16, 2017 ايه اللي غلط!؟ تقصد إنك قمت بالبحث .. بالعكس عملية البحث هي الأفضل دائماً عند حل أي مشكلة والإضافة اللي موجودة vbOKOnly لتجميل شكل الرسالة وجعل زر واحد فقط عليها ألا وهو زر OK ويمكن الاستغناء عنها كما تفضلت 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.