سنتعرف في هذا الدرس على كيفية تصميم نموذج طباعة الشيكات في برنامج Excel خطوة بخطوة .
ملحوظة :
- يمكنك تحميل نموذج طباعة الشيكات المستخدم في الشرح من خلال هذا الرابط :
https://www.mediafire.com/file/1ll304l9hxag566/print+cheque.xlsm
- قم بتعديل المساحات حسب احتياجك , حيث أن مساحة الشيك تختلف من بنك إلى أخر .
كتابة التاريخ
يمكنك كتابة التاريخ يدويا أو استخدام دالة TODAY لكتابة تاريخ اليوم الحالي أتوماتيكيا كما هو موضح في المعادلة التالية :
ستقوم دالة TODAY بكتابة تاريخ اليوم الحالي .
كتابة اسم المستفيد
قم بكتابة كلمة "السيد/" يدويا حيث أننا سنقوم بإختيار اسم المستفيد بعدها من قائمة منسدلة .
يمكنك كتابة اسم المستفيد يدويا , لكن يفضل عمل قائمة منسدلة لإختيار اسم المستفيد , في النموذج المستخدم قمنا بعمل ورقة عمل منفصلة اسمها CLIENTS لكتابة أسماء المستفيدين .
حدد الخلية التي سيتم عمل قائمة منسدلة بها .
اذهب إلى التبويب Data ثم اضغط على Data Validation
سيظهر مربع حوار Data Validation قم بعمل التالي :
- من القائمة Allow اختر List
- في مربع النص اكتب معادلة تشير إلى العمود رقم A بالكامل داخل ورقة العمل CLIENTS
- اضغط على زر OK
الأن يمكنك اختيار اسم المستفيد من القائمة المنسدلة .
ملحوظة : يمكنك التعرف بالتفصيل على كيفية عمل قائمة منسدلة من خلال هذا الدرس : عمل قائمة منسدلة في Excel
كتابة المبلغ بالأرقام والحروف
اكتب رقم المبلغ .
الأن سنقوم بكتابة المبلغ بالحروف ( تفقيط المبلغ ) , يمكنك عمل ذلك يدويا ولكن هذا سيأخذ وقت ومجهود ومن المحتمل كتابته خطأ . لذا يفضل عمل دالة تقوم بتفقيط الرقم أتوماتيكيا . لا يوجد دالة في دوال برنامج Excel تقوم بعمل ذلك , لذا سنقوم ببرمجتها من خلال كود VBA
ملحوظة : للتعرف على كيفية تفقيط الأرقام بالتفصيل قم بقراءة هذا الدرس : تفقيط الأرقام باللغة العربية في Excel
اذهب إلى التبويب Developer ثم اضغط على Visual Basic
سيتم فتح محرر أكواد لغة VBA , افتح قائمة Insert واختر Module
سيتم اضافة وحدة برمجية جديدة اسمها Module 1 سنستخدمها لكتابة كود دالة التفقيط داخلها .
قم بتحميل الملف الموجود به دالة التفقيط من هذا الرابط :
https://www.mediafire.com/file/w2hiqvt2p8fnc91/tafqeet.txt
بعد تحميل الملف قم بفتحه ونسخ كل الكود الموجود داخله ولصقه داخل الوحدة البرمجية Module1
هذا الكود سيقوم بعمل دالة اسمها ConvertNumberToText تأخذ ثلاثة معاملات :