اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عبدالسلام ابوالعوافي

الخبراء
  • Posts

    342
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    6

كل منشورات العضو عبدالسلام ابوالعوافي

  1. جزاك الله خير استاذ محمد
  2. الملف المرفق بيه طريقتان .. الاولى .. تنفيد الكود واظهار النتائج عند التغيير علي الخلايا في الاعمدة A>>G الثانية .. تنفيذ الكود من الزر اختر احدى الطريقتين ..مع العلم اني طبقت علي العمود L فقط .. وطبق الخطوات علي العمودين الاخرين M-N
  3. تمام اخي فهمت عليك .. كل مافي الامر انه عند الضغط علي الليبيل يشتغل الكود الاتي .. UserForm1.Show
  4. ضع في الخلية C2 الصيغة الاتية واسحب لاسفل =IF(SUMPRODUCT(--(($A$2:$A$26&"-"&$B$2:$B$26)=(A2&"-"&B2)))>1;"مكرر";"")
  5. اخي الكريم .. لم افهم ماتقصده بالضبط .. بالنسبة للمرفق فهو يقوم باخفاء واظهار Frame وليس فورم اخر
  6. =IF(COUNTIF(A2:A22;INDEX(A2:A20;MATCH(1;(SUBTOTAL(3;OFFSET(A2:A20;ROW(A2:A20)-2;0;1)));0)))=SUBTOTAL(3;A2:A20);INDEX(A2:A20;MATCH(1;(SUBTOTAL(3;OFFSET(A2:A20;ROW(A2:A20)-2;0;1)));0));"====") جرب
  7. تم تعديل المعادلات .. وفيما يخص الفورم .. لم اقم باي تعديل عليه والمشكلة موجودة مسبقا .. تنظيم المعاملات 3.rar
  8. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Or Target = "" Then Exit Sub If Target < 10 Or Target > 20 Then MsgBox "يجب ادخال قيمة بين 10 و 20" Target = "" Target.Select End If End Sub تضع الكود في حدث ورقة العمل .. في العمود B يجب ادخال قيمة بين 10 و 20
  9. جرب هذا الملف .. اذا كنت فهمت ماتقصد test.rar
  10. جرب هذا الملف .. مع ملاحظة ان الموجود في المرفق هو فكرة الحل .. بمعنى .. قم بتعديل النطاقات داخل الملف عند اضافة بيانات جديدة تنظيم المعاملات 2.rar
  11. قمت بالتعديل علي الفورم في مشاركة سابقة وهو يشتغل بشكل جيد .. ولكن للتعيدل علي الكود الحالي قم باضافة هذا السطر If Lr < 9 Then Lr = 9 في هذا الموضع
  12. تقبل الله صالح اعمالكم وكل عام وانتم بخير ..
  13. جرب Private Sub CommandButton1_Click() Dim lr As Integer Dim i As Integer lr = Cells(Rows.Count, "C").End(xlUp).Row For i = 4 To lr If Cells(i, 3) = Me.ComboBox2 Then Cells(i, 2) = Me.TextBox2 Cells(i, 3) = Me.ComboBox1 Cells(i, 4) = Me.TextBox1 End If Next End Sub
  14. اخي الكريم .. لم افهم كل ماتقصد .. لكن جرب هذه المعادلة =IF(COUNT(F9:H9)<3;"";IF(E9>=$B$5;"ناجح";"راسب"))
  15. يشتغل تمام معي .. قد تكون المشكلة في الاوفيس عندك .. جرب علي جهاز تاني
×
×
  • اضف...

Important Information