أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





عمل كود توزيع العملاء على عدد من الموظفين

السلام عليكم ورحمه الله في البدايه احب اشكركم على المجهود الرائع جزاكم الله عنا كل خير انا لو سمحتو عايزه اعمل كود توزيع ..



09-07-2020 11:42 مساء
omhamza
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 33
الجنس : أنثى
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 67
 offline 

السلام عليكم ورحمه الله
في البدايه احب اشكركم على المجهود الرائع جزاكم الله عنا كل خير
انا لو سمحتو عايزه اعمل كود توزيع للعملاء على موظفين الشركة في الاكسل المرفق
يعني بيبقى عندنا مثلا 1000 عميل عايزه اعمل كود توزيع على عدد 5 او 6 موظفين بحيث يتم توزيع العملاء عليهم بناء على
1- الجنسية : يعني كل جنسية عملاء  تتوزع بالتساوي على عدد الموظفين
2- المبلغ المتبقي : بحيث يتم توزيع مجموع المبالغ بالتساوي على الموظفين
يعني مثلا لو في عندنا في الاكسل 100 عميل جنسية هندية مثلا بمجموع المتبقي بتاعهم 30 الف وعدد الموظفين مثلا 5 موظفين
يبقى الكود يطلع في النهاية عدد 20 عميل بإجمالي 6 الاف لكل موظف وطبعا مع تقريب المبالغ يعني مش مشكلة لو كل موظف زاد عن التاني بألف او الفين عادي
ارجو اكون وصلت الفكره ال انا عيزاها
وانا هثبت الاعمدة  B  ال هكتب فيه اسماء الموظفين وبعد الكود ما يتعمل يحط اسماء الموظفين في العمود ده
والعمود C المتبقي
والعمود D  الجنسية
وبعد ما يتم التوزيع يظل الشيت كما هو ويتم فتح ورقة عمل بإسم كل موظف بالعملة ال هيتوزعو عليه
يعني لو خمس موظفين يبقى بعد الكود عني 6 شيتات ( شيت الاجمالي فيه التوزيع على الموظفين - وشيت لكل موظف من 5 موظفين )
وشكرا جدا وجزاكم الله خير
 
 
  توزيع العملاء.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(240.447) KB


10-07-2020 01:00 صباحا
مشاهدة مشاركة منفردة [1]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif عمل كود توزيع العملاء على عدد من الموظفين
رجاء تغير اسم الظهور مع الشكر

10-07-2020 09:21 صباحا
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif عمل كود توزيع العملاء على عدد من الموظفين

كبداية يمكن تجربة هذا الملف

    1-- الضغط على اي خلية خضراء في الشيت "Data " يذهب بك فوراً الى الورقة المطلوبة

   2- الضغط على زر " Add_sheets" يضيف صفحات جديدة (باسماء الجنسيات الجديدة غير الموجودة)

         اذا كانت الجنسية لها صفجة يتغاضى الكود عنها

   3- الضغط غلى الخلية   "D1 " من أي صفحة يعيدك الى صفحة "Data"
 

 
 
  Disribution_Om_Hz_super.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(782.865) KB


10-07-2020 02:02 مساء
مشاهدة مشاركة منفردة [3]
omhamza
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 33
الجنس : أنثى
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 67
 offline 
look/images/icons/i1.gif عمل كود توزيع العملاء على عدد من الموظفين

جزاك الله خير يارب ومتشكرة جدا على تعبك والله ومش عارفة اقول لحضرتك ايه



بس مش ده ال انا عيزاه انا مش عايزه اوزع الجنسيات كل واحد في شيت معلش بعتذر لحضرتك والله



انا عايزه اوزع العملاء دول على الموظفين في الشركة يعني الشيت بيبقى فيه اكتر من 5000 عميل جنسيات مختلفه ومبالغ مختلف



عايزه اوزع ال 5000 دول على 5 او 6 موظفين على حسب الجنسية والمتبقي زي ما انا محدده في الاكسل المرفق 



يعني لو ال 5000 دول مثلا كل الف فيهم جنسية يبقى كل موظف من ال 5 موظفين ياخد 200 واحد من كل جنسية 



ولو ال 5000 عميل اجمالي مبالغهم 100 الف يبقى كل موظف ياخد 20 الف 



يعني الكود يوزع ال 5000 عميل على ال 5 موظفين بحيث كل موظف ياخد عدد متقارب من بعضه 



انا مش عايزه اقسم الجنسيات انا عايزه اقسم العمله كلهم على الموظفين



يعني الكود يوزع ويكتب اسماء الموظفين كل على حسب نصيبه من العملاء في العمود B  وبعدين يعمل شيت بإسم الموظف فيه نصيبه من العملاء



ارجو ان اكون بينت المطلوب وجزاكم الله خيرا



10-07-2020 07:00 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif عمل كود توزيع العملاء على عدد من الموظفين
لقد قمت بالقاء زظرة غلى الملف وتبين ما يلي
1-الحنسيات من بلد واحد مختلفة   احياناً "كويتي " و أحياناً :كويتى" بدون  نقطتي الياء وكذلك الأمر بالنسبة :سعودي " وسعودى" و هذا سؤثر على الكود (تم تصحيح هذه المشكلة باستعمال Replace)
2-الأعداد غير متناسقة يوجد 366 كويتي و 1 نيجيري 1 نيالي  الخ...
كيف يتم التوزيع بهذه الحالة...؟؟؟؟
3-تم احتساب هذا ياستعمال هذا الكود

Option Explicit
Sub TEST2()
Dim objSortedList As Object
Dim rg As Range
Dim coll
Dim sh As Worksheet, deLsh As Worksheet
Dim LD%, k%, i%, M%, X%, Y, ARR(), Arr_count()
Dim obj As Object
Set sh = Sheets("Data")
Set coll = New Collection
LD = sh.Cells(Rows.Count, "D").End(3).Row
On Error Resume Next
 For i = 3 To LD
 coll.Add sh.Cells(i, 4), sh.Cells(i, 4)
 Next
 On Error GoTo 0
ReDim ARR(1 To coll.Count)
ReDim Arr_count(1 To coll.Count)
 For i = 1 To coll.Count
    ARR(i) = coll(i)
    Arr_count(i) = _
    Application.CountIf(sh.Range("D3:D" & LD), coll(i))
 Next
 Sheets("final").Cells(1, 1).Resize(UBound(ARR)) = _
 Application.Transpose(ARR)
Sheets("final").Cells(1, 2).Resize(UBound(Arr_count)) = _
 Application.Transpose(Arr_count)
End Sub
 
NDk4OTQ3MQ6161Om_h_data

الملف مرفق
 
 
 
  Touzi3_om-hz.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(254.09) KB


11-07-2020 11:06 مساء
مشاهدة مشاركة منفردة [5]
omhamza
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-10-2019
رقم العضوية : 15152
المشاركات : 33
الجنس : أنثى
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 67
 offline 
look/images/icons/i1.gif عمل كود توزيع العملاء على عدد من الموظفين
جزاك الله خير ومتشكرة جدا على تعب حضرتك
ممكن التغلب على مشكلة ان في عميل واحد بس لجنسية معينه انا نوزع على كل موظف جنسية مختلفه
المهم ان كل موظف ياخد إجمالي مجموعة عملاء متساوي في المبلغ المتبقي




الكلمات الدلالية
الموظفين ، العملاء ، توزيع ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:00 مساء