MOURADIYAT قام بنشر فبراير 18, 2011 الكاتب قام بنشر فبراير 18, 2011 بسم الله الرحمن الرحيم ألسلام عليكم ورحمة الله وبركاته كيف الحال والأحوال كيف حالك أخي طارق والله إشتقنا لردودك وتوجيهاتك أحببت أن أطل عليك اليوم بجديد موضع الكرونولوجيا فبعد التعديلات الأخيرة وبداية العمل به في المكتب وتحقيقه لنتائج مبهرة جائت بعض الأخطاء فيه التي انغصت وأفسدت فرحة التنفيذ فهي ليست صعبة كما تبدو لي أنا والمتمثلة فيما يلي: - القائمة الإسميةالتي تحوي جميع أسماء المستخدمين الموجودة في الشيت 02 "كرونولوجيا الأحداث والمتغيرات" نجد أنها تحتوي على بعض الأسماء المكررة بغص النظرعلى اللقب أو الإسم العائلي وعند تنفيذالحدث نجد أنالأمر ينفذعلى الإسم المتشابه الأول وسأشرح لك - مثلا في خانة منالخانات الأولى عندنا موظف إسمة القرفي مراد وهو أناطبعا وفي خانة إخرى من القائمة لنا موظف إسمةدزيري مراد وفي الأخرى موظف إسمه حميدي مراد ولنفرض أن لك واحد منهم حدث ما في قائمة الغيابات وعند تنغيذ الحدث فإن عملية ملأ الخانات تتم على مستوى إسم الموظف الأول وهو"القرفي مراد" والعملية تتجاهل أحداث الأسماء الأخرى - نحن لم نتفطن للأمر لإننا إستعملنا أسماء إفتراضية مصحوبة بترقيم وبما أنالترقيم مختلف فإن الأمر لنيحدث . *- لقد قمت بإرفاق الملف مع شرح العملية بعد إضافة أسماء بعضالموظفين الذين لهمقاسم مشترك في تشابه الأسماء __________ _______ __________ ______ ______3.rar
طارق محمود قام بنشر فبراير 19, 2011 قام بنشر فبراير 19, 2011 السلام عليكم أخي الحبيب / مراد القرفي مشكلة بسيطة إن شاء الله يم تغيير المتغير الدال علي الإسم ليأخذ قيمة مركبة من الإسم واللقب هذه هي التعديلات بالكود Sub Shift() Dim s_Hadth(99), h_Name(99), h_Reson(99), h_From(99), h_To(99), del_H(99) As Variant .. .. '___________ READ _________________ For i = 1 To Hadth_to_shft rrow = i + 2 + Last_sh s_Hadth(i) = Range("A" & rrow).Value h_Name(i) = Range("B" & rrow).Value & Range("C" & rrow).Value h_Reson(i) = Range("E" & rrow).Value .. .. Next i ' Write .. .. .. For i = 3 To last_Row If Range("B" & i) & Range("C" & i) = h_Name(qq) Then 'Check if exist in sheet2 .. .. .. Next i .. .. Next qq .. .. For qq = 1 To Hadth_to_shft .. .. For i = 1 To (Hadth_No - Hadth_to_shft) If h_Name(qq) = Cells(i + 2, 2) & Cells(i + 3, 2) Then x = x + 1 .. .. Next i End If Next qq 'Delete the Repeated Hadath If x = 0 Then GoTo 200 'No Delete If x = 1 Then d_x = Cells(del_H(1), 2): GoTo 150 For i = 1 To x d_x = d_x & Chr(10) & del_H(i) Next i 150 For i = 1 To x Range("B" & del_H(i) + 1 & ":H10000").Copy Range("B" & del_H(i)).PasteSpecial xlPasteValues Next i .. .. 200 End Sub أو جرب المرفق إن شاء الله تجد ماتريد كرونولوجيا الأحداث والمتغيرات لموظفي الشركة4.rar
MOURADIYAT قام بنشر فبراير 19, 2011 الكاتب قام بنشر فبراير 19, 2011 أسعد الله صباحك أخي طارق والله لك كل التشكرات الخالصة النابعة من قلبي ولي سؤال واحد لك: هل تملك قناة خاصة على اليوتوب؟ - لأنك بإبداعك ستجدني من بين الأوفياء لمشاهدتها كما أفعل مع قناة الأخ كيماس - إبداعك ليس له حدود وبإمكان الجميع الإستفادة والإفادة فيما بعد وأنا شخصيا ستكون كل شلتي من بين أتباعك في دروسك - وفيما يخص البرنامج لي سؤال أخير وهو مجرد سؤال سيدرج في خانة التخطيط لبرنامج مستقبلي بدأت تلوح فكرته في رأسي: * بنفس طريقة عمل الكرونولوجيا هذه هل يمكننا تحديد نوع واحد من الغيابات للحفظ فقط فمثلا: هل يمكن وضع كود يقوم بإدراج الغيابات المتمثلة في المهمة فقط وينجاهل الأحداث الأخرى كالإجازات والعطل وبنفس آلية عمل البرنامج حاليا؟ وشكرا
طارق محمود قام بنشر فبراير 19, 2011 قام بنشر فبراير 19, 2011 السلام عليكم أخي الحبيب جزاك الله خيرا علي كاماتك الطيبة هل تملك قناة خاصة على اليوتوب؟ - لأنك بإبداعك ستجدني من بين الأوفياء لمشاهدتها كما أفعل مع قناة الأخ كيماس للأسف ليس لي حتي الآن وإن كنت أفكر في هذا لكن ليس لدي الوقت الكافي التخطيط لبرنامج مستقبلي بدأت تلوح فكرته في رأسي: * بنفس طريقة عمل الكرونولوجيا هذه هل يمكننا تحديد نوع واحد من الغيابات للحفظ فقط فمثلا: هل يمكن وضع كود يقوم بإدراج الغيابات المتمثلة في المهمة فقط وينجاهل الأحداث الأخرى كالإجازات والعطل وبنفس آلية عمل البرنامج حاليا؟ أنظر المرفق وبه شرح بسيط وبه أيضا الكود التالي Sub Shift2() ' حدث محدد Dim s_Hadth(99), h_Name(99), h_Reson(99), h_From(99), h_To(99), del_H(99) As Variant Sheets("الحالة اليومية للغيابات").Select Hadth_No = Cells(10000, 2).End(xlUp).Row - 2 If Hadth_No = Last_sh Then MsgBox (" Êã ÊÑÍíá ÌãíÚ ÇáÃÍÏÇË ãä ÞÈá " & Chr(10) & "áã íÊã ÊÑÍíá Ãí ÍÏË ÌÏíÏ"): Exit Sub '___________ READ _________________ One_Reason = [m16] For I = 1 To Hadth_No rrow = I + 2 + Last_sh s_Hadth(I) = Range("A" & rrow).Value h_Name(I) = Range("B" & rrow).Value & Range("C" & rrow).Value h_Reson(I) = Range("E" & rrow).Value h_From(I) = Range("F" & rrow).Value h_To(I) = Range("G" & rrow).Value Next I ' Write Sheets("كرونولوجيا حدث محدد").Select Range("E3:Y1503").ClearContents last_Row = [B10000].End(xlUp).Row For qq = 1 To Hadth_No For I = 3 To last_Row If Range("B" & I) & Range("C" & I) = h_Name(qq) Then 'Check if exist in sheet2 If h_Reson(qq) = One_Reason Then Range("B" & I).End(xlToRight).Offset(0, 1) = h_Reson(qq) Range("B" & I).End(xlToRight).Offset(0, 1) = h_From(qq) Range("B" & I).End(xlToRight).Offset(0, 1) = h_To(qq) GoTo 100 End If End If 100 Next I Next qq End Sub كرونولوجيا الأحداث والمتغيرات لموظفي الشركة5.rar
MOURADIYAT قام بنشر فبراير 19, 2011 الكاتب قام بنشر فبراير 19, 2011 بسم الله الرحمن الرحيم شكرا لك أخي طارق فوالله كلمة الشكر قليلة فيك وفي إبداعك أدامك الله لنا فخرا دمت في رعاية الله وحفظه
MOURADIYAT قام بنشر فبراير 20, 2011 الكاتب قام بنشر فبراير 20, 2011 (معدل) بسم الله الرحمن الرحيم أسعد الله مسائكم أاحبتي الكرام أسعد الله مسائك قدوتي ومفخرتي "الدكتور طارق" أحببت أن أطل عليك اليوم بواحدة من تراهاتي التي صرت أستحي من عرضها عليك لأنني والله أحسست وكأنني سأصير طالب علم ثقيل الضل عليك ولكن ما بيدي من حيلة سوى المضي قدما لأنه لاحياء في طلب العلم ومن بين أنعم الله على عبده مجالسة العلماء وأهل الذكر وأنتم كما تعلمون أصحاب فضل ومنزلة رفيعة من الله عليكم بها بفضل ما جادت به عقولكم من الفطنة والذكاء والتميز فلله الشكر والحمد والمنة أخي طارق بودي أن أشكرك على موضوعك المعدل فيما يخص الحدث الجديد ولكن لم أستطع أن أعمل به ليس لعيب فيه وإنما لطريقة برمجته - فأنا عندما طلبت منك أن تساعدني فيه فقد كنت أقصد أن تكون له نفس آلية عمل البرنامج الأول أي تسجيل حدث معين وبأحداث متسلسلة - فمثلا إن كانت مهمة فالأحرى بي أن أتتبع أحداث الفرد من مهمات فقط وبتواريخ متسلسلة - فخلاصة القول كنت أريده أن يعمل بنفس طريقة البرنامج الأول بإستثناء واحد وهو تدوين حدث معين فقط ولنفرض أنه "المهمة' اتجنب القوائم المنسدلة ودالة البحث تلك.بمعنى أنك ستزيل خاصية مسح البيانات المسجلة سابقا وتجعلها تتابع في الأحداث إن أخذت مهمة في يومي هذا فستدون وكذلك في الأسبوع القادم وهذا دواليك. أضن أنك فهمت عليا لأنني أكثرت من الكتابة وإستعمال الصيغ والمثل يقول: خير الكلام ما قل ودل ولكن أعذرني لأن جينة الثرثرة عملت عملتها فيا. شكرا لك وطابت ليلتك تم تعديل فبراير 20, 2011 بواسطه MOURADIYAT
MOURADIYAT قام بنشر فبراير 22, 2011 الكاتب قام بنشر فبراير 22, 2011 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته: كيف الحال والأحوال أحبتي الكرام كيف الحال أخي وقدوتي وأستاذي طارق والله إشتقنا لردودك وتوجيهاتك وتنويراتك قبل البدء بودي أن أخبرك أنني رزقت بمولود جديد بهي الطلعة سميته على بركة الله: حسام الدين تيمنا بطالب كان يدرس معي حفظ القرآن عندما كنت صغيرا وهو الآن إمام يظرب به المثل من الورع والتقوى وحسن السيرة والعلم كذلك ووالله لو لم يكن لأختي إبن إسمه طارق لسميته على إسمك لأنه إسم جميل وأنا معجب به منذ الطفولة نتمنى أن يعيش في عز ويعيش على الإسلام وفطرته آمين كما أحببت أن أذكرك بطلبي الأخير ذاك عن موضوع الحدث الجديد فأنا لازلت أنتظر ردك لأنني واثق من أن الأمر ليس بالصعب عليك والسلام عليكم
طارق محمود قام بنشر فبراير 22, 2011 قام بنشر فبراير 22, 2011 السلام عليكم ألف ألف مبروك لقد أشرقت الأرض وازدادت وتلألأت أنواراً من حولنا فتسائلت ما سر هذا الجمال فإذ بخبر قدوم مولودكِ / حسام الدين دعواتي بأن يكون من مواليد السعادة وأن يرزقك الله ووالده بره وصلاحة بالنسبة لسؤالك لم أنتبه إليه فدخولي للإنترنت قليل نسبيا سوف أراه الآن إن شاء الله
طارق محمود قام بنشر فبراير 22, 2011 قام بنشر فبراير 22, 2011 السلام عليكم إذا كنت تحتفظ بجميع الأحداث قبل مسح المتكرر بنفس صيغة الورقة الأولي فسوف يعمل الكود دون الحاجة إلي تعديله انظر الصورة في اليسار أضفت حدث تربص آخر لنفس الشخص وفي اليمين يتم نقله ببساطة للورقة الثانية كما بالكود الأول
طارق محمود قام بنشر فبراير 22, 2011 قام بنشر فبراير 22, 2011 (معدل) السلام عليكم أخي مراد بعد أن أرسلت ردي السابق فكرت ان البيانات كلها يفترض أنها محفوظة بالفعل في الورقة الثانية "كرونولوجيا الأحداث والمتغيرات" عدلت الكود الخاص بحدث معين ليقرأ من الورقة الثانية وليس من الورقة الأولي تفضل المرفق كرونولوجيا الأحداث والمتغيرات لموظفي الشركة6.rar تم تعديل فبراير 23, 2011 بواسطه TareQ M
MOURADIYAT قام بنشر فبراير 23, 2011 الكاتب قام بنشر فبراير 23, 2011 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته شكرا لك أخي طارق على كلماتك الجميلة والله إنتابني شعور جميل ومغاير بعد دخول هذا المولود الجديد للدنيا وملأ فراغ البيت خصوصا وأنني من بين الرجال الذين يشتغلون بعيدا عن أهلهم فلا يمكنني زيارتهم إلا لمدة 04أيام أسبوعيا من الخميس الى الأحد ولكن الحمد لله على كل حال فوالله هو قرة عيني في هذه الحياة أما بخصوص الموضوع فوالله كما قلت سابقا كلمة الشكر قليلة فيك والله ولكن دعواتي لك في ظهر الغيب أضنها ستكون كفيلة شكرا لك أخي طارق ولاتحرمنا من إبداعاتك اللا متناهية
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.