طارق محمود

السلام عليكم أخي العزيز هذا من أكواد العلامة أستاذنا جميعا / خبور خير عبدالله باقشير ، حفظه الله لابد انك فقدت شيئا في التعريفات اإبتدائية أثناء نقل الكود وحيث أنني لست متمكن من هذا الجانب ، فسأحلها لك بإستخدام إحدي خلايا الورقة (إخترت الخلية AL1) المهم إستبدل الكود بالتالي 'Dim Mytest As Boolean M = ActiveCell.Column N = 2 'اول عمود للفرز NN = 26 'آخر عمود للفرز If M < N Or M > NN Then GoTo 1 With ActiveSheet Set KH_1 = .Range("B6:Z1000") If [AL1] = 0 Then KH_1.Sort Key1:=Cells(5, M), Order1:=xlAscending [AL1] = 1 GoTo 1 Else KH_1.Sort Key1:=Cells(5, M), Order1:=xlDescending [AL1] = 0 GoTo 1 End If End With On Error GoTo 0 1 End Sub

السلام عليكم أخي الكريم الكود يعمل بلا مشاكل قف بالماوس علي أي خلية بالعمود C مثلا والذي به نوع الطالب (ولد / بنت) ثم إضغط زر الكود فيتم ترتيب الجدول بناءا علي النوع (ولد / بنت) وإذا وقفت بالماوس علي أي خلية بالعمود E مثلا والذي به اليوم ثم إضغط زر الكود فيتم ترتيب الجدول بناءا علي اليوم وهكذا لجميع الأعمدة جرب وأخبرني

السلام علييكم أخي الكريم محمد سعد تفضل المرفق ولاتتردد في أي سؤال sample2.rar

السلام عليكم أخي الكريم ستجد في الموديول 1 الكود التالي Sub nnn() For sh = 1 To Sheets.Count Sheets(sh).Visible = True Next End Sub وقد وضعت له زر أحمر كبير لتشغيل الكود في صفحة الصلاحيات وقمت بعد إذنك بحذف بعض السطور المكررة من الجداول ذات المعادلات الثقيلة في ورقتين فقط لتخفيف حجم الملف تفضل المرفق قاعدة لاظهار الشيتات.rar

السلام عليكم أخي العزيز ستجد زر الماكرو في شيت # 1 والذي عنوانه "إضافة هذا البيان لصفحة تقرير" بالضغط عليه يفعل كود يقوم بتخزين بيانات الموظف في متغير صفي dd-1 إلي dd-19 ثم يضعها بالترتيب في Sheets-4 أي ورقة "تقرير" وذلك عن طريق يسجل آخر صف مستخدم في الورقة rw ثم يقارن بين بيانات الموظف المسجلة في dd-1 إلي dd-19 ، وبين البيانات الموجودة في ورقة "تقرير" حتي الصف rw إذا وجد البيان مسجل من قبل يخبرك هل تريد تعديله وإلا يضع تلك البيانات في الصف الذي يلي آخر صف في حالة وجد البيان مسجل من قبل وسألك وأجبت بنعم يسجل رقم السطر الموجود به البيان القديم فيضع البيانات مكان الموجودة في ذلك السطر يمكن عمل كود جديد بزر جديد لنسخ هذه الصفحة ( شيت #1) بعدد الموظفين مع تعديل طفيف ليثبت هذه الصفحات مع هؤلاء الموظفين وإن كان حجم الملف سيزيد خاصة إن كان عدد الموظفين كبير

السلام عليكم أخي أحمد غانم تفضل المرفق MASTER0_8.rar

السلام عليكم طورت لك قليلا في الجدول الآن إذا وضعت قيمة للدفعة في صف الدفعات ، معناه أنها تم دفعها وإلا تعطي إشارة أنها مستحقة وتم تعميم التحقق لكل المنتجات وزودنا المنتجات إلي 8 وعمل مايلزم من تنسيق شرطي للوضع الجديد تفضل المرفق جدولة الدفعات2.rar

السلام عليكم جزاك الله خيرا ورزقك حتي ترضي وجعلني عند حسن ظنكم

