logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





07-09-2017 12:37 صباحاً
السلام عليكم
قمت بعمل ملف اكسيل به بيانات عن العملاء والبنوك المشتركين فيها
وقائمة البنوك موجود وجاهزة فى النطاق (K5 : K24)
ويتم اختيار اسم البنك من الخلية E1 وعندها يظهر العملاء المشتركين فى هذا البنك
وقد يظهروا فى صفحة و
احدة (مثل البنك الاهلى/ بنك الاسكندرية) أو صفحتين إذا كان عددهم كبير (مثل بنك مصر / وبنك الزمالك)
والمطلوب
تصدير هذه الورقة بجميع البنوك والعملاء المشتركين فيها فى ملف PDF واحد
اى الناتج سيكون عدد 8 بنوك من الـ 9 بنوك (لان هناك بنك السويس ليس به عملاء)
وكل بنك له ورقة واحدة ، ماعدا بنكى مصر / وبنك الزمالك فيحتويا على صفحتين

هذا هو الملف المرفق،،، وجزاكم الله خيرا

attachالتصدير فى ملف واحد PDF.rar
 
 
  التصدير فى ملف واحد PDF.rar   تحميل rar مرات التحميل :(42)
الحجم :(197.656) KB





look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
  07-09-2017 08:55 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
وعليكم السلام
حاولت بعدة طرق لكن خلايا الدمج تقف عائق في سبيل أي محاولة ..
من المعروف أن الدمج عدو الأكواد .. لذا حاول أن تبتعد عن الدمج بأي وسيلة ومن ضمن الطرق أن تقوم بإلغاء الدمج ثم تحدد الخلايا المطلوب توسيط النص فيها ثم Format Cells ومن التبويب Alignment اختر من القائمة المنسدلة المسماة Horizontal اختر الخيار Center Across Selection
وننتظر مشاركات الأخوة الكرام في الموضوع




look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
  07-09-2017 11:44 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 350
الجنس :
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 939
الاعجاب : 2
تم التعديل فى الملف بالغاء الخلايا المدمجة
وتخيف المطلوب الى مايلى

نفرض ان جميع البنوك بهم العملاء فى صفحة واحدة فقط (وليس اثنين كالسابق) ولا يوجد بنوك بدون عملاء

اى المطلوب تصدير صفحة واحدة ثابتة
لكن تتغير محتوياتها بتغير قيمة الخلية F1
والتى من المفترض ان تستمد بياناتها من القائمة (K5 : K24)


وهذا رابط الملف النرفق الجديد

https://drive.google.com/open?id=0B_JvhjM7x3olV2k0RFlaY2I1bHM




look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
  07-09-2017 02:41 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
قبل أن أرى ردك كنت أعمل على الملف الأصلي .. لذا جرب الكود التالي على الملف الأصلي
CODE
Sub Test()
    Dim wb      As Workbook
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim wk      As Worksheet
    Dim shp     As Shape
    Dim rg      As Range
    Dim cl      As Range
    Dim s       As String
    Dim r       As Long
    Dim m       As Long
    Dim i       As Long
    Const x     As Long = 35

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("AllToOnePDF")
        Set rg = ws.Range("K5:K" & ws.Cells(Rows.Count, "K").End(xlUp).Row)
        Set wb = Workbooks.Add
        Set sh = wb.Worksheets(1)
        r = 1
    
        For Each cl In rg
            If cl.Value = "" Then GoTo Skipper
            ws.Range("E1").Value = cl.Value
            ws.Copy After:=sh
    
            Application.EnableEvents = False
            Set wk = ActiveSheet
    
            With wk
                .Cells.Copy
                .Cells.PasteSpecial Paste:=xlPasteValues
                .Columns("I:L").Delete: .Columns("A:B").Delete
                .Rows("1:3").Delete
                For Each shp In .Shapes
                    shp.Delete
                Next shp
    
                If .Range("D5") <> "" Then
                    .Range("A1:F35").EntireRow.Copy
                    sh.Range("A" & r).Resize(35, 6).EntireRow.PasteSpecial xlPasteFormats
                    sh.Range("A" & r).Resize(35, 6).EntireRow.PasteSpecial xlPasteColumnWidths
                    sh.Range("A" & r).Resize(35, 6).EntireRow.PasteSpecial xlPasteAll
                    r = r + 35
                End If
                If .Range("D40") <> "" Then
                    .Range("A36:F70").EntireRow.Copy
                    sh.Range("A" & r).Resize(35, 6).EntireRow.PasteSpecial xlPasteFormats
                    sh.Range("A" & r).Resize(35, 6).EntireRow.PasteSpecial xlPasteColumnWidths
                    sh.Range("A" & r).Resize(35, 6).EntireRow.PasteSpecial xlPasteAll
                    r = r + 35
                End If
    
                Application.CutCopyMode = False
                Application.DisplayAlerts = False
                    .Delete
                Application.DisplayAlerts = True
            End With
            Application.EnableEvents = True
Skipper:
        Next cl
    
        With sh
            ActiveWindow.View = xlPageBreakPreview
                .ResetAllPageBreaks
                With .PageSetup
                    .TopMargin = Application.InchesToPoints(0.35)
                    .BottomMargin = Application.InchesToPoints(0.35)
                End With
                .DisplayPageBreaks = False
                .VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
        
                m = .Range("A1").SpecialCells(xlCellTypeLastCell).Row
                For i = x + 1 To m Step x
                    .HPageBreaks.Add Before:=.Cells(i, 1)
                Next i
            ActiveWindow.View = xlNormalView
    
            s = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\" & Environ("UserName") & "\Desktop\" & s, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            wb.Close False
        End With
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub




