الإدارة و الهندسة الصناعية

تطبيق 1:

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

سنقوم ببناء برنامج بسيط يقوم بفحص جميع أرقام التكاليف ويقوم بإظهار تلك التي تتجاوز الألف بأن يجعل الخط سميكا ولون الكتابة أزرقا. هذا البرنامج يمكن كتابته كالآتي:

Sub checkexpenses()
‘for each column
For j = 2 To 8
‘for each row in the table
    For i = 5 To 16
    x = Worksheets(”sheet1″).Cells(i, j)
    ‘check if the value of the cell is greater than 1000
        If x > 1000 Then
        ‘if the value is greater than 1000 then make the font bold and the color blue
        Worksheets(”sheet1″).Cells(i, j).Font.Bold = True
        Worksheets(”sheet1″).Cells(i, j).Font.ColorIndex = 32
        End If

      Next i
Next j
End Sub

هذا البرنامج يَمر على كل الخلايا المحتوية لأرقام المصاريف عن طريق For ….To  بمتغيرين: واحد للأعمدة والآخر للصفوف فهو يمر على كل صفوف الجدول للعمود الثاني ثم كل الصفوف للعمود الثالث وهكذا حتى العمود الثامن. وفي كل مرة يتم مقارنة قيمة الخلية بالرقم ألف وذلك باستخدام جملة  If….Then وفي حالة ما إذا كانت قيمة الخلية أكبر من ألف فإنه يتم تغيير الخط إلى الخط السميك  Bold ويتم تغيير لون الكتابة إلى الللون الأزق. وتكون النتيجة كالتالي:

 بالطبع تظهر قيمة هذا البرنامج كلما ازدادت الأرقام التي يتم استعراضها. بإمكاننا أيضا ألا نكتفي بمجرد توضيح الأرقام التي تتجاوز الألف بل يمكننا كتابتها في صفحة منفصلة بالترتيب الذي نريده. لاحظ سهولة تغيير الرقم الذي نقارن به (في الحالة السابقة 1000). فلو قررنا أنا نريد دراسة المصاريف التي تزيد عن 1200 فلن يكون علينا سوى تغيير رقم 1000 في البرنامج إلى 1200. وهكذا فإن استخدام فيجوال بيسك يعطيك مرونة عالية في التغيير بحسب الحاجة.

أرجو ألا تكتفي بقراءة المقالة ولكن افتح برنامج إكسل وقم بالتطبيق بنفسك لكي تتعلم فيجوال بيسك.

قد تتصور أنه عليك أن تحفظ كل أوامر فيجوال بيسك. هذا ليس صحيحا. فعلى سبيل المثال أثناء كتابتي لهذا البرنامج الصغير احتجت للبحث في الـ Help لكي أتذكر الأمر الذي يغير الخط إلى  Bold. ولكن عملية البحث هذه لا تستغرق وقتا طويلا. كذلك يمكنك البحث عن طريق جوجل فهناك الكثير من المعلومات المتاحة على الشبكة الدولية عن استخدام فيجوال بيسك.

هل يمكن إضافة أيقونة لتنفيذ هذا البرنامج كلما احتجناه؟

يمكنك أن تضيف للملف أيقونة Icon أو قائمة أوامر Menu لتشغيل هذا البرنامج كلما احتجت إلى ذلك. قد تظن ان هذا أمرا عسيرا ولكن في الحقيقة فإن الامر أيسر بكثير مما تتوقع. اتبع الخطوات الآتية:

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

تظهر لك النافذة التالية. اختر  Macros كما بالشكل.

لوضع Menu Item اضغط على Custom Menu Item وقم بسحبها إلى مستوى القوائم Menu وضعها حيث تريد وليكن بعد قائمة Help كما بالشكل.

 الآن نر يد تحديد اسم مناسب لهذه القائمة ونريد تحديد الماكرو الذي ستقوم بتشغيله.قِف بالفأرة على هذه القائمة الجديدة ثم قم بالضغط على الزر الأيمن للفأرة فتظهر لك قائمة كما بالشكل. لاحظ أن هذه القائمة لا تظهر عندما تكون نافذة  Customize  مغلقة.

 ربما لن نهتم كثيرا سوى بالوظيفتين المشار إليهما بالحلقة الحمراء: Name، Assign Macro. لتغيير اسم القائمة فإنه ما عليك إلى أن تضع الفأرة بجوار كلمة  Name وتقوم بالكتابة ومسح الاسم القديم. عند الوقوف بالفأرة خارج القائمة فإنك ترى الاسم قد تغير بالفعل.

لتحديد الماكرو اضغط على  Assign Macro فتظهر لك النافذة التالية

اختر الماكرو الذي تريد ثم اضغط OK

 أغلق نافذة Cutomize والآن يمكنك تجربة تشغيل الماكرو بالضغط على هذا الزر أو القائمة.

لكي تضع أيقونة Icon بدلا من القائمة فإن عليك إعادة الخطوات ولكن في هذه الحالة تبدأ باختيار Custom Button وقم بسحبه ووضعه في مكان ما وسط الأيقونات ثم قم بتغيير اسمه وتحديد الماكرو الخاص به بنغفس الطريقة السابق ذكرها.

ما فائدة إضافة أيقونة أو قائمة للاستخدام الماكرو؟ لو كنت ستستخدم هذا الماكرو مرة واحدة فربما لا يكون هناك ما يبررر وضع أيقونة لتشغيل البرنامج ولكن لو كنت تستخدم نفس الملف يوميا أو أسبوعيا أو شهريا وبأرقام مختلفة فإن وضع الأيقونة يجعل تشغيل البرنامج أمرا يسيرا. كذلك فإنه في حالة وجود عدة برامج في نفس الملف ويتم استخدامها مرارا وتكرارا فإن وضع أيقونات أو قائمة للتشغيل يجعل تشغيل هذه البرامج يتم بشكل سلسل.

يمكنك تحميل ملف إكسل به هذا الماكرو بالضغط على الرابط التالي
رابط الملف

مواضيع ذات صلة في نفس الموقع:
فائدة استخدام فيجوال بيسك للمديرين والمهندسين الصناعيين وغيرهم
فيجوال بيسك من برنامج إكسل - مقدمة
فيجوال بيك / إكسل - أدوات التحكم
فيجوال بيسك / إكسل - تطبيقات متقدمة