السلام عليكم أستاذنا الجليل دائما جميل - جميل -جميل ماشاء الله تبارك الله زادك الله من فضله وعلمه ورزقك وبارك لك في وقتك وجهدك وأهلك ومن تحب جميعا تلميذكم طارق محمود

السلام عليكم أخي الحبيب / أبوأنس ظلل المساحة السوداء في الصفحة LABELS ثم إضغط Ctrl-H لعمل استبدال ستظهر لك قائمة الاستبدال تضع بالسطر الأول منها orders!$AB$2:$AB$10000 وتضع بالسطر الثاني منها MONTH(orders!$H$2:$H$10000) وبهذا نستبدل شهر العمودH بالعمود AB في المعادلة ملحوظة ستجد فارق في خليتين عن البيانات التي وضعتها أنت وهما الخليتين F15,G15 في المساحة السوداء وذلك لخطأ مقابل في الورقة الأولي حيث الشهر بالعمود AB خطأ بهما أي الخلية AB6 بها الشهر 4 وليس 3

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

السلام عليكم أخي العزيز إنسخ من أي من المتجات (بكامل صفوفه الثلاثة) كما تحب حتي مايزيد عن الألف

السلام عليكم أخي العزيز بدلا من حفظ الملف ، إختر حفظ بإسم أي save as بدلا من save ثم من Options تستطيع إختيار الحماية وتتابع تعليمات حفظ الملف

السلام عليكم تفضل اخي الكريم المرفق إن شاء الله سيناسب طلبك جدولة الدفعات.rar

