طارق نادر

السلام عليكم ورحمة الله وبركاته الحمدالله تم المطلوب ...بفضل الله ثم لخبرة الاستاذ حسونة له ولكم كل الاحترام والتقدير ع تعاونكم الموصول...

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

يسعد صباحك استاذ حسين بالنسبة لسؤالك حول الخطوة الأداة Selenium تمت حسب المطلوب وارفق لك صورة debug حسب طلبك مع الشكر لسعة صدرك

تم المطلوب ..كل الاحترام لجهودكم وسعة صدوركم

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

هل من الممكن تحويل المعادلتان السابقين إلى كود تضهر نتيجتهما في يوز فورم تحديدا في text box (6) وفيه بداية تاريخ تمديد اخذ الاجازة السنوية وفي text box (8) يكون فية تاريخ انتهاء الاجازة السنوية المدده...وذلك اعتمادا على تاريخ نهاية الاجازة السابقة للموظف المخزنه بياناته في عمود (B) في ورقة اسمها (مخزن)... مع الشكر الجزيل

كل الشكر والتقدير والاحترام لكم...

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

كل الاحترام والتقدير تمت العملية بنجاح

السلام عليكم ورحمة الله وبركاته ارقف لكم الكود وصورة الكود بعد الخطا لطفا Private Sub CommandButton5_Click() Dim WS As Worksheet, LastRow As Long Set WS = ThisWorkbook.Sheets("ãÎÒä (2024)") If TextBox2.Text = "" Then MsgBox "Þã ÇæáÇ ÈÇÎÊíÇÑ ãæÙÝ áÊÚÏíáå Çæ ÍÐÝå", vbExclamation, "ÍÐÝ" Exit Sub End If LastRow = WS.Cells(Rows.Count, "B").End(xlUp).Row + 1 Dim Q Q = MsgBox(" ÃäÊ Úáì æÔß ÍÐÝ ÇáÇÓã " & " ( " & TextBox2.Text & " ) " & " ãä ÇáÓÌá ¡ åá ÊÑíÏ ÇáãæÇÕáÉ ", vbCritical + vbYesNo, "ÊÃßíÏ ÇáÍÐÝ") If Q = vbYes Then For i = 2 To 12 For T = 2 To LastRow If TextBox2.Text = WS.Cells(T, 2) Then With WS .Cells(T, i).Value = "" .Rows(T).Delete Shift:=xlUp End With End If Next Next MsgBox " áÞÏ Êã ÍÐÝ ÇáãæÙÝ " & TextBox2.Text & " ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ ", vbInformation, "" End If For i = 2 To 12 Me.Controls("TextBox" & i).Value = "" Me.ComboBox1.Clear TextBox2.SetFocus End Sub مع الشكر الجزيل لتعاونكم الموصول

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

السلام عليكم ورحمة الله وبركاته المطلوب لطفا ان تطوير المعادلة أدناه بحيث عند زياده يوم او إنقاص يوم من ايام الشهر ان تراعي ان هناك أشهر يكون عدد أيامها ٣١ يوم.. وأشهر ٣٠ يوم.. وان شهر فبراير معادلة تراعي التفاوت في عدد ايام الاشهر.xlsxيكون عدد أيامه ٢٨ يوم ...وذلك عند حساب الفرق بين تاريخين ينتج عنه سنة كاملة ... مرفق لكم ملف مع الشكر الجزيل لتعاونكم الموصول =IF(A5<>"";DATE(YEAR(A5);MONTH(A5);DAY(A5)+1);"")

السلام عليكم ورحمة الله وبركاتة الكود التالي لايعمل ارجو لطفا اصلاحه مع الشكر Private Sub CommandButton4_Click() Dim iRow As Long Dim WS As Worksheet Set WS = Worksheets("مخزن (2024)") Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox2.SetFocus End Sub المشكلة ان الكود لا يعطيني خطأ معين ولكنه ينفذ الامر دون إعطاء مسج خطأ في الكود ولكن لايوجد نتيجة في صفحة التعديل تبقى المعلومة المنوي تعديلها كما هي ارفق لك اخي الفاضل الملف الرقم السري tareq972708 رصد العقوبات طلاب الثانوية العامة تعديل (1).xlsm

للرفع

السلام عليكم ورحمة الله وبركاته ارجو لطفا اصلاح CommandButton في اليوز فورم كما يلي CommandButton2 لا يعمل CommandButton3 لايعمل CommandButton4 لايعمل CommandButton5 لايعمل مع الشكر الجزيل كلمة السر للملف رصد العقوبات طلاب الثانوية العامة تعديل (1).xlsmهي tareq972708

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

كل الاحترام والتقدير لكم جميعا...وجزاكم الله كل خير...

السلام عليكم ورحمة الله وبركاته المطلوب لطفا..هو كالتالي: في خلية A5 يوجد تاريخ..اريد عن طريق معادلة تعمل على صنع تاريخين بالاعتماد على التاريخ في الخلية A5: التاريخ الأول في خلية A7 يكون زائد يوم واحد فقط عن التاريخ في خلية A5 والتاريخ الثاني في خلية A8 يكون ناقص يوم وزائد سنة عن التاريخ في خلية A5 مع الشكر الجزيل والملف مرفق سابقا...

السلام عليكم ورحمة الله وبركاته ارفق لكم لطفا ملف موضح فيه المطلوب مع الشكر الجزيل...تاريخ.xlsx

كل الاحترام والتقدير

المطلوب لطفا دالة معادلة في نفس الورقة تعمل على تغيير رقم المادة في خلية B12 في حال نسخ سبب الاجازة في خلية B14 حسب الجدول الموجود في الورقة مع الحفاظ على وجود القوسين ورقم الماده داخل القوسين.. ارفق ملف موضح فيه المطلوب مع الشكر الجزيل رقم المادة.xlsx

الصعوبة في آخر نقطة أين انسخ الكود أعلاه...في اي مكان في user form1 مع الشكر الجزيل

السلام عليكم ورحمة الله وبركاته يوجد في اليوزر فورم المرفق زر طباعة ..اريد بالإضافة الى المهام الموجودة في هذا زر اضافة مهمة جديدة وهي: (ان يعمل على طباعة صفحة الموظف من هذا الموقع https://apps.moe.gov.jo/App/Clearance حسب الرقم الوزاري للموظف الجاري العمل عليه في اليوزر فورم... رقم الدخول إلى vpn هو tareq972708 رصد العقوبات طلاب الثانوية العامة (1).rar

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

السلام عليكم ورحمة الله وبركاته كود يوضع في اي خلية بالورقة يحول الرقم في خلية معينة بالورقة ولنفرض مثلا خلية c12 مثال ع ذلك رقم ٨ في خلية c12 يتحول بالكود إلى حروف كالتالي( الثامنة) وهكذا ويكون جنس الحروف للأنثى مثال( التاسعة ،العاشرة،الحادية عشر ،........... )وهكذا