تسمية شيت بناءً لتسمية خلية

[j.k]

السلام عليكم

الاخوة الافاضل

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

[رجب جاويش]

تفضل أخى

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

تسمية الشيتات.rar

[الـعيدروس]

السلام عليكم

انسخ هذا الكود لحدث الورقة

تعتمد تسمية الشيت النشط حسب قيمة خلية " A1 "

بإمكانك تغير أي خليه تريد

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text

End Sub

[j.k]

السلام عليكم

الاخوين الفاضلين رجب جاويش وعباد(ابونصار)

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

[طارق_طلعت]

بعد التحية

حاولت تنفيذ الكود لكنة لا يعمل فبرجاء المساعدة لتنفيذ الكود

و شكرا لمساعدتكم

[محمود_الشريف]

أخى الكريم

الأستاذ / طارق طلعت

كلا الكودين السابقين

يوضعان فى حدث الشيت المراد تغيير اسمه حسب خليه ما

 

فالأول الذى قام بإرفاقه الاستاذ القدير // رجب جاويش .. والكود للأستاذ العلامه القدير // عبد الله باقشير

يتغير اسم الشيت بناء على الخلية رقم (( b2 ))

 

والثانى الخاص بالأستاذ القدير // العيدروس

أيضا يتغير اسم الشيت بناء على الخليه (( a1 ))

 

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

 

 

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

وتقبل منى وافر الاحترام والتقدير

[طارق_طلعت]

الأخ العزيز محمود الشريف

شكرا جزيلا على الرد

لم افهم ماذا يعنى اضافة الكود الى حدث الشيت

هل يعنى ذلك اضافتة فى الفيجوال بيسيك

 

قمت بتصميم ورقة عمل مكونة من 200 شيت للمخازن و كل شيت يمثل كشف حساب صنف

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

فقمت بعمل COPY , PASTE لكود الأخ العيدروسى فى الفيجوال بيسيك

و لكن الكود لم يعمل

حاولت ارفاق الملف لكن للأسف يعطى خطأ غير مسموح برفع هذا النوع من الملفات

 

[احمد ابوزيزو]

الاخ الكريم

السادة الاعضاء

السلام عليكم

بعد اذن السادة المشاركين

طريقة اضافة الكود الي المصنف بالصور من 1 الي 3

كل عام انتم بخير

لصق الكود .rar

[محمود_الشريف]

أخى الكريم

الأستاذ // احمد ابو زيزو

بارك الله فيكم

 

أخى الكريم الاستاذ / طارق

فى حال عدم معرفتكم كيفية اضافة الكود

قم بضغط الملف عن طريق اى برنامج ضغط  

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

وان كانت مساحته كبيره قم برفعه عبر اى موقع رفع وليكن مثلا موقع مركز تحميل الخليج

وتقبل منى وافر الاحترام والتقدير

[طارق_طلعت]

الأخ العزيز احمد ابو زيزو

الأخ العزيز محمود الشريف

اشكركما شكرا جزيلا على مجهوداتكم

قمت بأرفاق الملف الخاص بالمخازن بعد الغاء نصف اليتات لتخفيف الملف

و المطلوب وضع كود تسمية الشيتات بحيث يقوم بتغير اسم كل شيت بناء على الخلية C5

و هناك طلب اخر ان امكن - فى شيت المخزن ملخص بجميع الأصناف و قمت بعمل هايبر لينك

لكل كود صنف للذهاب الى الشيت الخاص بالصنف و لكن عندما يتم تغييثر اسم الشيت فأن الهايبر لينك لا يعمل

فهل هناك طريقة لأستمرار عمل الهايبر لينك مع تغيير اسم الشيت

 

أسف عبى كثرة الأسئلة و لكنة البرنامج الأول لى و اتمنى ان يحوز قبولكم

 

و شكرا جزيلا

TESTالمخزن.rar

[طارق_طلعت]

UP

[طارق_طلعت]

Up

[احمد ابوزيزو]

الاخ الكريم

تم انشاء مصنف جديد وذلك لعدم عمل كود اسم الورقة بالمصنف المرفق

اما عن الارتباط فيرجي طلب ذلك من خبراء المنتدي