السلام عليكم أخي العزيز / فضل عفوا لم أر سؤالك من قبل الرقم 2 هنا مقصود به أن الناتج لن يصل إليه أبدا وبالتالي من خصائص الدالة LOOKUP أن ترجع آخر قيمة (ليست خطأ) في حالة لم تجد ماتبحث عنه فناتج قسمة 1÷ أي رقم صحيح سيكون = أو اقل من 1 ولن يصل ابدا للـ 2 المعادلة =LOOKUP(2,1/($B$1:$B$10000=I2),$G$1:$G$55011) مقسومة 3 أقسام بينها فاصلة القسم الأول الرقم 2 (المفروض أن تبحث عنه الدالة) القسم الثاني (وهو المهم) ناتج قسمة 1÷ تساؤل (إن جاز التعبير) ، يعني أولا سيسأل الإكسل هل خلايا المجال $B$1:$B$10000 = الخلية I2 فسوف يحل علي 1000 نتيجة كلها إما 1 (= I2) او 0 (<> I2) ويكون الناتج من القسمة إما 1÷1 (صحيح ويساوي 1، لكنه لن يساوي 2 الذي تبحث عنه الدالة) او 1÷0 (خطا ولن تعتد به الدالة) وللتوضيح أكثر في الحالة كما بالمثال أن تكون الخلية I2 بها كود 111111 الذي لونت صفوفه بالأصفر فيكون ناتج هذا القسم الثاني من المعادلة كالتالي 1/($B$1:$B$10000=I2) أي 1/($B$1:$B$10000=I2) أي 1/({$B$1:$B$10000}=I2) أي 1/({ كود الصنف , 111111 , 333333 , 222222 , 333333 , 222222 , 333333 , 111111 , 222222 , 222222 , 444444 , 444444 , 555555 , 444444 , 222222 , 111111 , 444444 , 111111 , 444444 , 555555 , 222222 , 555555 , 222222 , 333333 , 222222 , 444444 , 444444 , 444444 , 444444 , 111111 , 555555 , 222222 , 222222 , 444444 , 111111 , 555555 , 333333 , 333333 , 333333 , 111111 , 555555 , 222222 , 111111 , 222222 , 333333 , 444444 , 222222 , 333333 , 333333 , 222222 , 444444 , 111111 , 555555 , 555555 , 111111 , 555555 , 222222 , 222222 , 222222 , 444444 , 555555 , 222222 , 222222 , 333333 , 444444 , 111111 , 444444 , .....}=I2) أي 1/({ كود الصنف =111111 , 111111 =111111 , 333333 =111111 , 222222 =111111 , 333333 =111111 , 222222 =111111 , 333333 =111111 , 111111 =111111 , 222222 =111111 , 222222 =111111 , 444444 =111111 , 444444 =111111 , 555555 =111111 , 444444 =111111 , 222222 =111111 , 111111 =111111 , 444444 =111111 , 111111 =111111 , 444444 =111111 , 555555 =111111 , 222222 =111111 , 555555 =111111 , 222222 =111111 , 333333 =111111 , 222222 =111111 , 444444 =111111 , 444444 =111111 , 444444 =111111 , 444444 =111111 , 111111 =111111 , 555555 =111111 , 222222 =111111 , 222222 =111111 , 444444 =111111 , 111111 =111111 , 555555 =111111 , 333333 =111111 , 333333 =111111 , 333333 =111111 , 111111 =111111 , 555555 =111111 , 222222 =111111 , 111111 =111111 , 222222 =111111 , 333333 =111111 , 444444 =111111 , 222222 =111111 , 333333 =111111 , 333333 =111111 , 222222 =111111 , 444444 =111111 , 111111 =111111 , 555555 =111111 , 555555 =111111 , 111111 =111111 , 555555 =111111 , 222222 =111111 , 222222 =111111 , 222222 =111111 , 444444 =111111 , 555555 =111111 , 222222 =111111 , 222222 =111111 , 333333 =111111 , 444444 =111111 , 111111 =111111 , 444444 =111111 ,, .....}) أي 1/({ False , True , False , False , False , False , False , True , False , False , False , False , False , False , False , True , False , True , False , False , False , False , False , False , False , False , False , False , False , True , False , False , False , False , True , False , False , False , False , True , False , False , True , False , False , False , False , False , False , False , False , True , False , False , True , False , False , False , False , False , False , False , False , False , False , True , False ,,, .....}) وحيث أن True=1 ، False=0 إذن فهذا سيعطي 1/({ 0 , 1 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 0 ,,, .....}) وناتج قسمة الـ 1 عليها سيعطي (÷0 خطأ) { Error , 1 , Error , Error , Error , Error , Error , 1 , Error , Error , Error , Error , Error , Error , Error , 1 , Error , 1 , Error , Error , Error , Error , Error , Error , Error , Error , Error , Error , Error , 1 , Error , Error , Error , Error , 1 , Error , Error , Error , Error , 1 , Error , Error , 1 , Error , Error , Error , Error , Error , Error , Error , Error , 1 , Error , Error , 1 , Error , Error , Error , Error , Error , Error , Error , Error , Error , Error , 1 , Error ,,, .....}) فسيحفظ مكان آخر قيمة أعطت رقم غير خطأ القسم الثالث يأتي بالقيمة المقابلة لهذه القيمة التي احتفظ بها ولكن من المجال $G$1:$G$55011)

سنتركه يومين مثلا حتي الأربعاء لو لايوجد تعديلات ممن يتابع الموضوع أو أي من الأعضاء سأكمله علي أساس مافرضته

السلام عليكم أخي سيد ، الحمد لله ولاتتردد ن كان عندك أي استفسارات أخواني أحمد البحيري / نارت / أحمد فضيله ، جزاكم الله خيرا علي مروركم وتشجيعكم الكريم وجعلني الله عند حسن ظنكم

