ممكن معادلة او كود يقوم بتغيير اسم الشيت

[طه الدوي]

ممكن معادلة او كود يقوم بتغيير اسم الشيت بناء علي ملئي خليه بهذا الاسم بمعني  -الاسم الافتراضي هو شيت 1 - اريد تغيير هذا الاسم الي سيارات مثلا فبمجرد اكتب سيارات في خليه معينه في صفحة معينة يتغير اسم الشيت الي الاسم الجديد ولكم جزيل الشكر مقدما

[Ali Mohamed Ali]

تفضل شيت به ثلاثة طرق

 

تغيير اسم الخلية مع اسم الورقة.xlsm

[طه الدوي]

شكرا أستاذ علي واسف علي تاخري في الرد ولكن الشيت المرسل عندما أقوم بفتحه تخرج رسالة تقول الملف تالف لذلك ارجو إعادة رفعه ولكم جزيل الشكر علي اهتمامك

[Ali Mohamed Ali]

بسبب تاخرك فى الرد فقد تم حذفه

اليك الشيت مرة اخرى-برجاء الإهتمام والرد

 

تغيير اسم الخلية مع اسم الورقة.xlsm

[طه الدوي]

شكرا أستاذ علي الف مليون شكرا ولكن لي طلب اعتقد انه بسيط علي سيادتك وان كان عظيم عندي الا وهو ان تكون المعادلة بالعكس بحيث يتغير اسم الشيت بناء علي تغيير قيم الخلية

[Ali Mohamed Ali]

وهو كذلك بالملف المرسل اليك فيه هذا الطلب

 

[طه الدوي]

 الموجود بالعكس هو اكواد فقط اريده معدلات وليس اكواد لو سمحت يا أستاذ علي

[Ali Mohamed Ali]

أول صفحة فى الملف بالمعادلات

 

[طه الدوي]

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

 

[Ali Mohamed Ali]

أخى الكريم لا يصلح بالمعادلات

اليك الكود تكتب اسم الشيت الذى تريده فى الخلية A1

ولكن المعادلات فقط لإيجاد واستخلاص اسم الشيت وكتابته فى خلية ما وليس العكس

بارك الله فيك

 

 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text
End Sub

 

[طه الدوي]

اشكرك اساذ علي شكرا حتي تستغيث وتقبل تحياتى

[رشراش]

اول مرة اسمع... او اقراء دعاء مثل هذا.... فهل تراه دعاء خير ام غير ذلك!!

... سامحني تعجبت في الدعاء واحسبني أجيد اللغة العربية بعض الشئ*

[طه الدوي]

هو شكر بصيغة مبالغة ليس الا وان كان به لمحة من المزاح