تغيير اسم الصحفة

[elsedik]

كتابة اسم معين فى الخلية a1 مثلا يتم تغيير

اسم الصحفة الى هذا الاسم

مرفق ملف

تغيير .rar

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

اخي الكريم استعمل هذا الكود

Sub rename()

    Sheets("Sheet1").Name = [a1]

End Sub

[رجب جاويش]

بعد اذن الأستاذ الفاضل / محمد يحياوى

ممكن تجربة هذا الكود

وهو يتفادى أن تكون الخليه a1 فارغة باظهار رسالة للمستخدم أن الخلية a1 فارغة

كما يمكن تسمية الصفحة اكثر من مرة بتغير الاسم الموجود فى الخلية a1

الكود

Sub rename()

If [a1] = "" Then

MsgBox " ÝÇÑÛÉ a1  ÇáÎáíÉ "

  Exit Sub

End If

ActiveSheet.Name = [a1]

End Sub

الملف المرفق للتوضيح

تغيير1.rar

[Ahmed Elbhiry]

بعد اذن الأستاذ الفاضل / محمد يحياوى

ممكن تجربة هذا الكود

وهو يتفادى أن تكون الخليه a1 فارغة باظهار رسالة للمستخدم أن الخلية a1 فارغة

كما يمكن تسمية الصفحة اكثر من مرة بتغير الاسم الموجود فى الخلية a1

الكود

Sub rename()

If [a1] = "" Then

MsgBox " ÝÇÑÛÉ a1  ÇáÎáíÉ "

  Exit Sub

End If

ActiveSheet.Name = [a1]

End Sub

الملف المرفق للتوضيح

ايه الجمال ده بسم الله نبدأ

[دغيدى]

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 بواسطه دغيدى

[رجب جاويش]

بسم الله ما شاء الله

أحسنت

وجزاك الله كل خير