اذهب الي المحتوي
أوفيسنا

كود لاضافة ورقة عمل مع تغيير اسم الشيت


omar shideed

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

السادة الافاضل .... 

يرجى مساعدتى فى ايجاد كود يعمل على اضافة شيتات اكسيل باسم معين ( يعنى لو عندى شيت اكسيل وبه اوراق عمل وعاوز اعمل كود لكى اضيف اوراق عمل اخرى مع تغيير اسم الشيت 

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

شاهد هذا الفيديو

 

الأكواد المستخدمة

Sub NweSheeetCustomeName()
On Error GoTo ErrorHandler
 
Dim NewSheet As Worksheet
Dim SheetName As String
 
Set NewSheet = Sheets.Add
 
SheetName = InputBox("Please Insert sheet name.")
 
If SheetName = "" Or Len(SheetName) > 31 Then
MsgBox ("You did not insert a name OR sheet name lenth is greater than 31 Characther")
Exit Sub
End If
 
NewSheet.Name = SheetName
 
ErrorHandler:
If Err.Number = 1004 Then
MsgBox ("This name already exist")
Application.DisplayAlerts = False
NewSheet.Delete
Application.DisplayAlerts = True
Exit Sub
End If
 
End Sub
رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / omar shideed

بارك الله فيك

بالفعل اخي الكريم مازال طلبك غير واضح

برجاء ارسال مثال لما تريده بملف

وبعد تقديم الشكر والتقدير لـ ...

الاستاذ القدير / معتصم محمد ... جزاه الله خيرا

الاستاذ الحبيب /  قنديل الصياد ... جزاه الله خيرا

 

واثراءا للموضوع شاهد اخي الروابط التالية علها تكون المطلوب حسب فهمي للطلب

وان كان كذلك نعمل علي ملفك  ( المشاركة رقم 2 )

 

http://www.officena.net/ib/index.php?showtopic=50524&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7#entry310579

 

وشاهد ايضا هذا الرابط

به نفس الطريقة باستخدام الازرار

كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information