مطلوب مني تصميم ملف اكسل يتم ادخل البيانات فيه ويخرجها على شكل رسومات

[Eng.Ahmed Alsafi]

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

تميز رائع .. واداء منقطع النظير .. واعضاء ومشرفين على قدر عالي من الاحترافيه والابداع

::

::

اعزائي

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

هذا الطلب بالصوره والتفاصيل

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

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

حاولت بشتى الطرق والوسائل لكني لم افهم الية الربط بين الارقام وكيفية قيام الاكسل بتحوليها لرسمات مباشره دون تدخلي بمعنى انه يتم برمجتها من اول مره وبعد ذلك يقوم الملف تلقائيا بعمل الرسومات

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

تبقى املي الاخير فيكم

لاني لو لم استطع ساسلمة العمل باي طريقة

اتمنى حتى لو يكون لديكم حل ان تعطوني روابط تفدني اكثر في اليه تحويل البيانات الى رسومات في الاكسل

=========================

هذا الرسم الموجود في الكتاب وهذا هو اللي يبغاه الدكتور ان بعد ما ادخل البيانات تظهرلي النتايج على شكل رسومات مثل هذي

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

رابط الكتاب

ص 188

[طارق محمود]

السلام عليكم

مرحبا بك اخي الكريم

لم أفهم المطلوب لضيق وقتي

عموما سأساعد في نقطة لعلها تحل لك المسألة لأنك المفروض فاهم تماما الموضوع

النقطة في كلامك:

لم افهم الية الربط بين الارقام وكيفية قيام الاكسل بتحوليها لرسمات مباشره دون تدخلي بمعنى انه يتم برمجتها من اول مره وبعد ذلك يقوم الملف تلقائيا بعمل الرسومات

أنظر المرفق وبه الشرح عن طريق التنسيق الشرطي

Conditional Format.rar

[طارق محمود]

السلام عليكم

أخي الكريم

أنا فهمت المطلوب

مرفق عمل أول دورة Cycle فقط من عملية النقل

الخلايا الصفراء فقط هي المتغيرة - Inputs

وبناءا عليها تتغير الخلايا المخفية في الأعمدة E-F-G

وبنفس الطريقة يمكنك رسم أكثر من دورة Cycle

عن طريق أعمدة أكثر مخفية (بها معادلات طبعا)

راجع المرفق - الشيت الثاني Solve

وبالطبع الحل الأسهل قد يكون الأكواد ولكن هذا يكفي بالغرض

Conditional Format2.rar

[طارق محمود]

السلام عليكم

ياباشمهندس أحمد

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

عموما

كل عام وانت بألف خير

[Eng.Ahmed Alsafi]

عزيزي TareQ M كل الشكر منك على المساعده والاحترام

حصلت لي ظروف خاصه جدا منعتني من استخدام الانترنت خلال الفتره السابقة اسال الله ان لايري احد مكروه

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

الموضوع باختصار انا لدنيا 16 قطعة ونريد حلمها خلال مجموعه معينه من الوقت

بمعنى ان لدي خياريات 4 الخيار الاول انا احمل 8 قطع معا وبالتالي سيكون هناك ردين فقط

الخيار الثاني ان احمل 4 قطع وبالتالي سيكون هناك اربع ردود

والخيار الثالث ان احمل قطعيتن وسيكون هناك 8 ردود

والخيار الاول سيكون حمل قطعه واحده كل مره وبالتالي سيكون هناك 16 رد

للوهله الاولى ستقول ان العملية الاولى مريحه واسهل ولكن عوامل مهمه انا وسيلة النقل والكميه المنقوله وعوامل اخرى لها تاثير

لا اعلم ماهدف المحاضر من خلط الامور ببعضها

ولكن المطلوب تصميم ملف اكسل يفسر هذه العمليات الاربع بالرسم الذي ظهر في الموضوع اعلاه

للاسف الشديد المحاضره نفسه الموضوع جدا مشكل عليه ولم يقوم بنقل الصوره بشكل واضح لنا

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

ساحاول القراءه في الموضوع اكثر واكثر حتى استطيع فك شفرات الموضوع

عموما الموضوع مرتبط بالعلاقه بين كمية التحميل و الوقت المطلوب للتحميل

انا اعرف انكم مبرمجين اكسل وليس لكم علاقه في الموضوع ولكني في حيره من امري ... وليس لدي غيركم للاستعانه به

ساحاول تصميم ملف اكسل مبدئي واتمنى من من يستطع المساعده تطويره

[طارق محمود]

السلام عليكم

أخي الكريم

حصلت لي ظروف خاصه جدا منعتني من استخدام الانترنت خلال الفتره السابقة اسال الله ان لايري احد مكروه

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

لابأس ، كلنا يحدث لنا مثل ذلك

