حفظ مجال محدد بتغير المدخلات (كصيغة PDF)

[عصام_عادل]

السلام عليكم

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

شكرا لكم

Student Plan.rar

[الرائد77]

تفضل . طباعة الجميع بنقرة واجدة . 

انشىء مجلد باسم raed على القرص c

اختر طباعة من مثلا : 101 االى 106  . من الخلية   e1  الى   c1 .  اكتب من الرقم الذي تريد الى الرقم الذي تريد

عند انشاء الملفات و تريد اعادة انشاءها مرة ثانية . قم بمسح الملفات من المجلد raed و اعد تشغيل الماكرو 

تجد جميع الملفات pdf  في المجلد و اسم كل ملف هو كود الطالب

Sub svPDF()
Dim i As Integer
For i = Range("e1") To Range("c1")

Range("d3").Value = i
Dim expfd As String
expfd = "C:\raed\" & Range("d3").Value & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=expfd, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
       Next i
        End Sub

 

 

 

Student Plan.xlsm

[عصام_عادل]

أبدعت وأتقنت بارك الله فيك وجزاك خير الجزاء

شكرا جزيلا

أخ رائد عندي سؤال: هل يمكن إضافة صيغة للكود بحيث يتم تغيير رقم الطالب في خلية D3 بناء على قيم موجودة في مجال آخر

حسب ما فهمت من الكود فإنه سيقوم بتغيير الأرقام تسلسليا من 101 إلى 106 ، والحالة الفعلية التي لدي أن أرقام الطلاب تتغير بشكل غير تسلسلي (من 15001 إلى 21999)

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

هل هذا الشيء ممكن ؟ 

شكرا لك

[الرائد77]

أخي عصام عادل. أنا استعملت الكود الذي استعملته انت للبحث بالدالة vlookup  عوض أن تكتب أنت الكود يقوم الماكرو بذلك

و يصدر جميع الملفات pdf

يمكنك توضيح طلبك  الجديد بالملف و اعد ارفاقه و بإدن الرحمن ستجد الاجابة.

[عصام_عادل]

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

حيث أنشأت مجال بأرقام الطلاب وربطته بأرقام تسلسلية من 1 إلى 31، وجعلت رقم الطالب يعتمد على هذا المجال والكود يعتمد على الأرقام التسلسلية

 

شكرا لا تكفيك، جزاك الله خير ورزقك من حيث لا تحتسب

Student Plan.xlsm

[الرائد77]

لا شكر على واجب أخي