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

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

للإفادة هدا هو كود تغيير اللغة يوضع في التاكست بوكس الثاني: Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) SendKeys "%+" End Sub بقي طريقة تغيير حجم الخط ولونه ونوعه في الميلتي باج وكذا تلوين كل صفحة بها بلون

ولا مساعدة

ممكن المساعدة

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

السلام عليكم ورحمة الله وبركاته ممكن المساعدة في هذا النموذج: عند الدخول إلى الاسم بالعربية تتغير اللغة آليا لإلى العربية وكذلك الشأن إلى الاسم بالفرنسية تتغير اللغة لإلى الفرنسية آليا خانة تاريخ الميلاد الموجودة في الأخير جعلها غير ممكنة وتملى آليا بالتاريخ المدخل في: يوم و شهر وسنة على الشكل dd/mm/yyyy exemple.rar

السلام عليكم ورحمة الله وبركاته ممكن المساعدة في هذا النموذج: عند الدخول إلى الاسم بالعربية تتغير اللغة آليا لإلى العربية وكذلك الشأن إلى الاسم بالفرنسية تتغير اللغة لإلى الفرنسية آليا خانة تاريخ الميلاد الموجودة في الأخير جعلها غير ممكنة وتملى آليا بالتاريخ المدخل في: يوم و شهر وسنة على الشكل dd/mm/yyyy exemple.rar

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

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

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