عموما الموضوع مرتبط بالعلاقه بين كمية التحميل و الوقت المطلوب للتحميل

أنا فهمت ذلك أيضا كما أنه يريد منك عمل دورتين لحساب الزمن الكلي واختيار أنسب عملية نقل

انا اعرف انكم مبرمجين اكسل وليس لكم علاقه في الموضوع ولكني في حيره من امري ... وليس لدي غيركم للاستعانه به

وأحب أطمئنك انني مهندس وأتعامل مع مثل هذه المشاكل

الموضوع يبدو كما لو كان انك تنقل البضاعة للطابق الثاني ولابد ان تنقلها طابق بطابق

بفرض أنه لايوجد مشكلة في عدد العمال مثلا للنقل ولكن المطلوب إنهاء العملية بسرعة

لتقليل الزمن الكلي للردود والنقل معا علي أساس أن زمن الردود = 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 وحدة زمن

أنظر مرة أخري ص188

[Eng.Ahmed Alsafi]

عزيزي TareQ M قمنا بالاتصال بالمحاضر وقام بشرح الصور لنا بشكل اوضح

اكرر اسفي لكل الاخوان الذين حاولو المساعده لاني انا حقيقه لمن اكن فاهم الموضوع بشكل صحيح

دعني انقل الصوره المطلوبه عملها في ملف الاكسل

ولكني قبل انا ابدا اريد ان اشرح المفهوم والهدف من العمل

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

في المثال الموجود لدينا

هناك قطعه معينه او جهاز معين

يمر في الالتين ...

المكينة الاولى MC1

المكينة الثانية MC2

هناك مايعرف بـ material handling وهو وقت المعالجه او وقت النقل سمه ما شئت وهو من المتغيرات المهمه جدا في هذه العمليه

يجب ان اناخذ في الاعتبار ان المطلوب هو تقليل الوقت بحيث تعمل الالتين معا ولكن السؤال ماهي الطريق الانسب ؟؟

في الحاله التي لدينا هناك 16 ويجب ان تنجز

قد يقول قائل لماذا لاتنجز جميها من الالى الاولى دفعه واحد ثم تعالج ثم تنقل للمرحله التاليه

الجواب انه في هذه الحاله لن يستفاد من المكينه الثانيه خلال الفتره الاولى كما في الشكل التالي

http://www.up-00.com/]http://store3.up-00.com/Nov10/v4X07725.bmp

نلاحظ ان المشين الثانيه متوقفه عن العمل خلال الفتره التي تعمل فيها المشين الاولى وبالتالي هذا وقت غير مستثمر على الاطلاق

وستطول مدة العمل ونحن نريد تقليل فتره العمل على قدر الامكان

قبل الخوض في الحالات نريد التعرف على المتغيرات المهمه في العمليه وهيا كالتالي :-

Uhttp://www.up-00.com/]http://store3.up-00.com/Nov10/gOF08877.jpg

عدد القطع المطلوب انجازهاTotal jobs:

الوقت المطلوب لمعالجه قطعة واحدهjob processing time:

الوقت المطلوب لتجهيز القطع لتتوجه للمكينة الثانيةmaterial handling time:

لناخذ الحالات حاله حتى تضح الصوره اكثر

http://www.up-00.com/]http://store3.up-00.com/Nov10/ebv10315.bmp

هذا المعطى الاساسي في السؤال

http://www.up-00.com/]http://store3.up-00.com/Nov10/thT12832.jpg

القطعة الواحد يتاخذ دقيقه واحده علشان تجهز ... يعني 16 قطعه بتاخذ 16 دقيقه

بينما وقت التجهيز علشان تروح للمكينه الثانيه 2 دقيتين

هذي اول حاله

http://www.up-00.com/]http://store3.up-00.com/Nov10/ZcG14689.jpg

كما نشاهد المكينه الاولى تعمل ولكن الثانيه تنتظر حتى تتنتهي الاولى من كل العمل وبعد ذلك هناك وقت نقل اوتجهيز وبعد ذلك تذهب للمكينه الثانيه

نشاهد اسفل الرسمه حدد عدد القطع في كل عمليه وعدد مرات النقل

... سا احاول خلال الساعات القادمه تجهيز الجزء المتبقي ...

[RaedAlahli]

السلام عليكم ..

اشكر المهندس طارق على التفاعل وحقيقة كان ملفه قيم جدا ..

ولكن يا مهندس طارق ناتج ملف الاكسل يكون صحيح فقط في الحالة الاولى فقط عندما يكون NO. of transfer مرة واحدة فقط

بمعنى عندما يزيد عدد مرات الانتقال عن مرة واحدة كما في الحالة الثانية والثالثة والرابعة يكون الناتج خاطئ ولا يماثل

