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

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


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


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





تصحيح فى كود حفظ بصيغه PDF

السلام عليكم بعد وافر التحيه والتقدير ارجو المساعده فى اصلح كود حفظ ملف بصيغه PDF مع توضيح الخطاء شاكرين تعاونكم لمشاهدة ..



09-09-2019 02:20 مساء
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 234
الجنس : ذكر
قوة السمعة : 309
الاعجاب : 1
 offline 
السلام عليكم
بعد وافر التحيه والتقدير
ارجو المساعده فى اصلح كود حفظ ملف بصيغه PDF
مع توضيح الخطاء
شاكرين تعاونكم
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Book1.rar   تحميل rar مرات التحميل :(5)
الحجم :(24.115) KB





09-09-2019 05:09 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصحيح فى كود حفظ بصيغه PDF
ما الخطأ الذى يقابلك في الكود 
وهل تريد الحفظ مع مجلد مع البرنامج ام نفس المسار المذكور بالكود 
على العموم اليك الكود يعمل مع تمام ولكن تأكد ان المسار موجود لديك وهو بداخل مجلد d يتواجد مجلد باسم adm_work ثم بداخله مجلد باسم MANAFIST TAREK ثم بداخلة مجلد باسم PDF ثم بداخلة مجلد باسم Modify1

وعند تشغيل الكود التالى سيعمل معك جيدا 
Sub SavePDF()
Dim MyMsg As String
Dim fName As String
 With Worksheets("تعديل عوده")
  If IsEmpty(Range("H5")) Then MsgBox "لا يوجد أسم لحفظ الملف ... برجاء ادخال رقم الموظف", vbInformation: Exit Sub
    fName = .Range("H5").Value & "_" & Format(Date, "_ dd-mm-yyyy") & "_" & .Range(" D5 ").Value
    Sheets("تعديل عوده").Activate
     Range("H5").Select
     MyMsg = MsgBox("هل أنت متأكد من إتمام عملية الحفظ؟", 4, "تنبيه")
    If MyMsg = 6 Then
    ChDir "D:"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "D:adm_workMANAFIST TAREKPDFModify1" & fName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
           Else
       MsgBox "لم يتم الحفظ"
        End If
        Application.ScreenUpdating = True
    Sheets("تعديل عوده").Select
         Range("H5").Select
 End With
End Sub


وليه المسار ده لانه هو المسار الى بالكود ولم اغيره لانك لم تحدد طلبك جيدا
 



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

تحياتى وتقدير للجميع  محمود ابوالدهب

09-09-2019 05:20 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8551
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25158
الاعجاب : 49
 offline 
look/images/icons/i1.gif تصحيح فى كود حفظ بصيغه PDF
في أعلى الكود قم بالإعلان عن المتغير المفقود
Dim MyMsg As Integer


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




11-09-2019 04:24 مساء
مشاهدة مشاركة منفردة [3]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 234
الجنس : ذكر
قوة السمعة : 309
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصحيح فى كود حفظ بصيغه PDF
الاخ الكريم ياسر 
نصيحه غاليه 
سلمت يداك 




11-09-2019 07:29 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8551
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25158
الاعجاب : 49
 offline 
look/images/icons/i1.gif تصحيح فى كود حفظ بصيغه PDF
سلمت من كل سوء أخي الكريم أحمد والحمد لله أن تم المطلوب على خير







الكلمات الدلالية
تصحيح ، بصيغه ،


 







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

الساعة الآن 12:24 صباحا

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