كود لعرض جميع اوراق العمل الموجودة بالملف

[قنديل الصياد]

كود لعرض جميع اوراق العمل الموجودة بالملف

الكود

Sub ShowWorkSheets()
  Dim mySheet As Worksheet
   
    For Each mySheet In Worksheets
        MsgBox mySheet.Name
      
    Next mySheet
  MsgBox "مع تحياتى / قنديل الصياد "
End Sub

مرفق ملف به التطبيق

 

Book1.rar

[حمادة عمر]

كود جميل

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

[أحمد صاحب]

فكره رائعه ولو تضيف فكره بسيطه وهي عند عرض اوراق العمل استطيع ان انتقل الي الورقة التي اريد

 

 

بمعنى ان الكود يعرض جميع اوراق العمل ومن خلاله اسنطيع النقر على اي ورقة اريد ان اعمل عليها 

 

مجرد فكره

لانه احيانا تكون لدي بالملف الواحد تقريبا عشرين ورقة عمل والتنقل بينها ياخذ وقت

 

تحياتي

[قنديل الصياد]

اخى العزيز

فكرة جميلة

ولقد قمت بتنفيذيها

واليك الملف بعد التعديل

 

Book1.rar

 

[أبو محمد عباس]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

الاستاذ الفاضل قنديل الصياد جزاك الله خيرا

اعمال رائعة وابداع متجدد جعله الله في ميزان حسناتك

وفقك الله ورعاك

[قنديل الصياد]

شكرا لك اخى واستاذى العزيز

الاستاذ / عباس السماوى

على كلامك الطيب

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