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

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

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

السلام عليكم ورحمة الله وبركاته . وطيب الله أوقاتكم بالخير والسعادة الدائمين . السادة خبراء المنتدى الأجلاء . قد نكون أكثرنا من الطلبات ، ولكننا سنكثر من الإلحاح عليكم بطلباتنا لعلمنا يقينا أنكم لا تردون من أراد العلم خائبا . السؤال : هل بالإمكان عمل كود لحذف كل المديولات واليوزرفورم وأوراق العمل عدا مثلا ورقة ٣ عندما يتم إدخال باسوورد ال 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 وهذه المشكلة

السلام عليكم ورحمة الله وبركاته . وكل عام وأنتم في أحسن حال وعافية وإلى الله بالطاعات أقرب. أساتذتي الأفاضل حاولت مرارا تطويع الكود الذي يعمل كبديل لدالة vlookup كي اجلب البيانات من ملف خارجي ( كنترول العام السابق ) والذي هو نسخة من الشيت كنترول ويتم تحديد اسمه في الخلية D15 في ورقة البيانات الأساسية( The basics ) حيث: توجد اسماء الطلاب وبياناتهم ( محل وتاريخ الميلاد - مكان وتاريخ الحصول على السادس - محل وتاريخ الحصول على السابع - محل وتاريخ الحصول على الثامن) وذلك بحسب الصف. وعند بداية عام دراسي جديد يتم نقل الطلاب بحسب الصف . مع العلم انه سيكون في طلاب راسبون وآخرون غياب وبعضهم ينتقل لمدرسة أخرى ومنهم من يأتي جديد من مدرسة أخرى أو من تم تسجيلهم في الصف الأول . وبذلك لزم كود يبحث عن اسم الطالب في ملف العام الماضي فإن كان موجود فيتم جلب بياناته وإن كان جديد أو غادر المدرسة أو المرحلة التعليمية يترك فراغ . وبذلك سيكون عندي كل عام جديد تغيير في اسم الملف للعام السابق. وهذا الذي اخفقت فيه حيث لم استطع جعل اسم الملف يتغير بتغير البيانات في الخلية D15 في ورقة البيانات الأساسية. مرفق لكم ١ - ملف ( الأصل) ويمثل ملف الشيت كنترول . ٢- ملف العام السابق - الماضي - واسمه في الخلية المشار إليها آنفا . مع العلم أن هذين الملفين في القرص D في مجلد اسمه ( control ) . مع خالص التحية لكم . أطلب المساعدة منكم . والله يرعاكم وهذا ملف العام السابق للرفع .. مع العلم أن البيانات المطلوب جلبها في ورقة العمل "F" ومطلوب جلبها لنفس اسم ورقة العمل في الملف الأصل الملف الأصلى 2019-2020م.xlsm الأصل.xlsm