الشكل الموجود والصحح والمطلوب في الصورة المرفقة بالرد رقم 6 ..

سؤالي لك يا مهندسنا الغالي طارق عن كيفية عمل امكانية تكرار (Gantt chart ) والمتعلق بـ MH( Material handling ) WHICH IS ALSO THE NO. OF TRANSFER

بحيث تطلع النواتج في كل الحالات كما في الصورة المرفقة ..

طبعا فهمك للمووع ماشاء الله واضح انه صحيح بس هناك نقطة احب اوضحها

ان الهدف من عمل اكثر من سيناريو كما في الصورة المرفقة هو الوصول للسيناريو

الذي يقدم لنا اقل وقت ممكن لإكمال الاعمال وهو الحاصل في الحالة d

حيث تنتهي الاعمال في الوقت 20

بينما البقية تنتهي في اوقات اكبر وهذا هو الهدف واتمنى تكون الفكرة وصلت وشكرا لك

تم تعديل نوفمبر 26, 2010 بواسطه RaedAlahli

[طارق محمود]

السلام عليكم

أخي المهندس أحمد

حاولنا جميعا اظهار الاكواد التي استخدمتها في العمل لم يظهر لنا اي كود سؤالي كيف او ماهي الطريقة التي استخدمتها لتصميم العمل او الاداءه ؟؟ لان العمل سيناقش من خلال عرض بوربوينت والدكتور سيسأل عن طريقة برمجة الملف وكيفة بناءه

أخي العزيز: الملف ليس بالأكواد بل بالتنسيق الشرطي Conditional Format

وقد إعتبرت أنك تعلم ذلك ، معذرة

علي عجالة: كيفية عمل التنسيق الشرطي في إكسل 2003

أولا تظلل المساحة من الخلايا التي تريد عمل ذلك لها

ثم

من Format

ثم

Conditional Format

ستجد قائمة صغيرة بها أربع مستطيلات

ثم تجد حالتين في أول مستطيل من اليسار

1- الحالة العادية Cell Value Is أن تربط الشرط بقيمة الخلية

مثلا تريد أن يكون لون الفونط أحمر إذا قلت القيمة عن 50

فتجعل

المستطيل الأول Cell Value Is

المستطيل الثاني Less Than

سيختفي المستطيل الرابع (لأنه لايلزم إلا في حالة حصر الرقم بين كذا وكذا)

المستطيل الثالث 50

ثم اضغط زر Format الموجود أسفل الأزرار السابقة

وشكل كما تريد من لون الفونط ولون الخلية و... كل هذا في حالة تحقق الشرط

جربها ستجدها مفيدة

2- الحالة الثانية Formula Is أن تربط الشرط بصيغة الخلية

وهذه الحالة التي استخدمتها أنا في ملفك هذا

Conditional Format2.xls

الموجود بالمشاركة رقم 3 من الموضوع

وبمجرد اختيار الحالة الثانية Formula Is

ستختفي المستطيلات الثلاثة ولايبقي إلا واحد لتكتب فيه الصيغة Formula

إرجع مرة أخري للملف وأظهر الأعمدة

E-F-G

ظلل المجال H18:AZ21

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

ستجد أنني استخدمت الحالة الثانية Formula Is

وستجد الشرط كالتالي

=AND($F18>0.5,$F18<=H$17,$G18>H$17)

والفورمات باللون الأزرق

ومعني هذا أنك تريد من الإكسل أن يلون بالأزرق أي من الخلايا يحقق هذا الشرط

ومعني الشرط نفسه أن الخلايا العلوية التي بها الزمن والمعبر عنها بــ H$17

إذا كانت أكبر من أو تساوي الـ $F18 ، مايقابلها في العمود F

وفي نفس الوقت تكون أقل من $G18 ، مايقابلها في العمود G

أعلم أنه ليس سهلا لمن لم يكن علي علم به

ولكنه موضوع مفيد

فلتصبر ولتتقنه وستندهش مما ستسطيع عمله بإذن الله

[طارق محمود]

السلام عليكم

أخي العزيز المهندس RaedAlahli

مرحبا بك عضوا عزيزا بين إخوانك

عذرا ان تأخرت في الرد عليك

ناتج ملف الاكسل يكون صحيح فقط في الحالة الاولى فقط عندما يكون NO. of transfer مرة واحدة فقط

أنا أعلم ذلك ولكني كنت أفضل "بنفس الطريقة يمكنك رسم أكثر من دورة Cycle" كما قلت في المشاركة 3

كيفية عمل امكانية تكرار (Gantt chart ) والمتعلق بـ MH( Material handling ) WHICH IS ALSO THE NO. OF TRANSFER

بحيث تطلع النواتج في كل الحالات كما في الصورة المرفقة ..

