ياسر خليل أبو البراء

الحمد لله الذي بنعمته تتم الصالحات أنصحك بحل الأخ أبو عيد فهو الأفضل .. على الإطلاق

ممكن ترفق ملف بشكل القائمة المنسدلة المطلوبة لأني بصراحة تهت بين كلماتك (قائمة منسدلة واحدة لكل الفصول) و(تدرجل لي الصف كل القائمة) حاسس إن الاتنين واحد عموما بالمرفق يتضح المطلوب .. ويا ريت دائما عندما تريد أن تطلب أوضح شيء أن ترفق النتائج المتوقعة

أنا لدي كود يقوم بمسح كل شيء ما عدا المعادلات .. المشكلة أنه سيقوم بمسح بيانات مهمة أكيد بالنسبة لك حاولت وفشلت في الوصول لحل لمشكلتك

جرب أخي الحبيب المرفق التالي Link Sheets.rar

وهذا حل آخر بالأكواد تقسيم بالكود.rar

جرب أخي الحبيب الملف المرفق انظر للنطاق المطلل بالأصفر . جرب أن تغير الرقم والتقسيم بس بدون فراغات . يعني اعمل جدول شروط التقسيم زي ما أنا عملته .. جرب وشوف 111.rar

جرب تضع التاريخ في الخلية A1 وضع المعادلة التالية في A2 مثلا =RIGHT(A1;4)

وهذا حل آخر بالمعادلات جلب الفصول.rar

لكم يشرفني ويسعدني أن ترد بتلك الكلمات الرقيقة التي تسعد قلبي فأنت أستاذنا ولك مني كل التحية والتقدير

جرب الكود التالي أخي الحبيب Sub DoIt() Application.ScreenUpdating = False Range("C6:H12").ClearContents Range("K5").Resize(Range("C5").Value, 1).Copy Range("C6") Range("M5").Resize(Range("D5").Value, 1).Copy Range("D6") Range("O5").Resize(Range("E5").Value, 1).Copy Range("E6") Range("Q5").Resize(Range("F5").Value, 1).Copy Range("F6") Range("S5").Resize(Range("G5").Value, 1).Copy Range("G6") Range("U5").Resize(Range("H5").Value, 1).Copy Range("H6") Application.ScreenUpdating = True End Sub

أخي جرب التالي قد يفيدك لتلوين الخلية قم بالنقر المزدوج على الخلية ولازالة اللون قم بالنقر المزدوج مرة أخرى Double Click To Color Cell.rar

لو كانت الخلايا التي تريد دمجها بها بيانات وتريد الاحتفاظ بالبيانات فجرب المرفق التالي Join And Merge.rar

تفضل أخي المرفق التالي : فيه دمج للخلايا في النطاق A1:B20 كما طلبت Merge Cells.rar

متمكن يا أخي الحبيب وائل بارك الله فيك وزادك علما

قصدت بالملف المرفق شكل الملف كنتيجة للصق كـ Plain Text عموما الباشمهندس الحبيب تفضل بشرح عمل ذلك بمنتهى السهولة

أخي عبد العظيم يمكن بسهولة تحويل المعادلات لتعمل من خلال الأكواد بكل سهولة وتعطيك النتائج كقيم فقط بدون المعادلات .. ارفق ملف للعمل عليه

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

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

عذرا أخي نسيت إرفاق الكود لكن فيه ملف مرفق به الكود وبه تجهيز لمكان البيانات ودا الكود اتفضل Public Sub WebLoginFirefox() 'SeleniumWrapper Type Library Dim driver As New SeleniumWrapper.WebDriver Dim By As New By, Assert As New Assert, Verify As New Verify, Waiter As New Waiter driver.Start "firefox", "http://student.moe.gov.eg/" driver.setImplicitWait 5000 driver.get "/new/" driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").Clear driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").SendKeys Range("B1") driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").Clear driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").SendKeys Range("C1") driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").Clear driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").SendKeys Range("D1") driver.findElementById("ctl00_ContentPlaceHolder1_Button2").Click driver.findElementById("Button1").Click driver.findElementByLinkText("تعديل بيانات تلميذ").Click End Sub

أخي عاشق الإسلام مشكور على مرورك العطر .. بارك الله فيك

جاري المحاولات إن شاء الله في هذا الصدد ربنا ييسر الأمور

الأخ الحبيب محمود بارك الله فيك قمت بتحميل الملف المرفق مرتين ، ولا يعمل يفتح ثم تأتي رسالة الإغلاق حاولت أكثر من مرة ومفيش فايدة أنا لسه منصب أوفيس 2013 إمبارح هل دا ممكن يكون سبب للمشكلة؟

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

لكم يسعدني أن تكون أستاذي وحبيبي في الله أول من يمر على موضوعي المتواضع بارك الله فيك ونفع بك المسلمين

السلام عليكم إخواني الكرام .. ***************************** الشكر موصول للأخ الفاضل شوقي ربيع ، والذي له الفضل بعد الله عزوجل في إلهامي بهذا الموضوع إلى مدخلي البيانات في موقع وزارة التربية والتعليم .. بشرى !! هل عانيت من تكرار كتابة اسم المستخدم والرقم المسلسل وكلمة السر .. والموقع أحيانا لا يقبل بالبيانات وتضطر إلى إعادة الكرة من جديد .. وبعد العمل على الموقع لبعض الوقت تجد نفسك خارج الموقع مرة أخرى ... الآن أصبح بمقدورك الدخول على الموقع عن طريق الإكسيل .. بضغطة زر واحدة .. نعم بنقرة واحدة فقط تدخل الموقع ... ومش بس كدا هيقفلك صفحة الدخول (إغلاق الصفحة) ومش بس كدا هيضغطلك على (تعديل بيانات التلميذ) لتجد نفسك أمام القائمة الأولى للصف الأول ... كل ذلك بنقرة واحدة إلى العمل : أولا قم بتحميل البرنامج المرفق في الرابط أسفل الموضوع ثانيا قم بتنصيب البرنامج ... بعد الانتهاء من التنصيب قم بالدخول على محرر الأكواد بالفيجوال بيسك ومن قائمة Tools قم بإضافة المكتبات : SeleniumWrapper Type Library قم بإدراج موديول جديد ثم أضف الكود التالي : كل ما عليك عمله أن تضع بيانات مدرستك في الخلايا B1 لاسم المستخدم ، وC1 للرقم المسلسل ، و D1 لكلمة السر .. يمكنك أن تسبتدل الجزء في الكود Range("B1") مثلا لكتابة اسم المستخدم مباشرة في الكود ، ولكن لا تنسى أقواس التنصيص... بعد تنفيذ الكود سيقوم الكود بفتح الفايرفوكس نيابة عنك وإدخال بياناتك نيابة عنك والضغط على إغلاق الصفحة نيابة عنك والضغط على تعديل بيانات التلميذ نيابة عنك ... رابط البرنامج اضغط هنا للتحميل لا تنسونا من صالح دعائكم Test.rar