أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد

السلام عليكم قمت بعمل ملف اكسيل به بيانات عن العملاء والبنوك المشتركين فيها وقائمة البنوك موجود وجاهزة فى النطاق (K5 : ..



07-09-2017 12:37 صباحا
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

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

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  التصدير فى ملف واحد PDF.rar   تحميل rar مرات التحميل :(42)
الحجم :(197.656) KB


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

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

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

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


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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب






 

07-09-2017 02:41 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تصدير صفحة واحدة متغيرة البيانات الى ملف PDF واحد
قبل أن أرى ردك كنت أعمل على الملف الأصلي .. لذا جرب الكود التالي على الملف الأصلي
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

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

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


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

 


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

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



هذا هو الملف المرفق  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  التصدير فى ملف واحد PDF _ 3.rar   تحميل rar مرات التحميل :(14)
الحجم :(162.613) KB


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

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

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




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


 










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

الساعة الآن 04:49 مساء