الجموعي

أستاذي الفاضل/ ياسر خليل بعد التجربة تمت بنجاح العملية على (ComboBox2) فقط عند الإختيار(ComboBox1)يظهر مع بعض وانا اريد كل واحد على حدا مثل ما عملت في(ComboBox2) انا أريد ربط أي قيمة تظهر في (ComboBox1) بتكست بوكس مثلا : القيم في (ComboBox1): المجموعة 1. المجموعة 2 وهي قيم متغيره لأنها مرتبطة بالخلايا ("A1").("C1") عند إختيار من (ComboBox1) المجموعة 1 يظهر (TextFind1) عند إختيار من (ComboBox1) المجموعة 2 يظهر (TextFind2) ويختفي (TextFind1)

بارك الله فيك استاذي حسام وعلى المعادلة الرائعة إستفدت كثيرا من معادلتك ودي تقديري

أخي الكريم تم إضافة بحث للمادة فقط قم بإدراج رقم المادة وأضغط على زر بحث ستدرج البيانات في الليست بوكس بالنسبة للكمبوكس 1 2و 2 اين أجد تاريخ البداية وتاريخ الإنتهاء وما الغرض من تشك بوكس شاهد المرفق المصنف1.rar

بارك الله فيك أستاذي على هذا التوضيح لم أنتبه لذلك قم بإداراج داله ABS لتحويل القيم السالبة لقيم موجبة لتصبح على الشكل التالي =ABS(MONTH(A2)-MONTH(A1))

أستاذي الفاضل/ حمادة عمر بارك الله فيك على الشرج الوجيز في إنتظار التوضيح بأمثله ليستفيد بها الجميع

شكرا أستاذي أبو تراب على هذا الدرس القيم بارك الله فيك وجزاك الله كل الخير

السلام عليكم ورحمة الله تعالى وبركاته هل هذا الكود سليم أم لا إستعملت كل المحاولات ولم تفلح معي Private Sub ComboBox1_Change() '==================================== If Me.ComboBox1.Value <> "" Then Me.TextFind1.Visible = True Me.TextFind2.Visible = False End If '==================================== If Me.ComboBox1.Value <> "" Then Me.TextFind2.Visible = True Me.TextFind1.Visible = False End If '==================================== End Sub Private Sub ComboBox2_Change() '==================================== If Me.ComboBox2.Value = "المجموعة 1" Then Me.TextFind2.Visible = False Me.TextFind1.Visible = True End If '==================================== If Me.ComboBox2.Value = "المجموعة 2" Then Me.TextFind1.Visible = False Me.TextFind2.Visible = True End If '==================================== End Sub Private Sub UserForm_Initialize() '==================================== With ThisWorkbook.ActiveSheet ComboBox1.AddItem .Range("A1") ComboBox1.AddItem .Range("C1") End With '==================================== With ComboBox2 .AddItem " المجموعة 1 " .AddItem " المجموعة 2 " End With '==================================== Me.TextFind1.Visible = False Me.TextFind2.Visible = False '==================================== End Sub مساعدة في هذا المرفق if ComboBox.rar

الرجاء من الإدارة دمج الموضوع مع موضوع الأستاذ الصقر الجريح وشكرا

السلام عليكم ورحمة الله تعالى وبركاته إستكمالا لدرس الأستاذ/الصقر الجريح داله DateDif رائعه لايجاد الفرق بين تاريخين او طرح تاريخين شرح مبسط للدوال تستخدم هذه الدالة فى إيجاد الفرق بين تاريخين شكل الدالة يكون كالتالي: YEAR(Date2)-YEAR(Date1) MONTH(Date2)-MONTH(Date1) DAY(Date2)-DAY(Date1) شرح الدوال وتتكون من جزئين Date1 هو تاريخ الاقدم Date2 هو تاريخ الاحدث واليكم تطبيقات عمليه للداله مثال 1 لدينا تاريخ بالخلية B1 وهو 2010/08/05 تاريخ الميلاد وتاريخ بالخلية B2 وهو 2014/12/27 تاريخ اليوم ونريد كم فرق السنوات بين تاريخين : نكتب بالخلية B4 الداله التالية : لإيجاد الفرق بين السنوات = YEAR(B2)-YEAR(B1) ويكون ناتج المعادله وهو 4 سنوات كما في الشكل السنة 4 نكتب بالخلية B5 الداله التالية: لحساب الفرق بين الشهور =MONTH(B2)-MONTH(B1) ويكون ناتج المعادله وهو 4 شهور كما في الشكل الشهر 4 نكتب بالخلية B6 الداله التالية : لإيجاد الفرق بين الأيام =DAY(B2)-DAY(B1) ويكون ناتج المعادله وهو 22 يوما كما في الشكل اليوم 22 نكتب بالخلية B8 الداله التالية: = YEAR(B2)-YEAR(B1)&" سنوات " &MONTH(B2)-MONTH(B1)&" شهور "&DAY(B2)-DAY(B1)&" يوم " تنسيق النص على الشكل التالي 4 سنوات 4 شهور 22 يوم مع مراعاة تنسيق إتجاه النص من اليمين لليسار وفي الأخير أتمنى الشرح أن ينال إعجابكم مع تحيات محبكم/ الجموعي

