إدراج كل أسماء صفحات العمل طريقتان (الكود - الدوال) #88 - إكسل

Sub SheetNamesAcrossColumns()
Dim iSheet As Long
For iSheet = 1 To ActiveWorkbook.Worksheets.Count
ActiveCell.Offset(iSheet - 1, 0) = Worksheets(iSheet).Name
Next iSheet
End Sub
رابط الملف : www.facebook.c...

[@Emad_ghazi]

روعة استاذنا الله يبارك فيك

[@Reduce_Scan]

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

[@MrMemomm]

ما شاء الله

[@Reduce_Scan]

جزاك الله خيرا أخي محمد وشرفتنا بتعليقك

[@MahmoodAboshleh]

Sub SheetNamesAcrossColumns() Dim iSheet As Long For iSheet = 1 To ActiveWorkbook.Worksheets.Count ActiveCell.Offset(iSheet - 1, 0) = Worksheets(iSheet).Name Next iSheet End Sub

[@abdelhalimabdallah6255]

السلام عليكم - لو متاح رابط علي جوجل درايف او ميديا فاير -لان رابط الفيس لا يعمل

[@Reduce_Scan]

عليكم السلام ورحمة الله وبركاته مع دوال أكسل 365 هذا الحل أفضل kzbin.info/www/bejne/pXy7qXRniM94nsU

[@ebad35]

السلام عليكم كنت عايز اعرف طريقة الذهاب الي صفحة معينة في خلية في الصفحة الرئيسية وادمجها مع دالة sum ifs وجزاكم الله خيرا تحيتي لحضرتك

[@mostafaghazali3573]

محتاجين ال speedometer شرح

[@mahmoudhanfy5054]

حضرتك انسان جميل والله ربنا يجزيك خير بس ليا طلب بعد اذنك ينفع خضرتك تعمل play list

[@Reduce_Scan]

+Mahmoud Hanfy الله يكرمك أخي الكريم بالفعل موجودة لكن للإسف لاتضم كل المقاطع حسب فئتها وإن شاء الله في مرحلة قادمة نظبتها بشكل أفضل

[@mahmoudhanfy5054]

انا متابع خضرتك ياريت تستمر

[@Reduce_Scan]

إن شاء الله ودعواتك أخي محمود

[@mahmoudhanfy5054]

مش اعرف والله بس هخاول اتعلمها