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

سليم حاصبيا

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

  • Posts

    8,723

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

  • Days Won

    262

 نوع المحتوي 

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

  1. سليم حاصبيا
    بعد اجراء عملية الفلترة 1-حد ما يجب ان تنسخه بواسطة الماوس 2- اضغط Ctrl+C 3-اذهب الى ورقة جديدة 4- حدد الخلية حيث تريد اللصق 5- اضغط Ctrl+V 6- ارجع الى الصفحة الرئيسية واضغط Esc 7-اضغط على زر Reset يمكن ان يكون الحل بهذا الشكل شغل الامر reset اولاً ثم اختر الخلية المناسبة ثم اضغط على (زر جديد Copy data) TEST FILTERS salim 1.rar
  2. سليم حاصبيا
    بعد اجراء عملية الفلترة 1-حد ما يجب ان تنسخه بواسطة الماوس 2- اضغط Ctrl+C 3-اذهب الى ورقة جديدة 4- حدد الخلية حيث تريد اللصق 5- اضغط Ctrl+V (اذا كانت الاعمدة ضيقة لا تتسع للبيانات في الخلايا يمكنك توسيع العامود) 6- ارجع الى الصفحة الرئيسية واضغط Esc 7-اضغط على زر Reset
  3. سليم حاصبيا
    احي ياسر بمكن دمج الكود المقدم مني مع الكود بتاعك لنحصل على المطلوب
  4. سليم حاصبيا
    بعد اذن اخي وحبيبي ياسر اليك هذا الملف TEST FILTERS salim.rar
  5. سليم حاصبيا
    النسخ واللصق لا يفيد في هذه الحالة عليك بعمل جدول صغير في الملف الجديد مثل الجدول من E1 الى G2 و نسخ المعادلة من الخليتبن B2 و C2 الى الملف الجديد بالنسبة للايميل لم استعمله منذ مدة طويلة وقد نسيت الباسوورد
  6. سليم حاصبيا
    مجرد المرور عليها بالمؤشر فانت تحدد الخلية (كأنك ضغطت عليها بالماوس)
  7. سليم حاصبيا
    تم التعدذيل على الملف لبعمل لغاية 600 شهر (50 سنة) فقط حدد شهر المطلوب وسنة المطلوبة (يمكنك تغيير 2015 الى ما تشاء) و كذلك الشهر المطلوب work with date 1.rar
  8. سليم حاصبيا
    ربما هذا الكود (أوقف الأول عن العمل و ذلك بوضع فاصلة عليا في بدايته) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$10" And IsNumeric(Value) And Target.Count = 1 Then Old_Val = Target.Value Cells(11, 1).Value = Cells(11, 1).Value + Old_Val End If End Sub
  9. سليم حاصبيا
    جرب هذا الملف لك حق الاختيار بالسنة و شهر البداية وعدد الاشهر المطلوبة work with date.rar
  10. سليم حاصبيا
    الكود الصحيح لهذه العملية Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$10" And IsNumeric(Value) Then Application.EnableEvents = False Range("A11").Value = Range("A11") + Target.Value Application.EnableEvents = True End If End Sub
  11. سليم حاصبيا
    يحب ازالة الحماية عن الورقة اولاً يمنكك استعمال هذا النتسيق cust_form.rar
  12. سليم حاصبيا
    جرب هذه المعادلة =CHOOSE((Sheet1!F4<>"")+(Sheet1!E4>Sheet1!F4)+1,"","NO","Ok")
  13. سليم حاصبيا
    تم معالجة الامر فقط حدد الخلاياالمطلوبة في كل ورقة (لتحديد اكثر من عامود في نفس الورقة اضغط Ctr و حدد الاعمدة اللازمة) بعد الانتهاء من ذلك اذهب الى أول ورقة واضغط على الزر working with all sheets Advanced.rar
  14. سليم حاصبيا
    اكثر من رائع
  15. سليم حاصبيا
    جرب هذا الملف الذي يمكنك البناء عليه show_only_my_sheet.rar
  16. سليم حاصبيا
    جرب هذا الملف كل الاكواد مذكورة في القائمة المنسدلة مع الاستجابة للزيادة و عدم التكرار و كذلك اسماء العملاء اقساط 2015 salim.rar
  17. سليم حاصبيا
    تم تحديث الملف كما تريد وزيادة حبتين (مع الشرح الوافي للتعامل مع الكود و كيفية إيقافه عن العمل) protect non empty data with Pass word.rar
  18. سليم حاصبيا
    تم التحديث اكثر للملف بحيث يظهر الصف الاول في كل صفحة عند الطباعة و البرنامج يتلافى الاخطاء المطبعية في اختيار عدد الصفوف ويدرج محموع اخر صفحة (حتى و لو كانت تحتوي على صفوف اقل من الصفوف المختارة) لادراج معاينة قبل الطباعة - اضغط Ctrl+ F2 طباعة ذكية salim 2.rar
  19. سليم حاصبيا
    تم اكتشاف الحطأ و تعديله طباعة ذكية salim 1.rar
  20. سليم حاصبيا
    ربما كان المطلوب انظر الى الورقة test طباعة ذكية salim.rar
  21. سليم حاصبيا
    تم التعديل على الملف ليظهر بشكل افضل What_Are The Changed Cells.rar
  22. سليم حاصبيا
    حاول نغيير قيمة اي خلي في العامود A
  23. سليم حاصبيا
    جرب هذا الماكرو التعامل مع العامود الاول (يمكن التغيير اذا اردت من خلال الماكرو) Changed_Valeus.rar
  24. سليم حاصبيا
    ربما كان المطلوب يمكنك تغيير مدى العلامات من خلال العامود Z منع المستخدم من كتابة رقم بشرط salim.rar
  25. سليم حاصبيا
    اخي ياسر فليكن هذا الملف هدية العيد اعاده الله على الجميع بالخير والبركات
×
×
  • اضف...

Important Information

  I accept