Jump to content
أوفيسنا

طارق محمود

Officena Team
  • Content Count

    4,501
  • Joined

  • Last visited

  • Days Won

    40

طارق محمود last won the day on November 29 2020

طارق محمود had the most liked content!

Community Reputation

803 Excellent

About طارق محمود

  • Rank
    فريق الموقع
  • Birthday 11/19/1963

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    Eng
  • Location
    مصر

Contact Methods

  • MSN
    tarekmahmoud_2@hotmail.com
  • Yahoo
    ziko_001

Recent Profile Visitors

8,652 profile views
  1. ثانيا الكود كما تلاحظ فهو كود خاص وفي حدث التغيير أي أنه سيتم تفعيله مباشرة إذا تحقق الشرط Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(ActiveCell, [A1:A9999]) Is Nothing Then Exit Sub r = Target.Row Range(Cells(r - 1, 4), Cells(r + 1, 4)).UnMerge If Cells(r, 1).Value = Cells(r - 1, 1).Value Then Range(Cells(r, 4), Cells(r - 1, 4)).Merge If Cells(r, 1).Value = Cells(r + 1, 1).Value Then Range(Cells(r, 4), Cells(r + 1, 4)).Merge End Sub في الصورة المرفقة شرح سريع له
  2. وعليكم السلام ورحمة الله 1-التنسيق الشرطي أولا تعلم المساحة المعنية كما بالصورة A2:C4992 ثانيا تذهب لقائمة التنسيق الشرطي كما بالصورة ثم تضع التنسيق أن يتم تلوين الخلايا الثلاثة A,B,C في الصف الذي ينطبق عليه الشرط ================ الشرط هو: أن تتساوي خلية A مع مايعلوها مباشرة أو مادونها مباشرة عن طريق إختيار قاعدة تنسيق مشروط جديدة كما بالصورة والقاعدة كما يلي =OR($A2=$A3,$A2=$A1)
  3. السلام عليكم أخي الكريم طلبك الأول تم بالتنسيق الشرطي Conditional Format والطلب الثاني تم بالكود الذي بالملف تفضل البحث عن التكرار في Irsalieh.xlsm
  4. السلام عليكم أخي الكريم تفضل المرفق به المطلوبترقيم2.xlsx
  5. السلام عليكم أخي الكريم تفضل المرفق به الدالة المطلوبة توزيع الافواج على القاعات2.xlsx
  6. السلام عليكم أخي الكريم الكود في حدث الوزرقة أي أنه يتم تفعيله أوتوماتيكيا إذا حدث التغيير المناسب في هذه الورقة ويعتمد الكود علي خطوتين 1- إذا تم إختيار خلية بالعمود E ، يتم تسجيل محتوي هذه الخلية ، وهذا هو الدور القديم للموظف قبل التغيير 2- إذا تم تغيير خلية بالعمود E ، يتم نقل الدور القديم (الذي تم تسجيله) وبيانات الموظف لمساحة التغييرات تفضل المرفق تتبع التغيرات.xlsm
  7. السلام عليكم أختنا الكريمة مرفق الملف به ماطلبتي إن شاء الله ملاحظة في مثل هذه الحال ، يمكنك حذف كثير من البيانات لتقليل حجم الملف علي الموقع يعني بدلا من بيانات أكثر من 10,000 طالب يكفي 100 أو 200 وفقط نأخذ المعادلة ونطبقها أنا عملت كده وبدلا من إرسال 27 أو 28 ميجا ، فقط 0.028 ميجا تجريب2.xlsx
  8. السلام عليكم طريقة تحديد جميع الخلايا عدا خليتين؟؟ الخطوة الأولي :تحديد جميع الخلاياCTRL+A كما أشرت الخطوة الثانية : تضغط CTRL فقط وتشير بالماوس علي ما تريد من خلايا ليتم إستثناؤها من الإختيار
  9. السلام عليكم تفضل الحل بالمعادلات 2مثال.xlsx
  10. السلام عليكم علي فرض أن البيانات موجودة بالعمود (A) جرب هذا الكود Sub Macro1() [A9999].End(xlUp).Offset(1, 0).Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Rows.Delete Shift:=xlUp [B1].Select ActiveWorkbook.Save End Sub
  11. السلام عليكم تفضل أخي الملف المرفق ترحيل على رقم الفوج.xlsm
  12. السلام عليكم بعد إذن أخونا مهند أهلا ومرحبا أخي الكريم محمد هذه أول مشاركة لك لذلك سأرد عليك ولكن برجاء الإلتزام بقواعد المنتدي لنشر مسألتك لكي توفر الوقت علي نفسك وعلي من يريد المساعدة أخي الفاضل لو فرضنا أن أحد هذه الأرقام في الخلية A2 مثلا فلتضع المعادلة التالية في اي خلية ولتكن B2 =DATE(RIGHT(A2,4),MID(A2,4,2),LEFT(A2,2)) ثم تنسق تلك الخلية الجديدة (B2) بتنسيق التاريخ الذي تريده مرفق ملف به ماطلبت mohamed elzan.xlsx
  13. في الصورة التالية تفصيل لكل عناصر المعادلة
  14. السلام عليكم أخي الكريم أنا مشغول ولا أدخل المنتدي إلا قليلا عموما ، لكي نفهم سويا كيف تعمل المعادلة IFERROR سنشير لعملية البحث بالمتغير X ، هذا يعني أن هذه المعادلة تقول أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وتكون عملية البحث الثلاثي تعني أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وإذا أعطي خطأ إبحث الثالث X3 وتكون عملية البحث المطلوب الخماسي تعني أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وإذا أعطي خطأ إبحث الثالث X3 وإذا أعطي خطأ إبحث الرابع X4 وإذا أعطي خطأ إبحث الخامس
  15. السلام عليكم أخي الكريم ممكن تراجع هذا الموضوع قد يكون هو ماتريد
×
×
  • Create New...