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

سليم حاصبيا

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

  • Posts

    8,723

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

  • Days Won

    262

 نوع المحتوي 

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

  1. سليم حاصبيا
    تم معالجة الامر بواسطة المعادلات انظر الى الصفحتين الاصافيتين فايل تسجيل بيانات salim.rar
  2. سليم حاصبيا
    جرب هذا الملف (نغس التصميم)محدث تم حماية المعادلات لعدم العبث بها عن طريق الحطأ Tarhil natija alim.rar
  3. سليم حاصبيا
    تم معالجة الامر و ذلك بالاستغناء عن الاسماء المعرفة Special_Sum advanced 1.rar
  4. سليم حاصبيا
    جرب هذا الماكرو Sub hide_col() Application.ScreenUpdating = False Range("e1:ai1").EntireColumn.Hidden = True My_Match = Application.Match(Range("c2"), Range("e4:ai4"), 0) + 4 Cells(4, My_Match).EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub
  5. سليم حاصبيا
    جرب هذا الشيء sales salim.rar
  6. سليم حاصبيا
    هناك كود في حذث الصفحة Private Sub Worksheet_Activate() Cells.EntireRow.Hidden = False End Sub يجب ان توفقه غن العمل وذلك باضافة فاصلة بأوله او ان تحذفه
  7. سليم حاصبيا
    جرب هذا الملف copy sheet.rar
  8. سليم حاصبيا
    لم افهم الشرط الثاني جيداً
  9. سليم حاصبيا
    تم العمل بنجاح تم حماية الخلايا التي تحتوي على معادلات لعدم العبث بها عن طريق الخطأ Sample 2 salim.rar
  10. سليم حاصبيا
    جرب هذا الملف hospital_facture.rar
  11. سليم حاصبيا
    جرب هذا الملف Special_Sum.rar
  12. سليم حاصبيا
    ربما كان المطلوب ما دامت الخلية Z1 تساوي كلمة My_Password لا يمكن الكتابة الا في الخلايا الفارغة من العامود F للسماح بتعيير الخلايا غير الفارغة فيالعامود F يجب حذف محتويات الخلية Z1 بواسطة كلمة السر للصفحة Salim (محتويات الخلية Z1 غير مرئية) Aziz salim.rar
  13. سليم حاصبيا
    بعد كتابة المعادلة اضفطي (Ctrl+Shift+Enter) وليس Enter وحدها و اذا لم تعمل استبدلي الفاصلة بفاصلة منقوطة في المعادلة لتصبح هكذا =IF(COLUMNS($S$5:S5)>COUNTIF($J$5:$J$25;$U5);"";INDEX($G$5:$G$25;SMALL(IF($U5=$J$5:$J$25;ROW($G$5:$G$25)-ROW($G$5)+1;1000);COLUMNS(Z$1:$Z1)))) ملاحظة:بعد كتابة المعادلة اضفطي (Ctrl+Shift+Enter) وليس Enter وحدها
  14. سليم حاصبيا
    لا اعرف اذا كان هذا المطلوب بالضبط fahad5095_salim.rar
  15. سليم حاصبيا
    جاولي رفع الملف او قسم منه للعمل عليه
  16. سليم حاصبيا
    جاولي رفع الملف او قسم منه للعمل عليه
  17. سليم حاصبيا
    جرب هذا الملف ولا تنس (اغجبني) تم جماية المغادلات لعدم العبث بها عن طريق الخطأ وصل salim.rar
  18. سليم حاصبيا
    جرب هذا الملف Bassih.rar
  19. سليم حاصبيا
    يمكنك استعمال هذا الملف وهذا الماكرو التابع له (اسرع من الاول) Sub salim() Dim lr As Integer lr = Cells(Rows.Count, 2).End(3).Row Range("a2:a" & lr).ClearContents Set myrg = Range("b2:b" & lr).SpecialCells(2, 23).SpecialCells(12).Offset(0, -1) myrg.Cells(1) = 1 myrg.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _ Step:=1, Stop:=myrg.Count End Sub PROBLEM salim.rar
  20. سليم حاصبيا
    بعد اذن اخي عادل جرب هذا الكود Sub Numerate() Dim myrg, cel As Range, k, lr As Integer lr = Cells(Rows.Count, 2).End(3).Row Set myrg = Range("b2:b" & lr).SpecialCells(2, 23).SpecialCells(12) Range("a2:a" & lr).ClearContents k = 1 For Each cel In myrg cel.Offset(0, -1) = k k = k + 1 Next End Sub
  21. سليم حاصبيا
    تفضل ما تريد (الصفحة 3) تم التعديل على الملف Code or ID advanced 1.rar
  22. سليم حاصبيا
    المعادلة تقوم بهذا الشيء =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"")
  23. سليم حاصبيا
    لم افهم ما تريد
  24. سليم حاصبيا
    تفضل ما تريد (الصفحة 3) Code or ID advanced.rar
  25. سليم حاصبيا
    يمكن عمل ذلك لاحفاً لانه ليس لدي الوقت لذلك الان غل فكرة اين الاعجاب
×
×
  • اضف...

Important Information

  I accept