reda23dz

أحمد يوسف بارك الله فيك على الغجابة كنت مع التجريب، معذرة

ممكن كود لتقسيم محتوى الخلايا المدمجة مثلا: خلية مدمجة من ثلاث خلايا يوضع محتواها في الثلاث خلايا بعد الفصل (أنظر المثال) مثال.xlsx

شكرا أخي على الرد جربت لكن لم تحل المشكلة قصدي أنه في حالة D01=01 يتم تعديل على علامة طالب واحد وفي حالة D01=02 يتم التعديل على علامة طالبين الا اذا كان تساوي فان التعديل يتوقف

شكراااااااااااااااااااااااا على الحل

السلام عليكم ورحمة الله وبركاته ممكن المساعدة في توزيع عدد معين من النقاط على مجموعة طلاب باستعمال المعادلات Exemple.rar

السلام عليكم مشكلتي تتمثل في ايجاد حل لترتيب طلاب حسب العلامات المتحصل عليها في مقياس معين أين نجد أكثر من طالب بنفس العلامة، الا انه عند اجراء الترتيب يظهر الا طالب واحد.

السلام عليكم مشكلتي تتمثل في ايجاد حل لترتيب طلاب حسب العلامات المتحصل عليها في مقياس معين أين نجد أكثر من طالب بنفس العلامة، الا انه عند اجراء الترتيب يظهر الا طالب واحد. Exemple.rar

بارك الله فيك أخي لم يشتغل الكود

السلام عليكم: مشكلتي تتمثل في عدم ظهور محتوى الخلية في بداية السطر في شريط العنوان، حيث عند الضغط عليه يظهر المحتوى في الأسفل exemple.rar

جزاك الله خيرا أخي الكريم

ممكن التوضيح أين أجد العنصر Label12 عند عرض العناصر les objets

تأثيرات قمة في الجمالية مشكور أخانا الكريم

بارك الله فيكم على الردود تم الحل وهذا هو المطلوب ملاحظة: نموذج الأخ طلعت محمد حسن البحث فيه لا يشتغل ولم أجد له حل فأين هو الخلل

السلام عليكم ورحمة الله وبركاته الرجاء المساعدة في التعديل على الكود حيث عند الضغط على نتيجة البحث في الليست بوكس تعرض النتائج في مربعات النصوص الموافقة الموجودة في الأسفل للتعديل عليها أو حذفها وإظهار معلومات العمود N° الموجود في الأول modele01.rar

السلام عليكم ورحمة الله وبركاته هذه الرسالة تأتيني عند النقر فوق الزر خروج Option Explicit Option Private Module Public OK As Boolean Public idColor As Byte Sub DigitalClock() On Error Resume Next ThisWorkbook.Sheets(1).Shapes("Bouton 1").Visible = False Application.ScreenUpdating = True Load UserForm1 UserForm1.Show ThisWorkbook.Sheets(1).Shapes("Bouton 1").Visible = True End Sub Sub Show_Time() Static JK As Integer Dim i As Byte, iTime As String, Nb As String, idx As String * 1 idx = Mid("RVB", idColor, 1): iTime = Format(Now, "hh:mm:ss") For i = 1 To 8 Nb = Mid(iTime, i, 1) If i Mod 3 = 0 Then UserForm1.Controls("Clk" & i).Picture = UserForm1.Controls(idx & "P" & Abs(JK)).Picture Else If i = 1 And Nb = "0" Then Nb = "10" UserForm1.Controls("Clk" & i).Picture = UserForm1.Controls(idx & "D" & Nb).Picture End If Next i JK = Not JK If OK Then Application.OnTime Now + TimeValue("00:00:01"), ThisWorkbook.Name & "!Show_Time", , True Else Unload UserForm1 End If End Sub