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

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

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

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

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

هو كذلك أستاذ عبد الله . ولضعف النت عندنا هناك صعوبة في رفعه . ولكنه نفس الملف في هذا الموضوع https://www.officena.net/ib/topic/106035-المعادلات-لم-تعد-تعمل-بشكل-ديناميكي-داخل-الخلايا/

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

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

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

جربت فعلا رحل. أمس أنا جربت ارحل الصفوف الدراسية الثاني والثالث وما رحل إلى السطر ٢١٣ والسطر ٤١٣ الشكر موصول لك مرة أخرى . الباقي سنحاول نكمله وإن شاء الله نتوفق فيه

بسم الله الرحمن الرحيم " ولنبلونكم بشيئ من الخوف والجوع ونقص من الأموال والأنفس والثمرات وبشر الصابرين * الذين إذا أصابتهم مصيبة قالوا إنا لله وإنا إليه راجعون * أولائك عليهم صلوات من ربهم ورحمة وأولائك هم المهتدون " إنا لله وإنا إليه راجعون أعظم الله أجرك أستاذ مجدي وأحسن عزاءك ورحم الله والدتك وجميع الموتى الموحدين

السلام عليكم . أخي أمين ١٤ لم ينفذ المطلوب ولكني استفدت تفريغ البيانات من الفورم بعد الترحيل . شكرا كثيرا لك.

شكر الله لك استاذ أحمد ولكل من يساهم في مثل هكذا حلول . إذا كان الترحيل المطلوب سابقا غير ممكن . فهل ممكن يكون الترحيل بحيث لو كان الصف ٢ يكون الترحيل إبتداءا من العمود Nمثلا ولو الصف ٣ يرحل إلى العمود X وهكذا بقية الصفوف بحيث تكون الإزاحة عشرة أعمدة مع كل صف مع مراعاة إهمال الجنس.

حصلت على فورم لترحيل البيانات للأستاذ مجدي يونس أحد أعضاء ومن أساتذة هذا المنتدى الذي أفخر بأنني أحد أعضائه . هذا الفورم يرحل البيانات لشيت اسمه new ويتم الترحيل بحيث يأخذ الصف الذي يلي الصف غير الفارغ . ما أريده - وقد حاولت ولم أنجح لأنني غير متخصص برمجيات - هو أن يرحل البيانات بشرط حسب قيمة T3 - مثلا - وقيمة T2 أي بحسب الصف ثم الجنس بحيث لو كان الصف ١ والجنس ذ يرحل إلى الشيت new بداية من السطر ١٣ . ولو الصف ١ والجنس ث يرحل لنفس الشيت ولكن بداية من السطر ١١٣وهكذا القيم ٢ ، ٣ ،٤ ،٥ ،٦ ،. . . . . ، ١٤ بحيث يرحل لنفس الشيت بزيادة ١٠٠ سطر كما موضح في جدول عملته للتوضيح في شيت المطلوب داخل الملف المرفق . وتقبلوا وافر التحية وخالص الحب والإحترام . تم اعادة رفع الملف بدون ضغط تسجيل بيانات متفرقة وترحيل.xlsm