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

[الجموعي]

السلام عليكم ورحمة الله تعالى وبركاته

المطلوب في المرفق

Sheet Reneme.rar

[ibn_egypt]

اخى الفاضل الجموعي

 

جرب الملف المرفق لربما به طلبك

 

تحياتي  

Sheet Reneme.rar

[عبدالله باقشير]

السلام عليكم

 

جزاك الله خير اخي المجتهد ابن مصر

 

هذا اختصار بسيط للكود ائراءا للموضوع

Sub cmdRename_EN_Click()
 Dim i As Integer
 On Error Resume Next
 For i = 1 To Sheets.Count
    ThisWorkbook.VBProject.VBComponents(Sheets(i).Name).Name = "sheets" & i
    Sheets(i).Name = "sheets" & i
 Next
End Sub

Sub cmdRename_AR_Click()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
    ThisWorkbook.VBProject.VBComponents(Sheets(i).Name).Name = "ورقة" & i
    Sheets(i).Name = "ورقة" & i
Next
End Sub

تحياتي

[الجموعي]

بارك الله فيك أستاذي الكريم / إبن مصر على سرعة الرد وعمل المطلوب

جزيت خيرا

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

مثلا:الأوفيس واجهة عربية إفتراضيا أسماء الاوراق عربية ورقة1. ورقة 2

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

[ibn_egypt]

السلام عليكم

 

جزاك الله خير اخي المجتهد ابن مصر

 

هذا اختصار بسيط للكود ائراءا للموضوع

تحياتي

 

 

دائما البساطة عنوانك .. استاذي الفاضل أ.عبد الله باقشير

 

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

 

تحياتى وتقديري معلمى القدير      

[الجموعي]

أستاذي القدير /عبد الله باقشير

بارك الله فيك على مرورك العطر وإثرائك للموضوع بهذا

كود رائع جدا جزاك الله خيرا

تقبل ودي وإحترامي

[الجموعي]

اخى الفاضل الجموعي

 

جرب الملف المرفق لربما به طلبك

 

تحياتي  

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

مثلا:الأوفيس واجهة عربية إفتراضيا أسماء الاوراق عربية ورقة1. ورقة 2

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

[الجموعي]

للرفع