معرفة أول عمود فى كل صفحة

[Mohammed Farid]

السلام عليكم إخواني الكرام

أريد كود يظهر لي قبل الطباعة رقم أول سطر في كل صفحة من صفحات الشيت

ولكم جزيل الشكر

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم محمد فريد

يرجى تغيير اسم الظهور للغة العربية

 

قم بالذهاب إلى التبويب 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

تقبل تحياتي

[ابو عبدالبارى]

رائع

[Mohammed Farid]

شكرا جزيلا لك أخي العزيز ياسر خليل

دمتم في حفظ الله.

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير

جزيت خيراً على دعوتك الطيبة

تقبل تحياتي