ايه بالظبط كده بس انتا عملتها ازاي ؟؟؟ انا عاوز اكررها على اكتر من خليه وبعدين عاوز اتحكم فيها وامسح كلمة تشك بوكس 1 وهل يمكن اضافة الوقت ايضا ؟؟؟ شكرا ليك جدا على المساعده بالنسبة لمسح تشك بوكس إتبع الشرح المصور

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

بارك الله فيك استاذي الكريم على هذه الدالة الرائعة وشرحها المبسط من بعد إذنك إثراء للموضوع ليصبح تنسيق النص على الشكل التالي نقوم بإدراج الكود التالي في الخلية المراد ظهور الشكل السابق بها =DATEDIF($A$2;$B$2;"y") & " سنة " & DATEDIF($A$2;$B$2;"ym") & " شهر " & DATEDIF($A$2;$B$2;"md") & " يوم " مع مراعاة تنسيق إتجاه النص من اليمين لليسار

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

تفضل أخي الشرح البسيط إن شاء الله يفيدك 'يوضع هذا الكود في حدث (ThisWorkbook) '----------------------------------- Private Sub Workbook_Open() '----------------------------------- Application.EnableCancelKey = xlDisabled '----------------------------------- ' إخفاء ورقة العمل Application.Visible = False '----------------------------------- ' عند وجود أخطأ إنتقل للحدث التالي On Error Resume Next '----------------------------------- 'إظهار الفورم UserForm1.Show '----------------------------------- End Sub 'توضع هذا الأكود في حدث (UserForm1) '----------------------------------- Private Sub CommandButton1_Click() '----------------------------------- 'هذا الكود لإظهار ورقة العمل Application.Visible = True '----------------------------------- ' تفعيل الورقة الأولى sheet1.Activate '----------------------------------- 'للخروج من الفورم Unload Me '----------------------------------- End Sub '----------------------------------- Private Sub CommandButton2_Click() '----------------------------------- ' للخروج من الفورم + ورقة العمل Workbooks.Application.Quit '----------------------------------- End Sub

تفضل أخي هل هذا ما قصدته المخزون.rar

تفضل أخي كما اردت تحكم بحجم الفورم تم التعديل.rar

هل هذا ما قصدته تحكم بحجم الفورم.rar

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

أخي الكريم معذرة مني لم أنتبه عند نسخ الكود أضف هذا السطر في الأخير End Sub لتصبح على الشكل التالي Private Sub cmd_1_Click() With UserForm1 .Height = 380.25 .Left = 0 .Top = 2.25 .Width = 448.5 .Zoom = 100 .StartUpPosition = 2 - CenterOwner End With End Sub

أخي الكريم ياريت إرفاق الملف الأصلي للتعديل عليه حاولت مع ملفك ولم يشتغل

شاهد الصورة

السلام عليكم ورحمة الله تعالى وبركاته اساتذتي الفضلاء ما الفرق بين بين Text /Value وفي أي الحالات نكتب: TextBox.Text وفي اي حالة نكتب TextBox.Value وجزاكم الله كل الخير

وفيك بارك الله استاذي وجزاك الله خيرا وأثبك الجنة ودي وتقديري

أستاذي القدير منكم نستفيد الله لا يحرمنا منكم اذا فيه استاذي أكواد أخرى ياريت تشاركنا بها وبارك الله فيك وفي والديك ربي يحفظك

في خصائص الفورم الخاصية RightToLeft غير قيمتها True او عن طريق الكود في حدث UserForm_Initialize Private Sub UserForm_Initialize() With UserForm2 .RightToLeft = True End With End Sub او كود مختصر Private Sub UserForm_Initialize() Me.RightToLeft = True End Sub