اذهب الي المحتوي
أوفيسنا

سليم حاصبيا

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    8723

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

  • Days Won

    262

 نوع المحتوي 

كل منشورات العضو سليم حاصبيا

  1. سليم حاصبيا
    ربما تعجبك هذه =CHOOSE(LEFT($D2,1),"CEN","WST","EST","NOR")
  2. سليم حاصبيا
    استعمل هذه المعادلة في الخلية BA4 و اسجب نزولاً (لا تنسَ استعمال Ctrl+Shift+Enter)لانها معادلة صفيف =IF(ROWS($BA$4:BA4)>COLUMNS(Loading),"",SMALL(TRANSPOSE(COLUMN(Loading)),ROWS($BA$4:BA4))) انا لم اقم الا بالاجابة على السؤال المطروح : وهو بيانات فريدة مرتبة تنازلياً
  3. سليم حاصبيا
    استعمل هذه المعادلة في الخلية BA4 و اسجب نزولاً (لا تنسَ استعمال Ctrl+Shift+Enter)لانها معادلة صفيف =IF(ROWS($BA$4:BA4)>COLUMNS(Loading),"",SMALL(TRANSPOSE(COLUMN(Loading)),ROWS($BA$4:BA4)))
  4. سليم حاصبيا
    لا افهم كيف يمكن ان تلصق شيئاً ما دون ان تقصه او تنسخه
  5. سليم حاصبيا
    جرب هذا الملف تكرار حسب الرغبة.rar
  6. سليم حاصبيا
    لك ما ريد cond_format salim 3.rar
  7. سليم حاصبيا
    قم بما يلي: 1- file>>> Options<<< formulas 2- من الخانة Working with formulas ضع علامة صح على R1C1 reference style 3- Ok
  8. سليم حاصبيا
    تم معالجة الامر cond_format salim 2.rar
  9. سليم حاصبيا
    هل النطاقات هي ذاتها في كل الاوراق؟ ام مختلفة (الأفضل رفع جزء من الملف للتعامل معه) يلزم معرفه هذا لكتابة الكود هل النطاقات هي ذاتها في كل الاوراق؟ ام مختلفة (الأفضل رفع جزء من الملف للتعامل معه) يلزم معرفه هذا لكتابة الكود يمكنك استعمال هذين الكودين المرفقين بالملف الاول لنطاق محدد في كل الصفحات والثاتي لنطاقات مختلفة في كل صفحة cond_format salim.rar
  10. سليم حاصبيا
    هل النطاقات هي ذاتها في كل الاوراق؟ ام مختلفة (الأفضل رفع جزء من الملف للتعامل معه) يلزم معرفه هذا لكتابة الكود
  11. سليم حاصبيا
    ممكن ان يكون الحل لهذا الامر (تم حماية المعادلات لعدم العبث بها عن طريق الخطأ) book1-1 salim.rar
  12. سليم حاصبيا
    لا حاجة للكود في مثل هذه الحالة تفضل الحل تنسيق شرطي تلقائي salim.rar
  13. سليم حاصبيا
    يمكن ان يكون ما تريد تحذير مسبق salim.rar
  14. سليم حاصبيا
    تم معاجة الأمر defect_mahine advanced.rar
  15. سليم حاصبيا
    استبدل الكود بهذا Function where_are(my_string As String, rg As Range) As String where_are = "" mY_text = "" Application.Volatile For Each cel In rg If InStr(cel, my_string) > 0 And Len(my_string) >= 2 Then mY_text = mY_text & cel.Offset(0, -1) & "," End If Next where_are = Left(mY_text, Len(mY_text) - 1) End Function
  16. سليم حاصبيا
    طبعاً يمكن ذلك Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim my_date As Date my_date = #4/30/2016# If Date > my_date Then With Sh.UsedRange.SpecialCells(-4123, 23) .Value = .Value End With End If End Sub
  17. سليم حاصبيا
    جرب هذا الكود Sub Delete_All_Named_ranges() Dim nName As Name answer = MsgBox("سوف يتم مسح كل اسماء القطاعات هل انت موافق؟؟", vbYesNo, "تحذير") If answer <> 6 Then Exit Sub For Each nName In Names nName.Delete Next nName End Sub
  18. سليم حاصبيا
    (لم افهم ماذا تعني بالصيغ اليست هي ذاتها المعادلات) (قبل تنفيذ الكود اعمل نسخة احتياطية للصفحة لان الكود يحول كل المعادلات الى قيم ثابتة) اذهب الى هذا العنوان
  19. سليم حاصبيا
    يلزمك في هذه الحالة هذا الكود Private Sub Worksheet_Activate() Dim my_date As Date my_date = #4/30/2016# 'يمكتك اختيار التاريخ هنا اخر نيسان If Date > my_date Then With ActiveSheet.UsedRange.SpecialCells(-4123, 23) .Value = .Value End With End If End Sub
  20. سليم حاصبيا
    جرب هذا الملف defect_mahine.rar
  21. سليم حاصبيا
    جرب هذه المعادلة =IFERROR(INDEX('Sheet2 (2)'!$D$3:$D$18,MATCH(C4&D4&E4,'Sheet2 (2)'!$A$3:$A$18&'Sheet2 (2)'!$B$3:$B$18&'Sheet2 (2)'!$C$3:$C$18,0)),"''")
  22. سليم حاصبيا
    جرب هذا الملف كي يعمل الماكرو دون ان يحدف بعض الاسماء (تم تغيير اسماء الصفحات الى اللغة الاجنبية لسهولة التعامل معها) يجب ان تكون كل الاسماء في كل صفحة في عامود واحد ابتداءً من الخلية A7 دفتر أعمال السنة تعديل salim.rar
  23. سليم حاصبيا
    جرب هذا الشيء Sub Without_formulas() With ActiveSheet.UsedRange.SpecialCells(-4123, 23) .Value = .Value End With End Sub
  24. سليم حاصبيا
    اسمحوا لي بالتدخل لاضافة معادلة =INDEX($D$3:$D$18,MATCH(G3&H3&I3,$A$3:$A$18&$B$3:$B$18&$C$3:$C$18,0))
  25. سليم حاصبيا
    تمت معالجة الامر (كلمة السر) salim أحرف صغيرة الملف 2010 اذا كان عندك 2003 يمكن التغيير حماية الصفوف من التغيير ة salim.rar
×
×
  • اضف...

Important Information

  I accept