elsedik قام بنشر فبراير 16, 2012 مشاركة قام بنشر فبراير 16, 2012 كتابة اسم معين فى الخلية a1 مثلا يتم تغيير اسم الصحفة الى هذا الاسم مرفق ملف تغيير .rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر فبراير 16, 2012 مشاركة قام بنشر فبراير 16, 2012 اخي الكريم استعمل هذا الكود Sub rename() Sheets("Sheet1").Name = [a1] End Sub رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 16, 2012 مشاركة قام بنشر فبراير 16, 2012 بعد اذن الأستاذ الفاضل / محمد يحياوى ممكن تجربة هذا الكود وهو يتفادى أن تكون الخليه a1 فارغة باظهار رسالة للمستخدم أن الخلية a1 فارغة كما يمكن تسمية الصفحة اكثر من مرة بتغير الاسم الموجود فى الخلية a1 الكود Sub rename() If [a1] = "" Then MsgBox " ÝÇÑÛÉ a1 ÇáÎáíÉ " Exit Sub End If ActiveSheet.Name = [a1] End Sub الملف المرفق للتوضيح تغيير1.rar رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر فبراير 17, 2012 مشاركة قام بنشر فبراير 17, 2012 بعد اذن الأستاذ الفاضل / محمد يحياوى ممكن تجربة هذا الكود وهو يتفادى أن تكون الخليه a1 فارغة باظهار رسالة للمستخدم أن الخلية a1 فارغة كما يمكن تسمية الصفحة اكثر من مرة بتغير الاسم الموجود فى الخلية a1 الكود Sub rename() If [a1] = "" Then MsgBox " ÝÇÑÛÉ a1 ÇáÎáíÉ " Exit Sub End If ActiveSheet.Name = [a1] End Sub الملف المرفق للتوضيح ايه الجمال ده بسم الله نبدأ رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر فبراير 17, 2012 مشاركة قام بنشر فبراير 17, 2012 (معدل) Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If [a1] = "" Then MsgBox " فارغة a1 الخلية " Exit Sub End If ActiveSheet.Name = [a1] End Sub يمكن ان تضع نفس الكود فى ThisWorkbook ليتغير تلقائيا دون زر أمر تم تعديل فبراير 17, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 17, 2012 مشاركة قام بنشر فبراير 17, 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.