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

بالنسبة لطبك الثاني حاول تعمله بنفسك قم بإدراج موديول في محرر الأكواد .. هتسأل أدخله منين (أقولك فيه باب وفيه شباك وفيه منور) الباب إنك تدخل من التبويب Developer ثم اضغط على Visual Basic الشباك إنك تضغط Alt + F11 المنور إنك تضغط على الأمر Macros من التبويب Developer ولما تطلع النافذة تضغط Edit لما تدخل المغارة أقصد محرر الأكواد هتلاقي قائمة فيها كلمة Insert اختار منها موديول Module والصق الكود الآتي في الموديول Sub ClearQ() Range("I6:I13").ClearContents End Sub هتقولي ايه الكلام الهيروغليفي ده هقولك واحدة واحدة هتفهم الطلاسم دي مع الوقت السطر الأول كلمة Sub دي لازم تتكتب في بداية الإجراء الفرعي بيتبعها اسم الإجراء ودا إنت حر فيه إن شا الله حتى تسميه (هاكوناماطاطا) وفي السطر الأخير جملة End Sub عشان سعادته يعرف إن الإجراء انتهى . السطر اللي في النص دا طلبك إنت طلبت تمسح محتويات النطاق I6:I13 مش دا طلبك فاستعملنا الإشارة للنطاق مبتوعا بنقطة .. النقطة دي بييجي وراها يا إما Property أي خاصية يا إما Method أي طريقة هتقولي كدا بدأت تكلكع تاني .. هبسطها لك عارف الصفة في العربي وعارف الفعل .. جرب مثلا تكتب الجزء الأول من السطر Range("I6:I13") وبعدين اكتب النقطة واقف عندك بس متعملش حاجة (يا عم رفيع اصبر ربنا يبارك فيك ) عايز أوريك حاجة مهمة جدا هتلاقي عمنا طلع لك قايمة في شكلين .. الشكل الأول هتلاقي بيل جيتس بيشاور بصبعه على ورقة هي دي الخاصية الشكل التاني علامة شبه الطوبة بس مش حمرا خضرا يا كبير ، هي دي الـ Method طيب هتسأل ClearContents دي ايه ؟؟ هغششك وأقولك بص على الرمز الخاص بيها أول ما تبدأ تكتب بعد النقطة بتبدأ تظهر لك الكلمات المرتبطة فلما تظهر هتلاقي علامة الطوبة الخضرا اللي قلت لك عليها بس متتعودش ع الغش .. أنا مش شوية قلت لك الـ method زي الفعل حاجة بتتعمل ومعنى كلمة Clear امسح وامسح دا فعل مش صفة أما لو قلت Range("I6:I13').Address Address هنا بمعنى عنوان وعنوان دا مش فعل دا اسم .. يعني خاصية عنوان النطاق Property جرب السطر التالي تنفذه MsgBox Range("I6:I13").Address الأمر اللي في الأول ده اسمه MsgBox ودا بقا اللي يخليك تطلع رسالة للمستخدم ، ودي لها شروحات في المنتدى (بص ع الدورة اللي عاملها العلامة محمود الشريف هتلاقي تفاصيل عنها ) مش عارف دا هيفيدك ولا لا .. بس إن لم يفيدك أفادك غيرك ، وإن لم يفيد غيرك أفادني وإن لم يفدني فأسأل الله أن يجعل الوقت الذي استغرقته ف كتابة هذا البوست في ميزان حسناتي وأن يكون لي لا عليا والسلام عليكم (بس خلااااص ايدي تعبت)

الأخ الحبيب رفيع سعد أولا فيه تبويب باسم Developer قد لا يكون ظاهر لديك ، لإظهاره قم بالضغط على علامة الأوفيس Office Button ثم خيارات الإكسيل (بس اوعى تكون جعان فتاكل الخيارات وتخلي الإكسيل من غير خيارات) هتلاقي فيه خيار باسم Show Developer بتعلم عليه علامة صح ليظهر لك مع التبويبات الأخرى .. تاني نقطة بتدخل على Developer بتلاقي أمر اسمه Insert اضغط عليه هيفتح لك نافذة صغيرة بتختار منها أول زر مثلا Button (Form COntrol وممكن ترسم أي شكل من الأشكال أو تدرج صورة وتربط الماكرو بيها بتعمل كليك يمين على الزر أو الشكل أو الصورة بتلاقي أمر اسمه Assign Macro بفتح لك نافذة بتختار منها اسم الإجراء الفرعي المراد ربط الزر به أرجو أن تكون قد استوعبت الخطوات الأولى

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

أو يمكنك تغيير شيء بسيط جدا في الملف في المشاركة الأولى وهو استبدال Firefox بـ IE هكذا 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 "IE", "http://student.moe.gov.eg/" driver.setImplicitWait 5000 driver.get "/new/" driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").Clear driver.findElementById("ctl00_ContentPlaceHolder1_TextBox1").SendKeys Sheets("URL").Range("B1") driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").Clear driver.findElementById("ctl00_ContentPlaceHolder1_TextBox2").SendKeys Sheets("URL").Range("C1") driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").Clear driver.findElementById("ctl00_ContentPlaceHolder1_TextBox3").SendKeys Sheets("URL").Range("D1") driver.findElementById("ctl00_ContentPlaceHolder1_Button2").Click driver.findElementById("Button1").Click driver.findElementByLinkText("تعديل بيانات تلميذ").Click End Sub

تفضل الكود الذي يتيح لك فتح الموقع عن طريق الانترنت إكسبلورر Sub OpenStudentURL() Dim IE 'Microsoft HTML Object Library Dim Element As IHTMLElement Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .navigate "http://student.moe.gov.eg/new/serch_students.aspx" Do Until .readyState = 4 DoEvents Loop .document.all.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = Sheets("URL").Range("B1").Value .document.all.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = Sheets("URL").Range("C1").Value .document.all.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = Sheets("URL").Range("D1").Value For Each Element In .document.getElementsByTagName("input") If Element.Type = "submit" Then Element.Click: Exit For Next End With End Sub تقبل تحياتي

الأخ الفاضل إبراهيم إليك الملف المرفق . بس نصيحة حاول تضبط التنسيقات ..متخليهاش بالشكل ده ابدأ اتعامل باحتراف طالما إنك عضو بأوفيسنا (إنت عايز الناس تاكل وشنا ولا ايه) المصنف1.rar

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

ارفق مثال ليتضح المقال وليتم التطبيق عليه أخي الفاضل

قد تكون إعدادات الماكرو لديك تحتاج إلى ضبط الملف يعمل بشكل جيد

بالمثال يتضح المقال .. ارفق ملف وارفق بنا !!

جرب أخي المرفق التالي Book1.rar

تفضل أخي الطلب الأول Get IP Address.rar

تسلم يا ابن مصر .. بارك الله فيك أعتقد أن هذا هو طلب السائل الذي لم أفهمه إلا بعد أن قمت بتوضيح المسألة!! عذراً أخي kinguter1 أني لم أستطع مساعدتك !!

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

الأخ الفاضل صابر اطرح موضوع جديد به طلبك وارفق معه الملف المطلوب العمل عليه وإن شاء الله ستجدنا في انتظار مساعدتك نورت المنتدى وشرفنا وجودك بيننا أخوك ياسر خليل أبو البراء

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

أخي الفاضل هذا هو الملف الذي قمت بتحميله ووجدت في الكود هذين السطرين بهما خطأ ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ("as") ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ("as") ما هي الأعمدة والصفوف التي تريد إخفائها ؟؟

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

بارك الله فيك أخي الغالي علي المصري ومشكور على إطرائك الجميل

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

مشكور أخي عادل علر مرورك العطر .. شرفتني بردك على موضوعي الذي ليس يخصني!

مشكور أبو الاء على مرورك الكريم سأقوم بتقديم ما يمكنني تقديمه من أعماله ، فهو بحق يستحق أكثر من ذلك

السلام عليكم إخواني الأحباب في المنتدى والصرح العملاق أقدم لكم عملا رائعا بكل ما تحمل كل رائع من معنى ، وهو لأحد عباقرة الإكسيل الذين تعرفت عليهم وهو الأخ (جعفر طرباق ) من المغرب ولكن للأسف الشديد ليس له تواجد بيننا ... هذه الشخصية العبقرية .. شخصية فذة في مجال البرمجة والأكواد ... وكل أعماله التي رأيتها تعبر عن ذلك... وكم أتمنى أن يتواجد بيننا هنا .. !!! أعتذر عن المقدمة الطويلة عن صاحب العمل ، ولكني أكن له كل الحب والتقدير والاحترام .. في المرفق النطاق A1:B20 إذا تم إدخال قيمة أكبر من 1000 تنبض الخلية لمدة ثانيتين أرجو أن ينال الملف إعجابكم Pulsating Cell.rar

جرب أخي الملف التالي TestThis.rar

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