أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تحديد اسم الشيت بدلالة الاسم المعرف

السلام عليكم طلب مساعدة في تنفيذ كود نحتاج احياناً لتمييز ورقة عمل من بين مجموعة اوراق عمل كثيرة تحديد لها معرف اسم خاص ..


موضوع مغلق


28-11-2020 08:07 مساء
مراد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1851
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 17-7-1979
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 

السلام عليكم
طلب مساعدة في تنفيذ كود
نحتاج احياناً لتمييز ورقة عمل من بين مجموعة اوراق عمل كثيرة تحديد لها معرف اسم خاص  لنطاق معين في الورقة مثل A1 من خلال "إدارة الاسماء" وأيضا عن طريق   VBA حتى إذا تم تغيير اسم ورقة العمل "worksheet" تظل مميزة المطلوب   هو عند إضافة أي ورقة عمل جديدة عن طريق الـ VBA يحمل نفس الاسم المعرف الخاص   لورقة سابقة كيف استطيع قبل الأضافة أن اجعل VBA يعطينا اسم الورقة   "worksheet" السابقة التي تحمل نفس الاسم المعرف الخاص في   "إدارة الأسماء" حتى استطيع اما حذف الورقة السابقة أو اقوم بتجاهلها   وإضافة الورقة الجديد في هذا الملف:اسم   الورقة المطلوب اعلامي بها ضمن VBA هي الورقة التي بها الاسم المعرف : Murad بغض   النظر عن اسمها ورقة7 التي قد تتغير
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تحديد الشيت عن طريق معرف الاسم.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(23.447) KB



أفضل إجابة مقدمة من salim وهي:
جرب هذا الكود
يدرج كل اسماء الـــ Named Range في المصنف مع بياناتها


Sub test()
Dim Nam
Dim t%: t = 3
Sheets("First_sheet").Range("D3").CurrentRegion.ClearContents
For Each Nam In ThisWorkbook.Names
  With Sheets("First_sheet").Cells(t, 4)
    .Value = Replace(Nam, "=", "")
    .Offset(, 1) = Nam.RefersToRange
    .Offset(, 2) = Nam.Name
     t = t + 1
  End With
 Next
End Sub

الملف مرفق
عرض الإجابة




28-11-2020 09:22 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تحديد اسم الشيت بدلالة الاسم المعرف
جرب هذا الكود
يدرج كل اسماء الـــ Named Range في المصنف مع بياناتها


Sub test()
Dim Nam
Dim t%: t = 3
Sheets("First_sheet").Range("D3").CurrentRegion.ClearContents
For Each Nam In ThisWorkbook.Names
  With Sheets("First_sheet").Cells(t, 4)
    .Value = Replace(Nam, "=", "")
    .Offset(, 1) = Nam.RefersToRange
    .Offset(, 2) = Nam.Name
     t = t + 1
  End With
 Next
End Sub

الملف مرفق
 
 
  Named_RG1.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(33.054) KB


28-11-2020 10:35 مساء
مشاهدة مشاركة منفردة [2]
أحمد يوسف
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 483
الجنس : ذكر
الدعوات : 2
يتابعهم : 4
يتابعونه : 11
قوة السمعة : 1129
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif تحديد اسم الشيت بدلالة الاسم المعرف
مراد
فين انت من كل هذه الإجابات الممتازة ,أين الضغط على الإعـــــــجــــاب ؟!!! وهل جزاء الإحسان الا الإحسان !!!12328



الكلمات الدلالية
تحديد ، الشيت ، بدلالة ، الاسم ، المعرف ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:19 مساء