اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

لدي فورم تغير اسم الشيت , احتاج مساعدة


الردود الموصى بها

السلام عليكم

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

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

ارجو المساعدة

الملف في المرفق

ملاحظة:- تم ادراج الكود في الاسفل نوع الملف اكسل 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

 

 

رابط هذا التعليق
شارك

قم اخي الكريم بارفاق ملف كمثال ليمكن التعامل معه بشكل اوضح

ولرفع الملفات

ستخدم المحرر الكامل ثم اضغط ملفك واختار من تبويب ارفاق الملفات بالاسفل

((اختر ملفات )) ثم حدد مكان الملف من علي الجهاز عندك قم موافق

(( لابد ان يكون الملف مضغوط)) باحد برامج الضغط واشهرها Winare

ولا تتجاوز مساحة الملف 1.95 ميجابايت

وان كان اكبر من ذلك قم برفعه علي اي موقع رفع ملفات وضع الرابط بالمشاركة

كما في الصورة علي الرابط التالي

https://www.officena.net/ib/topic/46745-طلب-مساعدة-كيفية-رفع-الملفات/#comment-280436

 

تقبل خالص تحياتي

 

تم تعديل بواسطه حمادة عمر
  • Like 2
رابط هذا التعليق
شارك

اخي العزيز ابو علاء

اولاً اشكرك من قلبي

نعم اعلم

لقد قمت بحل المشكلة

جرب بنفسك لتعرف القصد اذا لديك اضافة او ملاحظة ساكون ممتن لك

بانتظار الرد منك

تحياتي الك اخي

 

Data base.zip

تم تعديل بواسطه khalid_star2005
رابط هذا التعليق
شارك

  • 3 months later...
في ٢٣‏/٣‏/٢٠١٧ at 01:53, khalid_star2005 said:

اخي العزيز ابو علاء

اولاً اشكرك من قلبي

نعم اعلم

لقد قمت بحل المشكلة

جرب بنفسك لتعرف القصد اذا لديك اضافة او ملاحظة ساكون ممتن لك

بانتظار الرد منك

تحياتي الك اخي

 

Data base.zip

رغم قدم المشاركة وكانت سؤال لك وقد وصلت للحل 

لكنى احتجتها الان وتعلمت منك 

شكرا لك اخى خالد ووفقق الله 

يعمل جيدا ولكن هناك خطأ فى جملة vbyesonly 

ارجوا من الاخوه الاعضاء تعليل ما السبب في الخطا وشكرا للجميع

 

رابط هذا التعليق
شارك

مفيش حاجة اسمها vbyesonly هي اسمها vbOKOnly .. بس خلاص 

ومشكور على البحث في الموضوعات القديمة أخي الكريم محمود .. منكم نستفيد

رابط هذا التعليق
شارك

ايه اللي غلط!؟ تقصد إنك قمت بالبحث .. بالعكس عملية البحث هي الأفضل دائماً عند حل أي مشكلة

والإضافة اللي موجودة vbOKOnly لتجميل شكل الرسالة وجعل زر واحد فقط عليها ألا وهو زر OK ويمكن الاستغناء عنها كما تفضلت

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information