لابد أن تحاول أخي فهذا الموضوع سيأخذ وقت وفرصة أن تتقن التنسيق الشرطي (شرحت بعضا من في مشاركتي السابقة) وتستطيع البحث فالمنتدي مليء بالأساتذة العظام ولهم باع طويل في مثل هذه المواضيع

ان الهدف من عمل اكثر من سيناريو كما في الصورة المرفقة هو الوصول للسيناريو الذي يقدم لنا اقل وقت ممكن لإكمال الاعمال وهو الحاصل في الحالة d

شكرا ، أعلم هذا، لذلك أترك السائل يحاول قليلا

[طارق محمود]

السلام عليكم

الأخوة المهندسين الأعزاء المهندس /أحمد ، المهندس RaedAlahli

أصحاب هذا الموضوع

مرفق لكم الحل بالأكواد

كلمة السر للحماية 123

تفضلوا

أنتظر تعليقاتكم

2Machines.rar

[industrial engineering]

يابش مهندس طارق لمن نستطع عمل السيركل بشكل صحيح والوقت يدهمنا لمن يتبقى الا يوم واحد نرجوء المساعده

هذا رابط الموضوع الذي طرحه احد الزملاء ايضا

http://www.officena.net/ib/index.php?showtopic=34666

اتمنى الاطلاع عليه

[Eng.Ahmed Alsafi]

حقيقه يابش مهندس طارق روعه وابداع يعطيك العافيه ... انحلت مشكله السيركل ... يعطيك الف عافيه

يبدوء يابش مهندس انك استخدمت المايكرو اكسل ؟؟

[طارق محمود]

نعم أخي أحمد

الماكرو (الكود) مكتوب في حدث الورقة

كالتالي

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


End Sub

ولو فيه أي استفسارات فلاتتردد

تم تعديل نوفمبر 28, 2010 بواسطه TareQ M

[طارق محمود]

يابش مهندس طارق لمن نستطع عمل السيركل بشكل صحيح والوقت يدهمنا لمن يتبقى الا يوم واحد نرجوء المساعده

هذا رابط الموضوع الذي طرحه احد الزملاء ايضا

http://www.officena....showtopic=34666

اتمنى الاطلاع عليه

السلام عليكم

أخي الكريم

اطلعت علي الموضوع

لكن يبدو أنك وضعت ردك هذا قبل أن تقرأ مشاركتي التي قبله مباشرة رقم 11

أرجو قرائتها وتجربة الملف أولا

[Eng.Ahmed Alsafi]

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

دمت لمن تحب ... ودام اوفيسنا مصدر المعرفة والمعلومة المميزة

[Eng.Ahmed Alsafi]

يابش مهندس سؤالي الاخير ...

بالنبسه للاكواد ... فين حطيتها .. او كيف تمت البرمجه

لان السؤال الاكيد اللي حيسالنا هوا

كيف سويت الملف ؟؟

لو سالتك يابش مهندس كيف صممت الملف باختصار كيف حتجواب؟؟

[طارق محمود]

يابش مهندس سؤالي الاخير ...

بالنبسه للاكواد ... فين حطيتها .. او كيف تمت البرمجه

لان السؤال الاكيد اللي حيسالنا هوا

كيف سويت الملف ؟؟

لو سالتك يابش مهندس كيف صممت الملف باختصار كيف حتجواب؟؟

السلام عليكم

أخي الكريم

مرفق ملف به شرح الكود ومكانه والفكرة بالتفصيل الممل

كل سطر من الكود وأمامه الشرح بالعربي بنفس اللون

واللون االأخضر لمزيد من التوضيحات

تفضل

نسألكم الدعاء

2Machines_explain.rar

[RaedAlahli]

طلب اخير مهندسنا طارق

هل بالامكان تغيير كل الخانات الـ fixed

بحيث تكون كلها variable وقابلة للتغيير ..

المشكلة اننا بعيدين تماماعن مجال البرمجة لكن الدكتور ورطنا بطلبه على طريقة المايكرو ..

فإذا بالامكان تغييره من fixed الى var

يكون امر ممتاز جدا جدا ويكون طلبنا الاخير لك مهندسنا الفاضل ..

والله يستر عليك ويوفقك ويرزقك بما تريد

[طارق محمود]

السلام عليكم

تفضل أخي

لغيت لكم الحماية

لاحظ أن:

الكود لايعمل إلا إذا غيرت الخلية B5

الرقم الممثل لزمن نقل الوحدة الموجود في الخلية B3 لايؤثر في الكود

لو محتاج أنه يؤثر سيتغير الكود قليلا

2Machines_1.rar

[RaedAlahli]

يعطيك ألف ألف ألف عافية وجاري التجربة

والله يسهل لك امورك ويرزقك من حيث لا تحتسب ..

لك تحياتي استاذي الفاضل ..