abuhanen10

السلام عليكم في هذا الكود ارجوا تغيير انترنت اكسبلور الي الافتراضي ايا كان وشكرا مقدما Sub Logi1nNew_URL() Dim ie As Object Dim element As Object Dim str1 As String Dim str2 As String Dim str3 As String Dim lRow As Long With Sheets("Sheet1") str1 = .Range("ac2").Value: str2 = .Range("ad2").Value: str3 = .Range("ae2").Value End With 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 On Error Resume Next .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = str1 .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = str2 .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str3 For Each element In .Document.getElementsByTagName("input") If element.Type = "submit" Then element.Click: Exit For Next element End With End Sub

كل عام وانتم بخير

للاسف لايفى بالغرض عندما تكون الاسماء كثيرة الحط صغير لكن يجب عندما اكون الاسماء قليلة ان يكبر الحط وتتسع الصفوف

السلام عليكم ورحمة الله وبركاتة كل عام وانتم بخير الاخوة الكرام صفحة اكسل يتم فيها استدعاء البيانات ممكن ان تكون 20 او 40 او 60 او80 او او او اسم ممكن كود VBA لربط تنسيق الصفخة من حجم الخط وارتفاع الصف بأخر رقم يظهر بعد الاستدعاء اااا.xlsb

لو ممكن رد قبل رمضان

من 7 يناير فى الانتظار

يا مسهل الحال يا رب

السلام عليكم الاعضاء الكرام ممكن توضيح طريقه اضافة هذا الخيار كما هو موضح بالصور الصورة مصغرة أنقر هنا لرؤيتها بحجمها الطبيعي 473*331

اريد اضافه علامه تنتمى لمسأله رياضية لكنها تظهر على شكل مربع فهل هناك حل

مرفق ملف للاستاذه ساجده العزاوى ارجوا تعديل اكواد اليوزر فورم ليعمل على ورقه 2 بدل من ورقه 1 واذا ممكن شرح اريد البحث وعرض البيانات يبدا من العمود B بينما الحذف والتعديل يبدا من العمود C مع تعديل كود الذهاب للسجل النشط بحث بالاسم في TEXTBOX.xlsm

كل الشكر لك اخى الكريم

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

الف شكر لك اخى الكريم ولكن هذه ( Application.Sum ) هى المطلوبه وليس ( Formula = "=sum ) فهل هذا ممكن

ممكن اخوانى الكرام التعديل على كود الجمع حسب المطلوب بالملف المرفق vsa.rar

جزيت بمثل ما دعوت وزياده والف شكر على دعواتك الرقيقه

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

اخوانى الاعزاء هذا العام وصل عندى عدد طلاب الصف الاول الى 150 طالب على فصلين فقط اضطريت لتعديل قوائم الفصول لوضع الفصل بورقه واحده لذلك البرنامج به اربع قوائم 126 و80 و60 و100 بالاضافه لسجل الد رجات وسجل القيد المدرسى ارجو ان ينال رضاكم رابط التحميل شئون طلاب.rar

كل الشكر لكل من ساهم فى هذا العمل الرائع ولا تزعل استاذ ناصر بس لازم افتح الشيت علشان اقيمه واقيم الجهد والوقت المبذول عليه ( مش كده ولا إيه )

فيه مشكله فى فتح الشيت

بإنتظار احد الافاضل

هل يمكن اضافه هذه الجمله للكود بدون خطأ Sub ÍãÇíå() Dim a As Worksheet For Each a In Worksheets If a.ProtectScenarios = False Then a.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True ActiveSheet.EnableSelection = xlNoRestrictions End If Next a End Sub اضافه Allowdatavalidation:=True, وجعل الكود على الخلايا التى بها معادلات فقط دمتم بكل خير

الف شكر لحضرتك لكن للاسف الترتيب اصبح ابجدى كما هوموضح فى نفس الملف بعد التعديل 2ترتيب.rar

الملف المرفق اكواد ترتيب تعمل جيداا الا كود ترتيب الاصغر الترتيب اسفل الجدول والملف يوضح ذلك ترتيب.rar

هو فيه وصايه لعدم الرد فيه ايه بالظبط

لعلى اجد اجابه