استخدام التنسيق الشريطي Conditional Format

[industrial engineering]

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

رابط الموضوع للاطلاع

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

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

لدينا مجمووعه من المدخلات

الوقت المطلوب لانجاز العمليه 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

[طارق محمود]

أخي العزيز

السلام عليكم

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

عموما أرجو مراجعة مشاركتي رقم 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

أرجو مراجعة المشاركة المشار إليها جيدا ثم أنتظر ردك