المخزن الجديد.rar

[طارق_طلعت]

الأخ القدير احمد ابو زيزو

شكرا جزيلا على المساعدة و لكن اريد ان اعرف لماذا لا يعمل الكود على المصنف الخاص بى

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

فبرجاء مساعدتى على تفعيل الكود على المصنف الخاص بى او افادتى بسبب عدم التفعيل

 

و شكرا مقدما على مساعدتكم

[أبوحازم]

عمل مبدع

[احمد ابوزيزو]

الاخ الكريم

السلام عليكم

تم بحمد الله تعالي

تنفيذ المطلوب علي الملف الاصلي

 

المخزن.rar

[احمد ابوزيزو]

السلام عليكم

انسخ هذا الكود لحدث الورقة

تعتمد تسمية الشيت النشط حسب قيمة خلية " A1 "

بإمكانك تغير أي خليه تريد

 

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

مجرد ملاحظة تم ملاحظتها علي هذا الكود

الكود لا يعمل اذا كانت الخلية المرتبط بها اسم الشيت هي قي الاصل صيغة

مثل a1=b1+c1

[علي المصري]

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

ولكن هل يمكن جعل الكود مرن بحيث يتغير تلقائيا بتغير اسم الورقه

تم تعديل يوليو 20, 2014 بواسطه علي المصري

[طارق_طلعت]

استاذ احمد ابو زيزو

 

جزيل الشكر لحضرتك على تنفيذ الكود فى الملف الخاص بى

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

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

 

و شكرا على التعاون

[احمد ابوزيزو]

استاذ احمد ابو زيزو

 

جزيل الشكر لحضرتك على تنفيذ الكود فى الملف الخاص بى

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

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

 

و شكرا على التعاون

اخي الكريم

تم تنفيذ كود اخر

الكود الجديد يعمل علي الخلية ذات الصيغة

وهذا الكود الجديد هو لاحد اعضاء المنتدي ولكني لا اتذكر اسمه

الملف السابق ارسالة يعمل بصورة طبيعية ويتم تغير اسم الورقة بتغيير الخلية c5

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

يمكنك تغيير قيمة الخلية c5 بتغيير الخليتين التابعتين لها

ارجع الي الملف السابق ارفاقه وقم بتجربته

تم تعديل يوليو 21, 2014 بواسطه احمد ابوزيزو

[احمد ابوزيزو]

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

ولكن هل يمكن جعل الكود مرن بحيث يتغير تلقائيا بتغير اسم الورقه

الاستاذ المحترم

السلام عليكم

يمكن ذلك اذا تم استخدام (اسم الشيت المعطي من قبل الاكسيل في الكود وليس اسم اشيت الظاهر امامنا )

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

وهذه العباره هي لاحد اعضاء المنتدي

تم تعديل يوليو 21, 2014 بواسطه احمد ابوزيزو

[أبوعيد]

مثال لتوضيح ما سبق

السطر الآتي ينشط الورقة الأولى في أي مصنف (اي انه يعمل في أي ملف أكسل)

sheets(1).activate

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

بما أنها الورقة الأولى ( بغض النظر عن اسمها ) فيتم تنشيطها

 

بينما السطر الآتي لا يعمل إلا في الملف الذي يحتوي على ورقة اسمها 1

sheets("1").activate

فإذا كانت الورقة غير موجودة فتظهر رسالة خطأ

 

تحياتي

[علي المصري]

شكرا جزيلا وعلى الاهتمام

تم حل المشكلة

الحمد لله

[محمد سويد]

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

ماشالله تبارك الله زادكم الله من علمه انا صار لي يومين في المنتدى واستفدت كثير اسال الله عزوجل ان يجعلها في ميزان حسناتكم

اخواني الاعزاء احتاج اغير اسم شيت الى تاريخ لان عندي تقارير يومية هل استطيع اغير اسم الشيت الى تاريخ ويتم تغير التاريخ تلقائي انا ارفقت الملف المراد العمل عليه 

اسم الشيتات ( تقارير يومية + تقارير التحركات اليومية)

واعتذر على الاطالة

اعمال يومية3.rar

[Ali Mohamed Ali]

تفضل

 

اعمال يومية3.xlsm