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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




طلب تعديل كود

صباح الخيييير اخواني الاعزاء كان الاخوان مساعديني بهاد الكود الي هو حفظ صفحة الاكسل نسخة pdf ونسخة اكسل بفايل محدد مساره ..



28-08-2017 08:16 صباحا
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
صباح الخيييير اخواني الاعزاء
كان الاخوان مساعديني بهاد الكود الي هو حفظ صفحة الاكسل نسخة pdf ونسخة اكسل بفايل محدد مساره 
الملف بالاصل عبارة عن فواتير مبيعات لزبائن مختلفين 
وهاي الاكواد
Sub SaveAsWorkbookWithxlsx()
    Dim fw          As String
    Dim path        As String
    Dim shp         As Shape

    Application.ScreenUpdating = False
        ActiveSheet.Copy
        
        With ActiveSheet
            .UsedRange.Value = .UsedRange.Value
            .Range("c20").Value = ThisWorkbook.Sheets("Sheet2").Range("c20").Value
            .OLEObjects.Delete: .Buttons.Delete
            For Each shp In .Shapes
                shp.Delete
            Next shp
        End With
        
        path = "e:Inv فاتورة رقم "
        fw = path & Range("E6").Value & "-" & Range("d8").Value
        
        Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs fw, FileFormat:=xlOpenXMLWorkbook
            ActiveWorkbook.Close
        Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "تم حفظ الفاتورة كملف إكسيل بنجاح", vbInformation, "حفظ ملف إكسيل"
End Sub
Sub SaveAsWorkbookAPDF()
---------------------------------------------------------------------------------------------------------------------------------------------------------------
    Dim fw          As String
    Dim path        As String
    Dim shp         As Shape

    Application.ScreenUpdating = False
        ActiveSheet.Copy
        
        With ActiveSheet
            .UsedRange.Value = .UsedRange.Value
            .Range("c20").Value = ThisWorkbook.Sheets("Sheet2").Range("c20").Value
            .OLEObjects.Delete: .Buttons.Delete
            For Each shp In .Shapes
                shp.Delete
            Next shp
        End With
        
        path = "e:Inv فاتورة رقم "
        fw = path & Range("E6").Value & "-" & Range("d8").Value
        
        Application.DisplayAlerts = False
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fw, _
                                            Quality:=xlQualityStandard, _
                                            IncludeDocProperties:=True, _
                                            IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
            ActiveWorkbook.Close
        Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "تم حفظ الفاتورة بنجاح", vbInformation, "Save As PDF"
End Sub



وانا بعمل الفواتير بداية كل شهر 
كيف ممكن اخليه يفتحلي ملف جديد كل شهر ويسميه باسم الشهر والسنة ويحفظ عليه الفواتير يعني فواتير شهر 1 بفايل لوحدة وفواتير شهر 2 بفايل لوحده وكالتالي
وكيف ممكن احدد الصفحة الي يحفظها يعني بدي بحفظ الصفحة الاولى فقط 

وشكرا للجميع 
سبب التعديل : ضبط الكود





28-08-2017 08:38 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif طلب تعديل كود
أخي الكريم خالد
بالنسبة للأكواد توضع بين قوسي الأكواد لتظهر بشكل منضبط 
راجع الرابط التالي لمعرفة المزيد حول الأمر : لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

بالنسبة للموضوع يفضل دائماً أن يرفق ملف للعمل عليه
تقبل تحياتي




28-08-2017 08:43 صباحا
مشاهدة مشاركة منفردة [2]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب تعديل كود
اخي الكريم ياسر 
شكرا لك على سرعة الرد 
المشكلة ان الملف الاساسي يحتوي العديد من التفاصيل ويحتوي كثير من البيانات الخاصة بالشركة التي اعمل بها 
ولا استطيع رفعه 




28-08-2017 08:45 صباحا
مشاهدة مشاركة منفردة [3]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب تعديل كود
Sub SaveAsWorkbookWithxlsx()
    Dim fw          As String
    Dim path        As String
    Dim shp         As Shape

    Application.ScreenUpdating = False
        ActiveSheet.Copy
        
        With ActiveSheet
            .UsedRange.Value = .UsedRange.Value
            .Range("c20").Value = ThisWorkbook.Sheets("Sheet2").Range("c20").Value
            .OLEObjects.Delete: .Buttons.Delete
            For Each shp In .Shapes
                shp.Delete
            Next shp
        End With
        
        path = "e:\Inv\ فاتورة رقم "
        fw = path & Range("E6").Value & "-" & Range("d8").Value
        
        Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs fw, FileFormat:=xlOpenXMLWorkbook
            ActiveWorkbook.Close
        Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "تم حفظ الفاتورة كملف إكسيل بنجاح", vbInformation, "حفظ ملف إكسيل"
End Sub
Sub SaveAsWorkbookAPDF()
    Dim fw          As String
    Dim path        As String
    Dim shp         As Shape

    Application.ScreenUpdating = False
        ActiveSheet.Copy
        
        With ActiveSheet
            .UsedRange.Value = .UsedRange.Value
            .Range("c20").Value = ThisWorkbook.Sheets("Sheet2").Range("c20").Value
            .OLEObjects.Delete: .Buttons.Delete
            For Each shp In .Shapes
                shp.Delete
            Next shp
        End With
        
        path = "e:\Inv\ فاتورة رقم "
        fw = path & Range("E6").Value & "-" & Range("d8").Value
        
        Application.DisplayAlerts = False
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fw, _
                                            Quality:=xlQualityStandard, _
                                            IncludeDocProperties:=True, _
                                            IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
            ActiveWorkbook.Close
        Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "تم حفظ الفاتورة بنجاح", vbInformation, "Save As PDF"
End Sub




28-08-2017 10:41 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب تعديل كود
يرجى المساعدة




28-08-2017 10:59 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif طلب تعديل كود
يصعب العمل على التخمين .. حاول أن تقوم بإنشاء ملف بسيط يحاكي الملف الأصلي وضع بيانات وهمية .. لا نطلب بيانات حقيقية ..
عندما نطلب ملف مرفق فإننا نطلب معرفة هيكلة الملف وشكل البيانات لا البيانات نفسها ..




28-08-2017 11:07 مساء
مشاهدة مشاركة منفردة [6]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب تعديل كود
خلص ان شاء الله بكرا 
شكرا لك اخي ياسر




28-08-2017 11:30 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif طلب تعديل كود
ونحن في انتظارك أخي العزيز خالد
ولا تقلق إن شاء الله أي شيء بالصبر سينجز على أكمل وجه ..






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب عمل على ملف اكسل krimo145
4 146 krimo145
برنامج كنوز ـ للكنترول المدرسى وشئون الطلبة ـ الاصدار الخامس 2020 محمد الدسوقى
249 25710 تاج الدين
طلب تعديل لشيت حضور وانصراف saberb3a7
0 38 saberb3a7
طلب تعديل في كود صلاحيات مستخدمين Wael Ezzeldin
1 96 Wael Ezzeldin
طلب باسورد لورقه عمل واحده فقط داخل ملف Wael Ezzeldin
4 89 YasserKhalil

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 








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

الساعة الآن 07:41 مساء

أعلن هنا
أعلن هنا
أعلن هنا