Mohammed Farid قام بنشر مايو 15, 2016 مشاركة قام بنشر مايو 15, 2016 السلام عليكم إخواني الكرام أريد كود يظهر لي قبل الطباعة رقم أول سطر في كل صفحة من صفحات الشيت ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 15, 2016 مشاركة قام بنشر مايو 15, 2016 وعليكم السلام أخي الكريم محمد فريد يرجى تغيير اسم الظهور للغة العربية قم بالذهاب إلى التبويب Formulas ثم Name Manager ثم انقر New واكتب الاسم التالي والمعادلة التالية كما بالصورة =GET.DOCUMENT(64) هذه هي المعادلة ... ************ اذهب لأول خلية في أي عمود وضع المعادلة التالية ثم قم بسحبها ، سيظهر معك أرقام الأسطر المطلوبة =IFERROR(INDEX(HPBreaks,ROW()),"") وهذا كود يؤدي الغرض إن شاء الله Sub WhereIsPageBreak() Dim Ws As Worksheet, I As Integer Set Ws = Sheets("Sheet1") With Ws.HPageBreaks If .Count > 0 Then For I = 1 To .Count MsgBox .Item(I).Location.Row Next I Else MsgBox "No Page Breaks On This Sheet" End If End With End Sub وهذا كود ثاني لإظهار جميع الأرقام المطلوبة في رسالة واحدة فقط Sub StoreRowsInArray() Dim Ws As Worksheet, I As Integer, P As Integer, Arr Set Ws = Sheets("Sheet1") Application.ScreenUpdating = False Application.Calculation = xlManual With Ws.HPageBreaks If .Count > 0 Then For I = 1 To .Count Arr = Arr & Chr(13) & .Item(I).Location.Row Next I MsgBox Arr Else MsgBox "No Page Breaks On This Sheet" End If End With Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub تقبل تحياتي رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر مايو 15, 2016 مشاركة قام بنشر مايو 15, 2016 رائع 1 رابط هذا التعليق شارك More sharing options...
Mohammed Farid قام بنشر مايو 16, 2016 الكاتب مشاركة قام بنشر مايو 16, 2016 شكرا جزيلا لك أخي العزيز ياسر خليل دمتم في حفظ الله. رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 16, 2016 مشاركة قام بنشر مايو 16, 2016 الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير جزيت خيراً على دعوتك الطيبة تقبل تحياتي رابط هذا التعليق شارك 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.