السلام عليكم أخي الكريم معذرة ، انشغلت ولم أر ردك الا الآن مؤشر الــ KPI أو الــ Key Performance Indicator ومن أسمه هو مؤشر لقياس الأداء ويوجد منه مقاييس ثابتة Stander يصل عددها بالمئات وقد يكون بالآلاف وأنا شخصيا لاأحب التثبيت في هذا ، فكل شركة وكل مؤسسة ولها مقاييس خاصة بها مثال قد يعطي مدير ما درجة عالية جدا علي الإلتزام بمواعيد الحضور والإنصراف بينما يعطي الآخر درجة أقل في هذا الشأن المهم أنت الأفضل تشكل ماتراه مناسبا من مقاييس لأداء الموظفين حسب طبيعة العمل وكشرح للشيت عموما يضع المدير العوامل التي تهمه كما في المثال علي اساس الإنتاجية / و الموارد المتاحة / الإلتزام بالقواعد وهو نفسه الذي يضع تقديراته لكل من هذه الأسس ووزنها النسبي : كما في المثال الإنتاجية 60 و الموارد المتاحة 30 الإلتزام بالقواعد 25 ثم يحسب لكل موظف نصيبه من هذه المقاييس وبالضرب في كل وزن لها ينتج مقياس الأداء لهذا الموظف وفيما يلي شرح سريع لأول مقياس في المثال (تقييم الاداء على اساس الإنتاجية) أول عمود (إسم الموظف) ثاني عمود ( مستهدف ) أنت الذي تحدده وكما في المثال يمكن وضع ميتهدف أعلي لموظف غير الباقيين (بسبب مثلا أقدميته في العمل وخبرته أو درجته الوظيفية أعلي أو راتبه أعلي ) ثالث عمود ( فعلي ) مجرد مليء البيانات الفعلية التي تم تحقيقها رابع عمود ( الفارق ) فقط تطرح الفعلي من المستهدف خامس عمود ( الفارق % ) النسبة المئوية للفارق علي المستهدف سادس عمود ( الترتيب ) به ترتيب للفارق (أقل فارق هو الأول ولونه أخضر) ونستخدم في هذا العمودين 8،9 سابع عمود ( التقييم من 60 نقطة ) به حساب مايستحق الموظف في هذا البند (كحد أقصي في المثال 60 نقطة) ثامن عمود (بدون عنوان) به نفس أرقام العمود الخامس ( الفارق %) ولكن مرتبة تصاعديا تاسع عمود (بدون عنوان) فقط به ارقام مسلسلة من 1 إلي 8 (عدد الموظفين) ببساطة يمكنك عمل اكثر من شيت (شيت واحد لكل صنف: صرف عينات شاى بالنكهه1 ، صرف عينات شاى بالنكهه2 ،صرف عينات شاى بالنكهه3) إتفقنا قبل كده أنه لاداعي لأي اسف ولايوجد أي إزعاج أهلا بك ومرحبا في أي وقت

السلام عليكم أخي أحمد عذرا للتأخير تفضل المرفق أنتظر ردك MASTER0_7.rar

السلام عليكم تفضل المرفق الورقة الثانية محمية لمنع التلاعب بالمعادلات والتنسيق (باسوورد 1) كود تعديل بيانات.rar

السلام عليكم أخي الحبيب / أبو حنين ألف ألف مبروك الترقية علينا وعليك مشاركاتك فعلا متميزة وفيها إبداع ربنا يبارك في وقتك ونري منك دائما مشاركات أكثر تميزا وإبداعا

تفضل المرفق تحليل عملاء2.rar

السلام عليكم أخي العزيز أولا غير المعادلة =IF($A8<$Z$3,$A8,"") التي في الخلية AA8 إلي =IF($A8<$Z$3,$A8,0) وانسخها للأسفل ويمكنك إخفاء الأصفار من الظهور علي الشاشة عن طريق Tools Options View Window Options ثم إلغي التأشير علي علامة Zero Value ثانيا ضع المعادلة التالية =SUMPRODUCT(MAX((--($B$8:$B$999=BH8)*($AA$8:$AA$999)))) في الخلية BO8 وانسخها للأسفل

أخواي الحبيبان : العيدروس / رجب جاويش الف ...الف ...الف ...مبروك تستحقونها عن جداره وفقكم الله لما يحب ويرضي أخوكم / طارق محمود

السلام عليكم أخي العزيز بعد إذن أستاذنا الفاضل / بن علية مرفق أيضا حلين آخرين غير حلين أخي الحبيب الأول ضع المعادلة التالية =SUMPRODUCT(MAX((--($D$4:$D$46=H4)*($E$4:$E$46)))) في الخلية I4 وانسخها للأسفل أو تفضل الحلين في المرفق اكبر قيمة لرصيد العميل2.rar