نهاية فوضوي

لرفع 

السلام عليكم 

لدي ملف اكسبل يحتوي على إجازات الموظفين وفيه يبداء الاسبوع من يوم الاثنين ،  أحتاج تعديل بداية الاسبوع من الثنين الى يوم الاحد بدون اي تغيير

بحيث ان ايام نهاية الاسبوع تكون ( الجمعة والسبت ) وان ايام الوكيند لا تنخصم من رصيد الموظف ، الله يجزاكم عني خير الجزاء . شكرتً . 

PLAN1.xlsx

السلام عليكم ، ورمضان مبارك للجميع 

لدي ملف أكسل لموظفي مبيعات كل موظف لديه عدد من المنتجات أحاول ان أجد معادلة تقول بحساب كل منتج بالقيمة الفعلية له مثلا 

موظف لدية صنف1 وصنف 2 وصنف 3 وكل صنف مكرر اكثر من مره بنفس القيمة وبمجرد اختيار اسم الموظف يتم حساب المنتجات بالاسم وفي خلية آخرى العدد .

أتمنى مساعدتكم وشكراً . بحيث ان الجداول لكل موظف تظهر بجانب بعض بدون الدخول على القائمة واختيار الموظف . شكراً

ex.xlsx

أحمد هذا استفسار والا إجابة ؟ 

السلام عليكم 

الاخوة الكرام ،، ارغب بمساعدتكم بحيث عند وضع المؤشر على اي خلية مختارة يختفي النص ويمكن للمستخدم كتابة ماهو مشار الية ، مثلا لدي مربع ارغب بدخال قيمة معينة داخلة 

بحيث يظهر للمستخدم ( أرجو ادخال اليوزر هنا ) ومجرد وضع الموشر يتخفي هذا النص ويستطيع المستخدم كتابة اليوزر الخاص به بدون الحاجة لمسح النص القديم . 

New Excel.xlsx

الاخوة الزملاء 

لدي جدول للإجازات ارغب بإضافة تقويم بسيط بحيث عند اختيار الموظف تاريخ بداية الاجازة ونهايتها يقوم الأكسل بتعبيتها تلقائياً في الجدول امام التاريخ واليوم 

test.xlsx

مشاء الله عمل جبار  تستاهل الشكر والتقدير اخي العزيز 

32 دقائق مضت, shreif mohamed said:

في هذه الحالة انصحك باستخدام الماكرو

 

كل الشكر عزيزي 

16 دقائق مضت, سليم حاصبيا said:

في هذه الحالة انظر الى الصفحة SALIM من هذا الملف

 

 

D salim1.xlsx

شكراُ لك من الاعماق أستاذي سليم ، ولكن ماذا لو كان الجدول على مدار العام اي 51 اسبوع ؟ 

8 دقائق مضت, سليم حاصبيا said:

جرب المرفق

 

D salim.xlsx

أستاذ سليم أشكرك على ما قمت به لكن الاسماء متغيره في الجدول أي ان الترتيب يختلف من جدول الى آخر . 

مثلاً أحمد في ترتيب الأسبوع الاول في الجدول رقم واحد 

اما في ترتيب الاسبوع الثاني من الجدول يصبح 2 

شكراً 

3 دقائق مضت, shreif mohamed said:

جرب هذا الكود في موديول منفصل وقم باستدعائه

Option Explicit
Sub do_it()
    Dim a, b, c, d, e As Long
    Dim rng1, rng2, rng3 As Range
    Dim row, cell As Range
    Set rng2 = Range("i12").CurrentRegion
    rng2.Offset(1, 1).ClearContents
    a = Range("a1").CurrentRegion.Columns.Count / 8
    Set rng1 = Range("a3", Range("A" & Rows.Count).End(xlUp)).Resize(, 8)
    For b = 1 To a
        Select Case b
        Case Is > 1
            Set rng1 = rng1.Offset(, 8)
            rng1.Select
            For Each row In rng1.Rows
                If Application.WorksheetFunction.CountIf(row, "EXM") > 0 Then
                    rng2.Find(row.Cells(1)).Offset(, 1).Select
                    Selection = Selection + Application.WorksheetFunction.CountIf(row, "EXM")
                End If
                If Application.WorksheetFunction.CountIf(row, "VIC") > 0 Then
                    rng2.Find(row.Cells(1)).Offset(, 2).Select
                    Selection = Selection + Application.WorksheetFunction.CountIf(row, "VIC")
                End If
                If Application.WorksheetFunction.CountIf(row, "SICK") > 0 Then
                    rng2.Find(row.Cells(1)).Offset(, 3).Select
                    Selection = Selection + Application.WorksheetFunction.CountIf(row, "SICK")
                End If
            Next
        Case Is = 1
            For Each row In rng1.Rows
                If Application.WorksheetFunction.CountIf(row, "EXM") > 0 Then
                    rng2.Find(row.Cells(1)).Offset(, 1).Select
                    Selection = Selection + Application.WorksheetFunction.CountIf(row, "EXM")
                End If
                If Application.WorksheetFunction.CountIf(row, "VIC") > 0 Then
                    rng2.Find(row.Cells(1)).Offset(, 2).Select
                    Selection = Selection + Application.WorksheetFunction.CountIf(row, "VIC")
                End If
                If Application.WorksheetFunction.CountIf(row, "SICK") > 0 Then
                    rng2.Find(row.Cells(1)).Offset(, 3).Select
                    Selection = Selection + Application.WorksheetFunction.CountIf(row, "SICK")
                End If
            Next
        End Select
    Next
End Sub

 

أستاذي شريف 

ممكن شرح طريق عمل هذا الكود على الواقع لاني بصراحه لا أعرف . شكراً للجميع 

الاخوة الكرام 

لدي جدول للموظفين وارغب في جمع عدد الاجازات مثلا في جدول ثابت 

مثلا ُ الموظف خالد في الاسبوع الاول لدية إجازة لمدة يومين وفي الاسبوع الاخير إجازة لمدة 5 أيام ، المطوب هو تسجيل عدد إيام الاجازة تلقائياً في جدول مستقل 

اي اثناء تعبئة الجدول بأيام الاجازات يتم حسابها في الجدول المستقل تلقائياً . وهكذا . 

D.rar

الف شكر سيدي الفاضل تم ذلك 

استاذ محمد 

ممكن تساعدني بوضع الكود في الملف المرفق ؟

جزاك الله عني خير الجزاء 

السلام عليكم 

عندي ملف آكسل فيه عدة الخلايا ، أحتاج كود او معادلة تمنع الكتابة مثلاً في الخلية A11 الا بعد الكاتبة في الخلية A1  . يكون شرط اساسي عند الضغط على الخليه تظهر رسالة أرجو تعبة الاسم اولاً ( مثلاُ ) 

وشكراً مقدما للجميع . 

الله يجزاك خير اخي العزيز

بالضبط هذا المطلوب سلمت وسلمت اناملك

تم الان اخي

TEST.rar

تيحية طيبة للجميع

لدي مجموعة من موظفي المبيعات ارغب بتسجيل البينات من الجدول ( 1 ) الى جدول ( 2 ) في كل مره بالترتيب 

مثلاُ لو قمت في تسجيل رقم الموظف في خانة ( id ) سيظهر اسمه تلقائي في الجدول ( 2 ) بناءً على معادلة مسبقة قمت بوضعها

المطلوب الان بعد تسجيل الموظف الاول وظهور كافة البيانات في الجدول ( 2 ) ارغب في تسجيل مبيعات الموظف الثاني في نفس الجدول ولكن تحت مبيعات الموظف الاول

بدون اختفاء المعلومات السابقة