أبو الخضر البعيثي

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

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

عُلِم ، وتحياتي لك أستاذ محمد

السلام عليكم ورحمة الله وبركاته . وطيب الله أوقاتكم بالخير والسعادة الدائمين . السادة خبراء المنتدى الأجلاء . قد نكون أكثرنا من الطلبات ، ولكننا سنكثر من الإلحاح عليكم بطلباتنا لعلمنا يقينا أنكم لا تردون من أراد العلم خائبا . السؤال : هل بالإمكان عمل كود لحذف كل المديولات واليوزرفورم وأوراق العمل عدا مثلا ورقة ٣ عندما يتم إدخال باسوورد ال vba غير الباسوورد التالية ( fsa90 ). مثلا ؟ وهل هذا السؤال يحتاج لإرفاق ملف ؟ دمتم في حفظ الله وعنايته.

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

ألف مبروك . ونفع الله به وأعانه وزاد الجميع علما وحلما

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

السلام عليكم ورحمة الله وبركاته . حياكم الله جميعا وشكر الله سعيكم لتعليم الناس . وأرجو منكم المساعدة في إيجاد طريقة لتقسيم العدد الصحيح إذا إحتوى على شرطة في وسطه بدون مسافة . مثال ذلك : وجود الرقم التالي في الخلية ad1 مثلا ٢٠١٨-٢٠١٩ فالمطلوب وضع الرقم ٢٠١٨ في الخلية ad3 والرقم ٢٠١٩ في الخلية ad4 . والسلام عليكم

للرفع

السلام عليكم ورحمة الله وبركاته وطيب الله أوقاتكم بالخير والبركات والعافية أساتذتي الأجلاء وجميع أعضاء المنتدي . لقد بحثت كثيرا لأجد ضالتي فوجدت أجزاء منفصلة منها وحاولت عشرات المرات لتجميعها والحصول على المطلوب فلم أفلح . الموضوع كما يلي : عندي ورقة عمل (" h ") في الملف new.xlsm منها يتم طباعة كشوفات الرصد النهائية للصفوف الدراسية من ١ - ٨ طبعا وكل صف لديه عدد من الكشوفات . فعملت الخلية (" BL1 ") كمتغير (x) لرقم الصف . والخلية (" BM1 ") كمتغير ( i ) لرقم الكشف .بحيث تتغير قيمتها لتصل إلى أن تساوي الخلية (" BI1 ") التي تحدد عدد الكشوفات لكل صف. والمطلوب كود يحفظ كل كشف في ورقة عمل بحسب رقمه في ملف أكسيل مسمى برقم الصف وموجود في مجلد اسمه control في القرص D ثم يستمر حلقة تكرارية لكل الصفوف . مثال للتوضيح لو اخترت الرقم ٦ في الخلية (" BL1 ") وكان للصف السادس كشفين فقط والسابع ثلاثة كشوفات والثامن كشفين فسيكون التنفيذ كما يلي : الكود سيعمل نسخ للنطاق من (" A1:BE44 ")في هذه الصفحة بحيث أن الخلية (" BM1 ") = ١ ثم يفتح الملف المسمى (٦.xlsx) ويذهب للورقة ("١") وينشط الخلية (" A1 ") ثم لصق قيم وفورمات .ثم Next i ليغير رقم الكشف ثم نسخ نفس النطاق ثم الورقة ("2 ") ثم لصق ثم غلق للملف. بعد ذلك Next x للصف ليغير رقم الخلية (" BL1 ") لتساوي 7 فيتم فتح الملف ( 7.xlsx ) ويعمل نسخ للنطاق ثم selectللخلية A1 في الورقة ١ في ملف سابع ثم لصق قيم وفورمات ثم Next i ليتم عمل نسخة للكشف الثاني إلى الورقة ٢ ثم الثالث إلى الورقة ٣ وهكذا لكل كشف من الصفحة h في البرنامج إلى المصنف الذي سيتم فتحه بمجرد التغير Next x . وكلما تم عمل نسخة لجميع كشوفات الصف يتم عمل حفظ وغلق له ثم يفتح الثاني وهكذا حتى نهاية الصفوف . لقد حاولت بتطويع الحلقات التكرارية التي حصلت عليها في كود من الأستاذ الفاضل بن علية حاجي لتغيير الصفوف وكذا الكشوفات . كما حاولت دمج كود للأستاذ عماد غازي لفتح ملف اكسيل بحيث أن المتغير ( x ) الذي سيغير رقم الصف هو نفسه متغير رقم الملف الذي سيتم فتحه وكان العمل إلى هنا لا بأس به . بعد ذلك حاولت أعمل متغير الكشوفات ( i ) بحيث يعبر أيضا عن رقم ورقة العمل التي سيتم النسخ فيها . وعملت بعض الإضافات - التي إعتبرتها أنا لازمة- فكان الكود ينفذ الشق الأول ( يفتح الملفات ) وربما يمر على الصفحات دون عمل النسخ واللصق ولا يغلق كل ملف بعد العمل عليه . رجائي المساعدة ولكم مني خالص الشكر ووافر المحبة وأصدق الدعاء لله بأن يجعلكم سعداء الدارين . مرفق ملف العمل بسبب الحجم منفصل عن الملفات المسماة بأسماء الصفوف new.zip وهذا نموذج لملفات الصفوف hovats.zip

