وليد زين العايدن

الف شكر اخ سليم

السلام عليكم ورحمة الله وبركاته في المرفق ملف في معادلة بسيطة لكن اذا كانت الخلايا الرئيسية فارغة تظهر ارقام في الخلايا التي فيها ناتج لوجود ارقام ثابته في خلايا اخرى ارجو المساعدة اذا كانت الخلايا الرئسية فارغة ان تكون الخلايا التي فيها الناتج 0 ارجو المساعدة ولكم الشكر المصنف1.rar

السلام عليكم ورحمة الله وبركاته ارجو المساعدة في طريقة ضبط عرض الاعمدة داخل List Box لان لدي اعمدة الكتابة غير ظاهرة كاملة كما في المرفق وكما هو واضح تحت عامود الوصف

الف شكر اخ سليم هو المطلوب الف شكر

اخي سليم الف شكر على مرورك لكن يبدو انني لم اوضح ماريده الرقمين في الخليتين C3,D3 متغيران و توضع المعادلة في خلية D5 وعليها ان تحقق اذا كان الرقم في الخلية D3 اكبر من الرقم في الخلية C3يظهر ناتج طرح الرقمين في الخلية التي توجد بها المعادلة اما اذا كان الرقم في الخلية C3اكبر من الرقم في الخلية D3 يظهر الناتج صفر لان الرقم الذي سوف يظهر ان كان رقم او صفر سوف يظرب بالخلية I3و الخلية J3 ويكون ناتج في الخلية G5 يوجد في المرفق ملف اكس به المطلوب IF.rar

السلام عليكم ورحمة الله وبركاته ارجو المساعدة في المعادلة التالية : =IF( D2>= C2, D2- C2,IF( D2<= C2,"",)) في المعادلة اذا تحقق الشرط الاول وهو ان الخلية D2 اكبر من C2 الناتج اذا ظرب او جمع مع اي رقم يعطي رقم صحيح اما اذا تحقق الشرط الثاني وهو D2 اصغر من C2 والناتج المطلوب ان يظهر فراغ ويظهر فراغ لكن اذا ضرب الناتج او جمع باي رقم يعطي كلمة VALUE# في المرفق ملف فيه المعادلة IF.rar

للرفع

السلام عليكم ورحمة الله وبركاته تم حل مشكلة ان تاخذ TextBox1 من ComboBox1 لكن المشكلة ان عند تفعيل اي شيت غير شيت الاسد الموجود عليه البيانات الخاص بالصور لا يتم استجلاب الصور قام بالمساعدة الاخ علاء والاخ بن خليفة ارجو منكم المساعدة ان يتم استجلاب الصورة الى اليوزر فورم حتى ان كان اي شيت مفعل 1.rar

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

تم ارفاق ملف يوضح المطلوب بحيث اذا تم تغير في ComboBox1 تاخذ TextBox1 منه اي اذا تم اختيار اسم الاسد من ComboBox1 يتم تلقائي كتابة اسم الاسد في TextBox1 1.rar

السلام عليكم ورحمة الله وبركاته الاستاذة المحترمين كيف يمكن ان ناخذ من ComboBox الى TextBox بمعنى ان اذا اخترت اسم من ComboBox يظهر في TextBox مع العلم ان داخل ComboBox يوجد كود التنقل بين الصفحات راجيا المساعدة ولكم الشكر

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

الف شكر اخي حمادة الكود شغال

السلام عليكم ورحمة الله وبركاته ارجو المساعدة في تعديل الكود المدرجح ان يتم الترحيل الى الشيت المفعل وكود التعديل وكود المسح ايضا يقوما بالعمل في الشيت المفعل الكود للاستاذ مجدي يونس كود ادخال بيانات جديدة Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("بيانات") iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ كود تعديل البيانات Dim i As Integer For i = 1 To 200 If Val(TextBox12.Value) = Cells(i, 1) Then Cells(i, 1) = TextBox1.Text Cells(i, 2) = TextBox2.TextEnd If Next MsgBox "تمت الأضافة بنجاح" Me.TextBox1.Value = "" Me.TextBox2.Value = "" ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ كود بحث Set sh12 = Sheets("بيانات") LR = sh12.[a2000].End(xlUp).Row For Each cl In sh12.Range("a5:a100" & LR) If (Val(Me.TextBox12)) = cl Then Me.TextBox1 = cl.Offset(0, 0) Me.TextBox2 = cl.Offset(0, 1)

السلام عليكم ورحمة الله وبركاته انا بحاجة فقط الى كود يقوم بالترحيل من اليوزر فورم الى صفحة العمل بشرط المتغير في (ComboBox1) وكود بحث ايضا من اليوزر فورم من صفحة العمل المفعلة وكود تعديل بنفس الشروط ارجو المساعدة ان امكن

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

اشكرك اخي شريف على المساعدة ارجو منك ان تساعدني في هذه المعدلة اذا كانت قيمة احدى الخليتين K8 او E8 = فارغة تظهر في الخلية التي توجد بها المعادلة 0 =CEILING(( K8*E8),1)+1

السلام عليكم ورحمة الله وبركاته يوجد في الملف مرفق فيه معادلة IF المساعدة بتكوين معادلة لاكثر من شرط في الملف توضيح ومعادلة مكتوبة ولكم الشكر معادلة IF.rar

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

السلام عليكم ورحمة الله وبركاته وجدت ملف لاحد الاخوة لفك الحماية عن ملف الاكسل عن طريق وضع كود في Module جديد في محرر الاكواد وبعد لصق الكود ابقي اشارة الماوس داخل الكود وقم بتشغيل الكود وتابع بالضغط على موافق الى النهاية ومبروك عليك الملف لديك تم فك الحماية عنه كود فك الحماية عن ملف اكسل.rar

السلام عليكم ورحمة الله وبركاته مهندس منير اشكرك على المساعدة لكن لم يعمل لدي الملف ارفق لك الملف اذا كان بالامكان تساعدني بها ولك الشكر FormShapes.rar

السلام عليكم ورحمة الله وبركاته نزلة ملف من احد المنتديات وعند فتح الملف فتح محرر الاكواد وظهر الكود بالون الاحمر ولم يعمل مقعي الملف ارجو المساعدة في هذا الامر ولكم الشكر

تم حل هذه المشكلة عن طريق تحميل ملف للريجستر موجود في منتد الاكسل للاستاذ ابن عليا في المرفق الملف المطلوب لحل هذه المشكلة وايضا يحل مشكلة الارتباط التشعبي في الاوفيس html_association_fix.reg.zip

السلام عليكم ورحمة الله وبركاته لدي مشكلة اذا كان هناك رابط مرسل في رسالة لا يمكنني الدخول من هذا الرابط عن طريق الضغط علية وتظهر رسالة محتواها ((تمنع مؤسسة النهج من اكمال هذا الاجراء يرجى الاتصال بمركز المساعدة )) مرفق مع الموضع صورة الرسالة مع العلم انني لنفس الاوفيس وهو اصدار 2016 قمت بوضعه على الكمبيوتر ثاني ولا توجد هذه المشكلة ارجو المساعدة في هذا الموضوع ولكم مني جزيل الشكر

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