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

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

السلام عليكم ورحمة الله وبركاته

في المرفق ملف في معادلة بسيطة لكن اذا كانت الخلايا الرئيسية فارغة تظهر ارقام في الخلايا التي فيها ناتج لوجود ارقام ثابته في خلايا اخرى ارجو المساعدة اذا كانت الخلايا الرئسية فارغة ان تكون الخلايا التي فيها الناتج 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