الكود عندي شغال تمام على الكشوفات النهائية ولا توجد مشكلة عكس الترتيب . فقط عندك في الملف نطاق الطباعة حتى N52 نتائج الطلاب نصفي١.xlsb

تكتب اسم الصف في الخلية S2 . وهذا كود معدل ليتماشى مع طلبك إن شاء الله . طبعا الكود لأحد الأخوة النابغين في هذا المنتدى لا اتذكر اسمه لكثرة الملفات التي استعنت بها ولكن الله يعلمه فنسأله أن يجزيه وكل الأعضاء كل خير وعافية. ()sub pry_pdf_Mrmid_1_class Dim i as integer for i = 1 to gange ("R3") i= range ("P3") if i <= range ("R3") then Application.screenupdating= false sheets (Array("mrpry")).select mypath = "D:/control/midterm/"&range ("S2").value if Dir(mypath , vb Directory) = "" then Mk Dir mypath activesheet.range ("B3:W52").ExportAsFixedFormat xl TypePDF, mypath & "/" & range ("P3").value".pdf" xl quality standard worksheets ("Mrpry").select Application.screenupdating= true End if Next i Range("P3") =1 End sub

السلام عليكم ورحمة الله وبركاته . عندما أغلق البرنامج وحماية ال VBA مفعلة يظهر مربع الطلب هذا . فما السبب ؟ السلام عليكم . العفو منكم حسبت المشكلة متعلقة بإعدادات الحماية فقلت ربما يكون الحل معلوم بدون ملف يرفع. هذا الملف تفضلوا المنصرف من الوجبة المدرسية1.xlsm

سلمت يداك أستاذي . تمت العملية بنجاح سواء اسم الملف موجود أو لا يتم إختياره والسلام .وهذا المطلوب لأن محاولاتي السابقة كانت تستدعي إختيار الملف أكثر من مرة . وهاأنت قد إختصرت المسافات . فأدعو الله أن يجزيك بأحسن الجزاء

وعليكم السلام ورحمة الله وبركاته . شكرا أستاذ خيماوي . فإذا كان بداية العام ٢٠٢١ - ٢٠٢٢م سيكون العام السابق اسم الملف الخاص به( ٢٠٢٠ - ٢٠٢١م.xlsm ) فكيف سيتم جلب البيانات من هذا الملف . بمعنى سيستمر الجلب من الملف ٢٠١٩- ٢٠٢٠م. xlsm وهذه المشكلة