هادى محمد المامون سالم

بسم الله الرحمن الرحيم اخى ابو هاجر موضوع رائع و اذا اردت اضافه قد تكون مفيده فاليك المزيد : اغلب استخدامى Boolean عند التعامل مع UserFor و مايتضمنه من OptionButton التى تقوم بتحديد الاجابه اذا كانت True أو False و ربط هذه الاجابه باستدعاء داله أو بيانات قمت بتحديدها مسبقا و أمر الاستدعاء هذا هام جدا فى vba و يساعدك فى أختصار الكود بكتابته مره واحده ثم استدعاءه من اى مكان بكود واحد 0 ستقوم بادراج UserForm و سنعيد تسميته من خانه Name الى frm_Main اضافه OptionButton و سنسميه opt_True اضافه OptionButton و سنسميه opt_False اضاقه TextBox و سنسميه txt_Name اضافه مفتاح أو Button و سنسميه btn_Start مع ملاحظه ان اعاده التسميه هام جدا عند التعامل مع عدد كبير من المشاريع , و نقوم بكتابه اول ثلاثه احرف بخط صغير ثم _ ثم الاسم الذى تريده و من الافضل ان يكون معبر لاننا فى العاده ننسى مع كثره الاكواد 0 و سنقوم باضافه هذا الكود Private Sub UserForm_Activate() opt_True.Value = True txt_Name.Text = "Hi" End Sub هذا الكود يعمل تلقائيا عند تشغيل الفورم السطر الاول يجبر الفورم بتنشيط مفتاح True السطر الثانى بكتب فى TextBox كلمه Hi سنقوم كتابه كود الاستدعاء بمفتاح Start Private Sub btn_Start_Click() If opt_True = True Then MsgBox (txt_Name) Else MsgBox "You Did Not Select" End If End Sub الشرح اذا كانت مفتاح True نشيط قم باستدعاء ماهو موجود ب txt_Name و يمكنك تغيير ماشئت ب txt_Name اذا كانت مفتاح False نشيط قم باظهار رساله You Did Not Select مرفق ملف السلام عليكم True.rar

بسم الله الرحمن الرحيم أضعط Alt+F11 و ستجد الداله السلام عليكم

بسم الله الرحمن الرحيم مرفق الملف بعد التعديل السلام عليكم Report.rar

بسم الله الرحمن الرحيم استخدم الكود التالى Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 5 Then [A1] = Application.WorksheetFunction.Sum(Range("E2:E40")) [A2] = Application.WorksheetFunction.Sum(Range("E:E")) End If End Sub مرفق ملف السلام عليكم Sum_01.rar

بسم الله الرحمن الرحيم موضوع رائع يستحق التثبيت السلام عليكم

بسم الله الرحمن الرحيم لتطبيق الكود على ملف اخر اضغط Alt +F11 ثم انسخ الكود و انقله بملفك الجديد و بالنسبه للتقريب الكود لا يعمل على جميع الاعمده و لكنه يعمل على العمود من 11 حتى 56 كم هو بالكود Private Sub Worksheet_Change(ByVal Target As Range) col = Target.Column If col = 11 Or col = 12 Or col = 15 Or col = 16 Or col = 19 Or col = 20 Or col = 23 Or col = 24 Or col = 27 Or col = 28 Or col = 31 Or col = 32 Or col = 35 Or col = 36 Or col = 39 Or col = 41 Or col = 43 Or col = 44 Or col = 47 Or col = 48 Or col = 51 Or col = 52 Or col = 55 Or col = 56 Then End Sub و يمكنك اضافه ارقام الاعمده التى تريد العمل بها و للعلم انا لاحبذ التعامل مع داله Worksheet_Change مع هذا العدد الكبير مع الاعمده , جرب نسخ مجموعه خلايا و لزقها ستجد ان الملف هنج السلام عليكم

بسم الله الرحمن الرحيم اخى الساهر عمل جميل السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم OnTime.rar

بسم الله الرحمن الرحيم اخى ابو صبرى شكرا على المرور و لكن حاول ان تقوم بها بالاكواد لكى تعرف الفكره السلام عليكم

بسم الله الرحمن الرحيم اخى نزار اخى احمد يعقوب اخى TareQ M اخى bhgat62 مشكور السلام عليكم

بسم الله الرحمن الرحيم اخى خبور رائع كالعاده السلام عليكم

بسم الله الرحمن الرحيم ارفق ملف بما تقصده السلام عليكم

بسم الله الرحمن الرحيم قد يفيدك هذا الموضوع http://www.officena.net/ib/index.php?showtopic=26847 السلام عليكم

بسم الله الرحمن الرحيم بالملف المرفق تستطيع تجميع مبالغ الاسماء المتشابه من ورقه عمل و نقلها الى ورقه العمل الاساسيه و ذلك بطريقه SumIf بالكود السلام عليكم Sum_IF.rar

بسم الله الرحمن الرحيم قد يفيدك هذا الموضوع http://www.officena.net/ib/index.php?showtopic=26844 السلام عليكم

بسم الله الرحمن الرحيم قد يفيدك هذا الموضوع http://www.officena.net/ib/index.php?showtopic=26844 السلام عليكم

بسم الله الرحمن الرحيم فضلت ان افتح موضوع منفصل ردا على سؤال احد الاخوه بالملف المرفق فورم تضاف بيانات عمودان الى عدد 2 كمبوبوكس و المجال مفتوح و عند اختيارك البيانات تظهر تفاصيل العمود الاخر فو الكمبوبوكس الاخر و العكس 0 السلام عليكم comboBox.rar

بسم الله الرحمن الرحيم لجمع العمود بالكامل و و ضع الناتج فى الخليه A2 استخدم الكود Sub Sum_Columns() [A2] = Application.WorksheetFunction.Sum(Range("E:E")) End Sub لجمع المجال E2:ُ40 و و ضع الناتج فى الخليه A1 استخدم الكود Sub Sum_Range() [A1] = Application.WorksheetFunction.Sum(Range("E2:E40")) End Sub مرفق ملف السلام عليكم Sum.rar

بسم الله الرحمن الرحيم حاضر السلام عليكم

جعله الله في ميزان حسناتك بسم الله الرحمن الرحيم لقد تم التعديل فى الملف الاول حبث السؤال الذى تم اختياره لا يظهر مره اخرى و يوجد مفتاح لاعاده اظهار الاسئله السلام عليكم

بسم الله الرحمن الرحيم اخى boss : مجهود كبير جعله الله فى ميزان حسناتك لقد قمت بمراجعه جزء من الملف و لكن هناك بعض الكلمات ناقصه و قد يجد من يقرأ الملف الصعوبه فى فهم الموضوع , و لا اريد ان اضع امثله حتى لا اضيع حقك فى المجهود المبذول , و قد تكتشف بنفسك الفرق عند مقارنتك لأول سطر فى الموضوع 0 السلام عليكم

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

بسم الله الرحمن الرحيم اخى الكريم : لم تضيف تفاصيل جديده فيما عدا التعديل مرفق ملف به باقى طلباتك السلام عليكم Q_02.rar

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

بسم الله الرحمن الرحيم كبدايه سريعه مرفق الملف بعد التعديل حيث يختفى السؤال الذى تم اختياره من القائمه , و قد اضفت مفتاح اخر يقوم باعاده اظهار جميع الاسئله مره اخرى اذا اردت استخدامه 0 السلام عليكم Q_01.rar