look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
  07-09-2017 09:32 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 350
الجنس :
تاريخ الميلاد : 7-7-1979
الدعوات : 1
قوة السمعة : 939
الاعجاب : 2
جزاك الله خيرا اخى ياسر على هذا المجهود
وهذا الكود الطويل
لكن
لاحظت وجود عملية اضافة اوراق ثم حذفها وحذف أعمدة وصفوف
فى هذا الكود "المعقد"

انا اجتهدت وعملت هذا الكود البسيط

CODE

Sub Excel_to_PDF() On Error Resume Next  'ÇäÔÇÁ ãÌáÏ "ÚãáÇÁ ÇáÈäæß" Ýì äÝÓ ãÓÇÑ ÇáãáÝ ÇáÇÕáí MkDir ThisWorkbook.path & "" & "ÚãáÇÁ ÇáÈäæß" ' ãÓÇÑ ÇáãáÝ ÇáÐí ÓíÊã ÇáÍÝÙ Ýíå path = ThisWorkbook.path & "" & "ÚãáÇÁ ÇáÈäæß" 'ãÑÈÚ ÍæÇÑí áÇÎÊíÇÑ ÇáØÇÈÚÉ íáíå ãÑÈÚ ÍæÇÑí áÇÎÊíÇÑ ÍÌã ÇáæÑÞÉ æÇÊÌÇååÇ MsgBox "Ü ÇÎÊÑ ÇáØÇÈÚÉ ÇáãäÇÓÈÉ ¡ Ëã ÇÎÊÑ ÍÌã ÇáæÑÞ ÇáãäÇÓÈ ... Ü", vbExclamation, "" Application.Dialogs(xlDialogPrinterSetup).Show Application.Dialogs(xlDialogPageSetup).Show For x = 5 To 24     Sheets("AllToOnePDF").[E1] = Sheets("AllToOnePDF").Cells(x, 11)     If Sheets("AllToOnePDF").[E1] <> "" And Sheets("AllToOnePDF").[F8] <> "" Then          ' ÇÓã ÇáãáÝ ÏÇÎá ãÓÇÑ ÇáÍÝÙ     fileSaveName = path & "" & " " & Sheets("AllToOnePDF").[E1]     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, _     Quality:=xlQualityStandard, IncludeDocProperties:=True, _     IgnorePrintAreas:=False, OpenAfterPublish:=False     End If Next x MsgBox " ÊÜã ÇáÍÜÝÜÙ  " & vbCrLf & " Ýí ÇáãÓÇÑ ÇáÃÊí" _ & vbCrLf & path, vbInformation + vbMsgBoxRight, "" End Sub  


وهو يقوم بجميع المطلوب لكن كل بنك فى ورقة مستقلة

فهل يمكن ان تعدل او تضيف فيه ليجمع هذه الاوراق المتفرقة فى ملف واحد
وما هو الجزء السؤال عن ذلك فى الكود تحديدا



هذا هو الملف المرفق attachالتصدير فى ملف واحد PDF _ 3.rar
 
 
  التصدير فى ملف واحد PDF _ 3.rar   تحميل rar مرات التحميل :(14)
الحجم :(162.613) KB





look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
  07-09-2017 10:26 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
لو كان المطلوب تصدير كل ملف بي دي إف لكل ورقة مستقلة لكان الموضوع أيسر وما اضطررت لهذا الكود الطويل الذي استغرق مني قرابة الساعة ونصف
وقد عانيت من الخلايا المدمجة الموجودة بالملف ... ما علينا من ذلك
الفكرة ببساطة لكي يتم تصدير هذه الأوراق مع تغيرها إلى ملف بي دي إف واحد فقط ، قمت بإنشاء مصنف بشكل مؤقت ويتم نسخ الأوراق فيه بشكل تسلسلي حسب المطلوب ثم تصدير ورقة العمل التي تم نسخ الأوراق فيها ولا أعتقد أنه توجد طريقة أخرى ، وعموماً ننتظر مشاركات الأخوة الأعضاء
أما بخصوص أن يتم تصدير كل ملف لملف بي دي إف منفصل ثم يتم دمج هذه الملفات فهذه عملية معقدة للغاية (وبفضل الله يمكن أن أقوم بها) ، ولكن كما أخبرتك أنها عملية معقدة للغاية حيث سيلزم أن تقوم بتنصيب Acrobat Pro لأن الكود يعتمد عليه في عملية دمج الملفات .. وأنا لا أحبذ ذلك على الإطلاق حيث أنه توجد طريقة سهلة ومباشرة حتى وإن بدت لك طويلة ...

وفي النهاية ننتظر مشاركات الأخوة الأعضاء لربما يكون هناك من لديه أفكار أفضل
تقبل تحياتي




look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
  10-12-2018 12:15 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
الجنس :
تاريخ الميلاد : 27-6-1985
قوة السمعة : 110
الاعجاب : 0
جارى الاطلاع وشكرا على هذا المجهود




look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
  27-02-2019 05:27 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 227
المشاركات : 90
الدولة : ليبيا
الجنس :
تاريخ الميلاد : 25-1-1964
قوة السمعة : 194
الاعجاب : 0
جزاكما الله خيرا اخي ياسر وابا الحسن




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تجميع وترصيد جميع صفحات الملف بصفحة واحدة بدون تكرار هانى على
1 409 هانى على
اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة هانى على
10 3066 hassona229
مساعدة في جمع بيانات عدة صفحات في صفحة واحدة m713712064
3 1092 YasserKhalil

الكلمات الدلالية
تصدير ، صفحة ، واحدة ، متغيرة ، البيانات ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:12 PM