Eid Mostafa قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 الأخوة الأعزاء كيف يمكن ربط إسم الشيت بخلية ما بمعنى أنه فى حالة تغيير ما هو مكتوب بداخل أحد الخلايا يتغير إسم الشيت تلقائياً. فى إنتظار إفاداتكم القيمة. أخوكم عيد مصطفى رابط هذا التعليق شارك More sharing options...
pal قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 استخدم هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveSheet.Name = [A1] End If End Sub رابط هذا التعليق شارك More sharing options...
Eid Mostafa قام بنشر يناير 12, 2012 الكاتب مشاركة قام بنشر يناير 12, 2012 أخى الكريم لقد وضعت الكود ، ولكن شيئاً لم يحدث ولم يتغير إسم الشيت معذرة أرجو الإيضاح. أخوك عيد مصطفى رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 السلام عليكم أخي العزيز / عيد جرب أن تضع المعادلة التالية في أي خلية =RIGHT(CELL("filename",B2),LEN(CELL("filename",B2))-SEARCH("]",CELL("filename",B2))) رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 السلام عليكم انا جربت الكود وهو يعمل زي الفل لا تنسى ان تضعه في حدث الصفحة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 عفوا لم أقرأ السؤال جيدا الرد سابق هو عكس ماتريد هو ربط خلية ما بإسم الشييت ، يعني أن يتغير محتوي الخلية إذا تغير إسم الشييت وسأتركه لإمكانية إستخدامه من أي من الأعضاء الكرام أما ماتطلب فهو كود أخونا pal بفرض أن الخلية المطلوب الربط بها هي A1 ولا تنسى ان تضعه في حدث الصفحة كما نصحك أخونا أبوأحمد رابط هذا التعليق شارك More sharing options...
Eid Mostafa قام بنشر يناير 12, 2012 الكاتب مشاركة قام بنشر يناير 12, 2012 أخى العزيز / طارق معذرة فقد حاولت وضع المعادلة بأحد الخلايا ولكنها تعطينى خطأ !!!!!! ولا أعلم سببه وهل هذة المعادلة ستغير إسم الشيت ؟ أم ستأتى بإسم الشيت إلى الخلية التى سنضع بها المعادلة ؟ أنا أريد لإسم الشيت أن يتغير بناءاً على إسم مكتوب بأحد الخلايا ولتكن على سبيل المثال J1 فأريد عندما أكتب فى J1 إسمى وليكن (Eid Mostafa) أن يتغير إسم الشيت إلى Eid Mostafa أخوك عيد مصطفى أخى العزيز / طارق معذرة وأنا رديت بالمشاركة رقم (7) قبل أن أرى ردك الأخير. أخوك عيد مصطفى الأخ العزيز / عبد الله المعذرة لكن ممكن شرح أكثر لمعنى وضع الكود فى حدث الصفحة. أخوك عيد مصطفى رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 تفضل اخى اسم الشيت.rar رابط هذا التعليق شارك More sharing options...
Eid Mostafa قام بنشر يناير 12, 2012 الكاتب مشاركة قام بنشر يناير 12, 2012 الأخ العزيز / أبو الحسن أشكرك شكراً جزيلاً. خالص شكرى وتقديرى أخوك عيد مصطفى رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 السلام عليكم ايضا معي لم يعمل لا المعادلة ولا الكود يا ريت مزيد من الشرح وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
أفضل إجابة الـعيدروس قام بنشر يناير 12, 2012 أفضل إجابة مشاركة قام بنشر يناير 12, 2012 (معدل) السلام عليكم الاخ الفاضل خالد القدس خلية التحكم بإسم الشيت A1 جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const S_N_ALI As String = "A1" Const S_ERR As String = "تسمية خاطئة " Dim S_NAM As String With Target If Not Intersect(.Cells, Range(S_N_ALI)) Is Nothing Then S_NAM = Range(S_N_ALI).Value If Not S_NAM = "" Then On Error Resume Next Me.Name = S_NAM On Error GoTo 0 If Not S_NAM = Me.Name Then MsgBox S_ERR & S_N_ALI End If End If End With End Sub وهذا المرفق CH_N_SH.rar تم تعديل يناير 12, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 السلام عليكم جزاك الله خيرا استاذ ابو حسن رائع أستاذ أبو نصار كود شاغل مائة المائة وكمان منسق بخبرة بارك الله فيك رابط هذا التعليق شارك More sharing options...
Eid Mostafa قام بنشر يناير 12, 2012 الكاتب مشاركة قام بنشر يناير 12, 2012 الأخ العزيز / أبو نصار أحسنت وأشكرك شكراً جزيلاً على مشاركتكم القيمة. كما أكرر شكرى أيضاً للأخ العزيز أبو الحسن. خالص شكرى وتقديرى أخوكم عيد مصطفى رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 اخي الكريم لاحظ الشرح Sheet Name.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 الاخ الفاضل خالد القدس جزاك الله خير على كلماتك الطيبه الاخ الفاضل عيد مصطفى مشكور على كلماتك الطيبه وفقك الله تقبلو تحياتي وشكري رابط هذا التعليق شارك More sharing options...
Eid Mostafa قام بنشر يناير 12, 2012 الكاتب مشاركة قام بنشر يناير 12, 2012 الأخ العزيز / يحياوى شرح أكثر من رائع وأشكرك شكراً جزيلاً على مشاركتكم القيمة. خالص شكرى وتقديرى أخوك عيد مصطفى رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 12, 2012 مشاركة قام بنشر يناير 12, 2012 استاذنا ابو نصار استاذنا يحياوى احترام وتقدير من القلب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.