industrial engineering قام بنشر نوفمبر 27, 2010 قام بنشر نوفمبر 27, 2010 خلال موضوع سابق قام المهندس العزيز طارق بمساعدتنا مساعده عظيمه الله يجزيه كل خير ويعطيه العافيه على قدر التعب اللي تعبوا معنا ... حقيقه على عدم توصلينا المعلومه لها بشكل واضح الا انه استطاع استنتاج العمل المطلوب وانجازه بطريقة مميزة جدا رابط الموضوع للاطلاع العمل مميز بكل المقايس ولكن نحن الان بحاجه الى بعض التعديلات التي تجعل الملف يظهر بالشكل المطلوب هذه الصورة توضح الواجهه الرئيسة للملف حيث جدول للمدخلات والمخرجات تظهر على شكل رسم بياني لدينا مجمووعه من المدخلات الوقت المطلوب لانجاز العمليه Job Process min/pc MH time min/pcوقت نقل او معالجة القطع عدد عمليات النقل والمعالجه No of Transefer كمية المواد المنقولة Unit Load Size دعونا نتخيل العمليه على انها تصوير كتب وتغليفها لدينا مكنينة تصوير ولدينا مكنيه تغليف ولدينا وقت لترتيب الورق وتجهيزه للتغليف حسب المعطى في الموضوع السابق لدينا 16 قطعه بمعنى لدينا 16 كتاب نريد تصويرها وتغليفها ... تصوير الكتاب الواحد ياخذ دقيقه ووقت التجهيز ياخذ دقيقتن ووقت التغليف ياخذ دقيقه استطاع المهندس تفسير العمليه بطريقة صحيحيه ولكن الاشكاليه حصلت في نقطة متقدمه دعونا نناقش الحالات حاله حاله وقبل ذلك احب ان اعرض شرح المهندس طارق واليه التي يعمل بها البرنامج مرفق عمل أول دورة Cycle فقط من عملية النقل الخلايا الصفراء فقط هي المتغيرة - Inputs وبناءا عليها تتغير الخلايا المخفية في الأعمدة E-F-G وبنفس الطريقة يمكنك رسم أكثر من دورة Cycle عن طريق أعمدة أكثر مخفية (بها معادلات طبعا) وهذا الشرح الذي استنتجه موضوع يبدو كما لو كان انك تنقل البضاعة للطابق الثاني ولابد ان تنقلها طابق بطابق بفرض أنه لايوجد مشكلة في عدد العمال مثلا للنقل ولكن المطلوب إنهاء العملية بسرعة لتقليل الزمن الكلي للردود والنقل معا علي أساس أن زمن الردود = 2 وأن زمن النقل للقطعة الواحدة = 1 أي انه عندك 5 حالات وليس 4 حالات كما قلت الحالة الأولي حمل 16 قطعة مرة واحدة أي عدد الردود مرة واحدة (=16÷16) ويكون الزمن الكلي = زمن الدورة الأولي = 16×1 ردود مرة واحدة = 2 زمن الدورة الثانية = 16×1 إجمالي (أنظر الشكل a ص188) = 34 وحدة زمن الحالة الثانية حمل 8 قطع في المرة أي عدد الردود 2 مرتين (=16÷8) ويكون الزمن الكلي = زمن الدورة الأولي = 8×1 + 8×1 = 16 ردود مرتين لكن نحسب مرة واحدة لأن الأولي داخلة في زمن النقل = 2 زمن آخر جزء الدورة الثانية لأن السابق ضمن زمن الأولي = 8×1 = 8 إجمالي (أنظر الشكل b ص188) = 26 وحدة زمن الحالة الثالثة حمل 4 قطع في المرة أي عدد الردود 4 مرات (=16÷4) ويكون الزمن الكلي = زمن الدورة الأولي = 4×1 + 4×1 + 4×1 + 4×1 = 16 زمن آخر ردود لأن الردودات السابقة ضمن زمن الدورة الأولي = 2 زمن آخر جزء الدورة الثانية لأن السابق ضمن زمن الأولي = 4×1 = 4 إجمالي (أنظر الشكل C ص188) = 22 وحدة زمن الحالة الرابعة حمل قطعتين في المرة أي عدد الردود 8 مرات (=16÷2) وبنفس المنطق يكون الزمن الكلي = زمن الدورة الأولي = 2×1 + .... 8 مرات = 16 زمن آخر ردود لأن الردودات السابقة ضمن زمن الدورة الأولي = 2 زمن آخر جزء الدورة الثانية لأن السابق ضمن زمن الأولي = 2×1 = 2 إجمالي (أنظر الشكل D ص188) = 22 وحدة زمن الحالة الخامسة حمل قطعة واحدة في المرة أي عدد الردود 16 مرات (=16÷1) في هذه الحالة زمن الردود أكبر من زمن نقل الحمل وهذا هو المطلوب ان تدركه من المسألة أن الزمن الكلي لن تستطيع تقليله بزيادة الأحمال علي الإطلاق ولن ينفع هنا نفس المنطق السابق لحساب الزمن الكلي فهنا يكون الحساب = أول حمل في الدورة الأولي + 16 مرة ردود + آخر حمل في الدورة الثانية أي أن الزمن الكلي = 1 + 16×2 + 1 = 34 إجمالي (أنظر الشكل E ص188) = 34 وحدة زمن سنناقش الان الحالات بالرسم ونشاهد مدى التطبق بين الجزء الحسابي والرسم في الحاله الاولى انه سيصور 16 كتاب جميعا ثم يستغرق وقت التجهيز دققتين لكل الكتب ثم يغلفهم في 16 دقيقه دقيقه اخر حسب الفرض ان الكتاب الواحد يستغرق تصويره دقيقة وتغليفه دقيقه ايضا بمعنى حسابي 16 كتاب= 16 دقيقه وقت التجهيز = 2 دقيقه وقت التغليف=16 دقيقه الاجمالي 34 دقيقه كما نشاهد الرسم جدا صحيح واعطنا 34 صحيحه نبدا الان من الحاله الثانيه ومن هنا تبد الاشكاليه التي لمن نجد لها حل في الحاله الثانيه قرر انه سيصور 8 كتب ثم يجهزها ومن ثم يغلفها ... ويعود بعد ذلك للثمانيه الباقين ويغلفها بمعنى حسابي الدوره الاولى يصور 8 كتب = 8 دقائق يجهزها بمعدل دقيقتين يغلفها بمعدل 8 كتب = 8 دقائق وهنا يقوم البرنامج بعمل الرسمه صحيحه في الدائرة الاولى التي باللون الازرق لكن بعد ذلك لايظهر شيء ... بمعنى يظهر 8 الاولى فقط لان البرنامج مبرمج على دائرة واحده فقط تحتوي على ( تصوير+تجهيز+تغليف) ففط وهنا نريد التعديل في التنسيقي الشريطي ... بحيث لو تطلب الموضوع اكثر من دائرة يقوم بعلمها (( انا قمت بعملها ولكن بتلوين الخلايا)) وهي عمليه غير صحيحه ولكن يجب ان اسلم التقرير لكن وقت المناقشه سيتضح الموضوع للدكتور وسكيتشف انا الدرائرة تعمل بشكل صحيح ولكن بقيه الحالات عباره عن تلوين خلايا لا اكثر ولا اقل . انا قمت بتلوين الرسمه باللون الاحمر حتى اكمل ... العمليه ولكني اريد تصحيح هذا الموضوع بحيث يقوم الاكسل تلقائيا بعمل الرسمه وهكذا في الحالات التاليه يقوم البرنامج بعمل الرسمه الاولى باللون الازرق وانا اقوم بالتلوين ... والصحيح ان يقوم البرنامج بعمل جميع الدوائر المطلوبه.. وتلوينها في هذه الحاله كان القرار انه سيقوم باربع دورات .... بمعنى انه سياخذ 4 كتب ويقوم بتصويرها ...وبعد ذلك يقوم بتجهيزها وتغليفها ... ولدينا 16 كتاب وهكذا والبرنامج قام بالدوره الاولى وانا قمت بالثلاثة الباقيه وفي هذه الحاله قرر ان سياخذ كتابين كتابين ... وبالتالي 8 دورات نفس الاشكاليه البرنامج قام بالدوره الاولى .. وانا قمت ب السبع الباقيه وفي الحاله قرر انه سيصور كتاب واحد ويقوم بتجهيزه ثم تغليفه ... بمعنى 16 دوره وانا بنفس الطريقة قام البرنامج بحساب الدوره الاولى ولكن 15 الدوره الباقيه قمت بتلوينها بنفسي اذا الخلاصه اننا في حاجه ماسه لتعديل ملف الاكسل المرفق بيحيث يتعدل ... التنسيق الشرطي ... ويقوم بجميع الدوائر بنفسه المهندس طارق ماقصر ..... وقام بالواجب وزياده معنا ... ولكن بعد ما فهمنا الموضوع بشكل صحيح ... حاولنا اجرى التعديلات التصحيحه ولم نستطع ... استاذي طارق لك منا كل الشكر ولكن لو بالامكان ان ترينا اليه عمل الدائرة وتكررها بحيث تتكرر حسب الطلب سنكون شاكرين لك ونفس الوقت نريد معرفة الامر الشرطي الذي استخدمته لتصميم الملف نتاسف جميعا حيث اني امثل فريق من 5 طلاب عن الازعاج الذي تسبب به ولكننا كلنا امل في ايجاد حل لهذا الموضوع لاننا سناقش الموضوع مع الدكتور وسيظهر له اننا قمنا بالعمل جزئيا بشكل صحيح ولكن سيظهر ايضا اننا قمنا بتلوين العمل وسيخصم من العمل درجة كبيره لانه ليس كما طلب بعد ماقمت بتجهيز الموضوع ورفع الصور ظهر لي الرسالة التالية You are not allowed to use that image extension on this board اطريت لحذف الصور من الموضوع وتحمليها كمفرفقات مع اني كنت احبذ ان تكون صور كي يكون الشرح مرتب !! Conditional Format2.rar
طارق محمود قام بنشر نوفمبر 28, 2010 قام بنشر نوفمبر 28, 2010 أخي العزيز السلام عليكم يبدو ان الحل بالأكواد هو الأيسر في حالتكم هذه عموما أرجو مراجعة مشاركتي رقم 11 في الموضوع السابق ثم غير في الخلية B5 في المرفق بتلك المشاركة كل ماتريد تحقق وهذا هو الكود وهو مكتوب في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) ' ActiveSheet.Unprotect If Target.Column = 2 And Target.Row = 5 Then GoTo 100 Exit Sub 100 Dim myRange As Range Set myRange = Range("D9:AV20") myRange.Interior.ColorIndex = xlNone ' Clear Previous Colors no_CY = [B6].Value uLoad = [B5].Value MH_T = [B4].Value [D9].Select For cy = 1 To no_CY If Int(cy / 2) <> cy / 2 Then cy_Color = 5 Else cy_Color = 3 For mc1 = 1 To uLoad ActiveCell.Interior.ColorIndex = cy_Color ActiveCell.Offset(0, 1).Select Next mc1 ActiveCell.Offset(1, 0).Select For MH = 1 To MH_T ActiveCell.Interior.ColorIndex = cy_Color last_MH = ActiveCell.Column ActiveCell.Offset(0, 1).Select Next MH ActiveCell.Offset(1, 0).Select For mc2 = 1 To uLoad ActiveCell.Interior.ColorIndex = cy_Color ActiveCell.Offset(0, 1).Select last_col = ActiveCell.Column Next mc2 ActiveCell.Offset(-2, -MH_T - uLoad).Select If ActiveCell.Column + uLoad <= last_MH Then Cells(ActiveCell.Row, last_MH).Select Next cy [C13] = "Total Time =" & last_col - 4 Range("d13", Cells(13, last_col - 1)).Interior.ColorIndex = 4 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub أرجو مراجعة المشاركة المشار إليها جيدا ثم أنتظر ردك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.