اريد كود يقوم باظهار اسم الشيت النشط فى شريط الحاله

[إبراهيم ابوليله]

الاخوه الافاضل

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

ولكنى اريد كود اخر يقوم باظهار اسم الشيت النشط فى شريط الحاله

تم تعديل أغسطس 4, 2012 بواسطه دغيدى

[عبدالله المجرب]

السلام عليكم

استخدم هذا الكود

Application.StatusBar = ActiveSheet.name

[إبراهيم ابوليله]

الاخ عبد الله ممكن توضيح اكثر للكود

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

اسم الشيت النشط

بارك الله فيك

[رجب جاويش]

بعد اذن أخى الفاضل / عبد الله المجرب

أخى ابراهيم

كود أخى عبد الله يوضع فى حدث workbook

فى حدث تنشيط الشيت Workbook_SheetActivate

كالآتى

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Application.StatusBar = ActiveSheet.Name

End Sub

Book1.rar

[إبراهيم ابوليله]

الاخ رجب بارك الله فيك

ولكن ماذا لو اردنا اظهار ايضا كلمة

بسم الله الرحمن الرحيم بجوار اسم الشيت فى شريط الحاله

[رجب جاويش]

سيكون التعديل هكذا

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Application.StatusBar = ActiveSheet.Name & " " & "بسم الله الرحمن الرحيم"

End Sub

Book1.rar

[إبراهيم ابوليله]

الاخ رجب بارك الله فيك

وعمل رائع

ولكن هل يمكن عمل تنسيق للخط

بان نجعله مثلا لونه اصفر وسميك

[إبراهيم ابوليله]

للرفع

[رجب جاويش]

أخى ابراهيم

فى حدود معلوماتى أن هذا غير ممكن وغير متاح فى vba

والله أعلم

[إبراهيم ابوليله]

الاخ رجب

بارك الله فيك على معلوماتك