محمد الورفلي1

السلام عليكم اريد تصحيح معادلة countif على ان تجمع بشرطين عدد ذكود كل مدرسة واناث كل مدرسة مجموع.rar

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

استاذ ياسر ما الذي يرمز له رقم 17 ورقم 32 For i = 17 To 32

السلام عليكم استاذ ياسر شكراً بارك الله فيك ممكن شرح وافي لموضوع الحلقات التكرارية فقط ::: في موضوع منفصل طلباً من فضلك شكراً استاذ سليم ياريت يكون هناك شرح لهذا الدرس الحلقات التكرارية او حتي شرح للكود حتى نفهم ما يكتب لنا

السلام عليكم اريد اختصار لهذا الشكل Private Sub UserForm_Activate() Label17 = [c3] Label18 = [c4] Label19 = [c5] Label20 = [c6] Label21 = [c7] Label22 = [c8] Label23 = [c9] Label24 = [c10] Label25 = [c11] Label26 = [c12] Label27 = [c13] Label28 = [c14] Label29 = [c15] Label30 = [c16] Label31 = [c17] Label32 = [c18] Label37 = [d3] Label38 = [d4] Label39 = [d5] Label40 = [d6] Label41 = [d7] Label42 = [d8] End Sub 10.21.rar

السلام عليكم بعد المحاولات تم التوصل الي الحل وهذا الملف لعدد 10 لتعم الفائدة شكراً للاستاذ سليم والاستاذ ياسر 10.2.rar

السلام عليكم شكراً على الحلول الجميلة في حالة كان لدي عشر ين اسماء مختلفة من محمد 1 الي محمد20 ماذ اغير في الكود حتى يتم جمع القيم لكل شخص Private Sub UserForm_Activate() Dim i As Integer For i = 6 To 10 Me.Controls("label" & i - 5).Caption = Range("l" & i - 3) Me.Controls("label" & i).Caption = Evaluate(Application.WorksheetFunction.SumIf(Range("B2:B11"), Me.Controls("label" & i - 5).Caption, Range("C2:C11"))) Next i End Sub

السلام عليكم اريد الجمع بشرط يتم جمع جميع القيم لكل شخص مثلاً الاسم القيمة محمد1 = 5 محمد2 = 3 محمد1 = 1 محمد2 = 4 محمد1 = 2 في الليبل في الفورم يتم جمع كل القيم لكل شخص الليبل الذي يخص محمد1 = 8 10.rar

السلام عليكم شكراً استاذ ياسر المطلوب هو ما ادلي به استاذ ياسر لكن فكرتك جميلة جداً .. ادراج العدد والاسماء هل ممكن ادراج الاسماء كا جدول salim 10.rar

السلام عليكم اريد جمع عدد من الاسماء في عمود واظهار النتائج في Label على فورم 10.rar

السلام عليكم جرب بهذا الشكل علي اعتبار الرقم السري 123 Sub WW() ActiveSheet.Unprotect "123" ActiveSheet.Range("$D$6:$K$27").AutoFilter Field:=1 ActiveSheet.Protect "123" End Sub

شكراً استاذ ياسر

السلام عليكم ارقام موجبة فقط في تيكست بوكس اريد عندما تكون النتيجة في التكسيت 3 = -8 تعطي نتيجة 0 يعني الظهور للارقام الموجبة فقط 10.rar

السلام عليكم تمام اريد شرح حتي استخدمها في شكل آخر ما معني cint ولماذا وضعت التكست 1 بين الاقواس If CInt(TextBox1)

السلام عليكم اريد تصحيح If TextBox1 > TextBox2 Then TextBox3 = "منتظم" If TextBox1 < TextBox2 Then TextBox3 = "متأخر" المشكلة عند وضع رقم 12 في التكست 1 وعند وضع رقم 2 في التكسيت 2 يظهر الناتج في التكسيت 3 "مـتاخر" وهذا خطاء لان المفروض القيم في تكست 1 اكبر من القيمة في تكسيت 2 والنتيجة الصحيحة هي "منتظم" اكبر واصغر.rar

Private Sub Workbook_Open() With ورقة1 Range("E6").Select ActiveCell.FormulaR1C1 = Date End With End Sub اولاً لتوجد اي شدة في اللهجة فقط احبب ان استفهم لاني لم افهم قصدك جيداً علي العموم غير الكود السابق بهذا اخيرا لايكلف الله نفساً الا وسعها

السلام عليكم استاذ سامي اعتقد انه لابد من وجود الكود في حدث الورقة ThisWorkbook س: ما المانع من وضع الكود في حدث الورقة ThisWorkbook

لقد حاولت ولم افلح في طلبك إذا كان هناك كود في صفحة ThisWorkbook يمكن الدمج بين الكودين

شكراً استاذ سليم

السلام عليكم انظر الي المرفق تاريخ اليوم.rar

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

السلام عليكم تم الحل بقضل الله وضعته لتعم الفائدة وليستفيد منه شخص آخر نضع هذا الكود في الكوماند (1) Private Sub CommandButton1_Click() If IsDate(TextBox1.Value) Then TextBox2.Value = Format(DateAdd("m", TextBox3.Value, TextBox1.Value), "yyyy/mm/dd") End Sub

للرفع

السلام عليكم الملف معطوب حاول انزال الملف مره اخرى

للرفع