بخصوص الترقيم اليدوي للصفحات

[lamine]

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

من فضلكم كيف يتم ترقيم الصفحات يدويا واختياريا؟

مثلا :

يكون رقم الصفحة الاولى هو الصفحة 01 ويكون رقم الصفحة الثانية هو تابع الصفحة 01

ويكون رقم الصفحة الثالثة هو الصفحة 02 ويكون رقم الصفحة الرابعة هو تابع الصفحة 02 وهكذا.

وبارك الله فيكم.

[عبدالله بشير عبدالله]

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

اذا كان الغرض من الترقيم اظهار الترقيم المطلوب في اوراق الطباعة او المعاينة فالكود افضل حل من الترقيم اليدوي مع الصفحات المتعددة

مثال في الملف المرفق

تكرار رقم الصفحة.xlsb

 

 

تكرار رقم الصفحة (1).xlsb

تم تعديل مارس 17 بواسطه عبدالله بشير عبدالله
الملف المحذوف به كودين كلاهما معاينة تم تعديل احدهما الى طباعة

[lamine]

شكرا جزيلا وبارك الله فيك

ولكن كيف يتم تطبيقه على ملف آخر؟

تم تعديل مارس 17 بواسطه lamine

[عبدالله بشير عبدالله]

اولا / الملف السابق به كودين كلاهما معاينة تم تعديل احدهما الى طباعة

ثانيا  :- للتطبيق على ملفك / احعل لغة الجهاز العربية وانسخ الكود المرفق وفي ملفك الاخر قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer(المطور) ثم Visual Basic    ثم من قائمة Insert  اختر  Module  والصقه  به واربطه بزر في الصفحة المراد ترقيمها

ملاحطة/ الكود المرفق مهمته الطباعة مع الترقيم

ان اردت المعاينة مع الترقيم بدون طباعة غير  كلمة FALSE الى TRUE في الجملة   ws.PrintOut From:=i, To:=i, Preview:=False

Sub طباعة()
    Dim ws As Worksheet
    Dim totalPages As Long
    Dim i As Long
    Dim pageNum As Integer
    
    Set ws = ActiveSheet
    
    totalPages = (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1)
    
    For i = 1 To totalPages
        
        pageNum = Application.WorksheetFunction.RoundUp(i / 2, 0)
        
        If i Mod 2 <> 0 Then
            ws.PageSetup.CenterFooter = "الصفحة " & Format(pageNum, "00")
        Else
            ws.PageSetup.CenterFooter = "تابع الصفحة " & Format(pageNum, "00")
        End If
        
        ws.PrintOut From:=i, To:=i, Preview:=False
        
    Next i
    
End Sub

 

تم تعديل مارس 17 بواسطه عبدالله بشير عبدالله

[lamine]

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