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

سليم حاصبيا

أوفيسنا
  • Content count

    3,795
  • تاريخ الانضمام

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

  • Days Won

    54

سليم حاصبيا last won the day on March 8

سليم حاصبيا had the most liked content!

السمعه بالموقع

2,438 Excellent

عن العضو سليم حاصبيا

  • الرتبه
    مشرف
  • تاريخ الميلاد 08 مار, 1985

Profile Information

  • Job Title
    استاذ ثانوي

اخر الزوار

3,027 زياره للملف الشخصي
  1. لو امكن ان ترفع جزء من الملف حوالي 20 صف غي كل صفحة لمعرفة كيفية التعامل مع الملف حيث اني اري معادلات لا تعمل كما يجب و حدد ماذا تريد ان ترقم في العامود A هل 1 2 أو الرقم 1 الرقم 2 لان الفلتر يتأثر بهذا
  2. بعد اذن اخي زيزو بدون حلقات تكرارية هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False On Error GoTo exit_sub If Target.Column <> 2 And Target.Cells.Count > 1 Then GoTo exit_sub Sheets(Target.Value & "").Activate exit_sub: Err.Number = 0 Application.ScreenUpdating = True End Sub
  3. استبدل الفاصلة "," بفاصلة منقوطة ";" قي المعادلة أو العكس(حسب اعدادات الجهاز عندك) لتصبح هكذا =MOD($A1,4)=0 أو =MOD($A1;4)=0
  4. ؤقض الجهاز التعامل مع ملقك لقد عملت لك ملفاً بديلاً (بشبه ما عتدك) اي تفيير في قيمة الخلية B2 ينفذ الكود مباشرة و هناك زر لاظهار الصفوف اذا كانت قيمة الخلية B2 غير موجودة قي العامود الاول يتم اظهار كل الصفوف Show cols.rar
  5. جرب هذا الملف اصنافform salim.rar
  6. جرب هذ المرفق cond_format.rar
  7. استبدل الماكرو بهذا Private Sub Worksheet_Change(ByVal Target As Range) With Application .ScreenUpdating = False .EnableEvents = False End With Dim My_Rg As Range Dim x, y, k, c As Long Set My_Rg = Range("a1").CurrentRegion On Error GoTo Exit_Sub x = My_Rg.Rows.Count y = My_Rg.Columns.Count My_Rg.Interior.ColorIndex = xlNo Set My_Rg = My_Rg.Offset(1).Resize(x - 1).Offset(, y - 7).Resize(, y - 10) If Not Intersect(Target, My_Rg) Is Nothing And Target.Cells.Count = 1 Then For k = 1 To x c = Application.CountA(My_Rg.Cells(k, 1).Resize(, y - 10)) If c > 0 Then Cells(k + 1, 2).Resize(1, 16).Interior.Color = 12900829 Next End If Exit_Sub: With Application .ScreenUpdating = True .EnableEvents = True End With End Sub
  8. لا أعلم اذا كان هذا ما تريد Book1 Salim.rar
  9. ربما كان ما تريد انظر الى الورقة Salim 2 مجرد ان تكتب الرقم في الخلية B9 يقوم اكسل بالواجب salim 8_1.rar
  10. المعادلة المطلوبة : اذا كنت تريد عدد هذه الخلايا اليك المعادلة =SUMPRODUCT(--ISNUMBER($A$1:$A$20),--($A$1:$A$20<100)) اذا كنت تريد مجموع الخلايا اصغر من 100 =SUMIF($A$1:$A$20,"<100")
  11. المعادلة تقو م بذلك حتى و لو لم يكن هناك تكرار (جرب استبدل الرقم 10 بأي رقم تريد و شاهد النتيجة)
  12. تم التعديل كما تريد Book100 Salim.rar
  13. يمكن ان يكون الحل هنا salim 8.rar
  14. جرب هذا الماكرو Option Explicit Sub Formula_to_constante() Dim My_Rg As Range Dim x, y As Integer Set My_Rg = Range("b7").CurrentRegion x = My_Rg.Rows.Count y = My_Rg.Columns.Count Set My_Rg = My_Rg.Offset(2).Resize(x - 2, y - 1) Range("h7:h" & x + 4).ClearContents Cells(7, y + 1).FormulaArray = "=IF(OR(ISBLANK(C7:G7)),"""",ROUND(SUM(C7:G7),0))" Range("h7:h" & x + 4).Value = Range("h7:h" & x + 4).Value End Sub
  15. جرب هذا الملف كنموذج cond_format.rar