حالت موضوعی | حالت خطی

**learninweb**

با سلام خدمت تمامي کاربران گرامي در زير آموزش تصويري VBA در اکسل 2013 را بررسي ميکنيم توجه کنيد که شما ميتوانيد نرم افزار آموزش VBA را به همراه چند بخش آموزشي ديگر که بصورت تعاملي و شبيه سازي شده با صدا و متن فارسي درس داده شده است و رايگان نيز ميباشد از لينک آموزش VBA دانلود کنيد. در نرم افزارهاي آموزشي کارهاي بيان شده را بايد در محيط شبيه سازي شده انجام دهيد. در ابتدا و انتهاي اين آموزش تصويري نيز کل آموزش (هم متن و هم تصويري) در فايل PDF و Word موجود است.

دانلود فايل pdf آموزش تصويري VBA
دانلود فايل word آموزش تصويري VBA

به نرم افزار آموزش VBA محصول شرکت انياک خوش آمديد. در اين نرم‌افزار آموزشي فرض بر اين است که شما با Excel آشنايي کافي را داريد و مي‌خواهيد در مورد ماکروها و VBA اطلاعات بيشتري کسب کنيد. براي آموزش Excel و توابع آن به سايت http://www.learninweb.com مراجعه کرده و نرم افزار آموزشي را با لينک مستقيم دانلود کنيد.
VBA يک زبان برنامه نويسي داخل اکسل ميباشد. توجه داشته باشيد که زبان VBA با زبان برنامه‌نويسي VB متفاوت است. در مرحله اول قبل از کار با VBA به معرفي ماکروها و کار با آنها ميپردازيم.
ماکرو عبارت است از مجموعهاي از دستورالعملها که به ترتيب اجرا شده و پس از اين اجرا شما را به هدفي ميرسانند و با هر بار فراخواني ماکرو، کل دستورالعملها به ترتيب به اجرا در ميآيند. به همين خاطر ابزار مناسبي هست براي کارهاي تکراري که به دفعات قصد انجام آنها را داريم. در صفحه بعدي به ذکر يک مثال ساده در مورد ماکروها ميپردازيم.
به طور مثال فرض کنيد ميخواهيم با کليک روي هر سلول رنگ آن عوض شود. براي اين کار بدون استفاده از ماکرو از اين روش که اکنون انجام ميدهيم، استفاده ميکنيم. روي سلول مشخص شده کليک کنيد.
[تصویر: 001.gif]

حال روي منوي باز شونده مشخص شده کليک کنيد.
روي رنگ مشخص شده کليک کنيد.
[تصویر: 002.gif]

مشاهده ميکنيد که سلول به رنگ مورد نظر تغيير پيدا کرده است. حال براي اين که اين عمل توسط ماکرو انجام شود به صورت زير عمل ميکنيم. براي اينکار روي سربرگ View کليک کنيد.
روي دکمه Macros کليک کنيد.
از منوي باز شده روي گزينه Record Macro… کليک کنيد.
[تصویر: 003.gif]

در قسمت Macro Name نام ماکرو را تعيين ميکنيم. در قسمت Shortcut key کليد ميانبر مورد نظر را تعيين ميکنيم. براي اينکار روي کادر مشخص شده کليک کنيد.
[تصویر: 004.gif]

حرف q را تايپ کنيد.
با اين کار يک ماکرو به نام Macro1 با کليد ميانبر Ctrl + q ايجاد ميشود. براي ضبط عمليات روي دکمه OK کليک کنيد.
[تصویر: 005.gif]

به قسمت مشخص شده در کنار عبارت Ready توجه کنيد. اين قسمت نشان ميدهد که هرگونه عملي که اکنون انجام دهيد در حال ذخيره شدن در ماکرو ميباشد. روي قسمت مشخص شده کليک کنيد تا رنگ سلول عوض شود.
[تصویر: 006.gif]

براي اعلام پايان عمل ضبط، روي دکمه Stop کليک کنيد.
[تصویر: 007.gif]

در اين مرحله عمل تغيير رنگ در کليد ميانبر Ctrl + q ذخيره شده است. به طور مثال روي سلول مشخص شده کليک کنيد.
[تصویر: 008.gif]

دکمه Ctrl + q را فشار دهيد.
مشاهده ميکنيد که سلول مورد نظر به راحتي توسط کليک ترکيبي Ctrl + q تغيير رنگ داده است.
حال ميخواهيم به ذکر يک مثال ديگر بپردازيم. در اين مرحله قصد داريم به صورت همزمان تمامي اعداد موجود در اين صفحه را رنگي کنيم. براي اينکار ابتدا بايد تمامي اعداد موجود در اين صفحه را به حالت انتخاب در بياوريم. روي دکمه Editing کليک کنيد.
روي گزينه Find & Select کليک کنيد.
[تصویر: 009.gif]

از منوي باز شده روي گزينه Go To Special کليک کنيد.
[تصویر: 010.gif]

از پنجره باز شده روي گزينه Constants کليک کنيد
[تصویر: 011.gif]

در ادامه تمامي تيکها به غير از Numbers را حذف ميکنيم.
روي دکمه OK کليک کنيد.
[تصویر: 012.gif]

حال دکمه Ctrl + q را فشار دهيد.
مشاهده ميکنيد که سلولهاي انتخاب شده تغيير رنگ دادهاند.
حال قصد داريم کد ماکرويي که ايجاد کردهايم را مشاهده کنيم. براي اين کار روي سربرگ View کليک کنيد.
روي دکمة Macros کليک کنيد.
[تصویر: 013.gif]

در قسمت مشخص شده ميتوانيد ماکرويي که ايجاد کردهايم را مشاهده کنيد. ممکن است قصد داشته باشيد ماکرو ايجاد شده را تغييراتي بدهيد. براي اين کار روي دکمه Edit کليک کنيد.
[تصویر: 014.gif]

مشاهده ميکنيد که وارد قسمت کد نويسي VBA شدهايم و دستورات ماکرويي که ايجاد کردهايم را مشاهده ميکنيد. به قسمت مشخص شده توسط کادر قرمز توجه کنيد. در اين قسمت رنگ ماکرو نشان داده ميشود. حال ميخواهيم رنگ ماکرو را عوض کنيم. براي اين کار روي شماره رنگ مشخص شده دابل کليک کنيد.
[تصویر: 015.gif]

در ادامه يک شماره رنگ ديگر وارد ميکنيم.
حال ميخواهيم اين ماکرو را بعد از تغيير انجام شده اجرا کنيم. روي دکمه Close کليک کنيد.
[تصویر: 016.gif]

همان طور که از قبل اعداد را انتخاب کردهايم، همچنان در حالت انتخاب مانده است. دکمه Ctrl + q را فشار دهيد.
مشاهده ميکنيد که رنگ سلولهاي انتخاب شده تغيير کرده است.
[تصویر: 017.gif]

براي دسترسي سريعتر و بهتر به ماکروها و قسمت کدنويسي ميخواهيم سربرگ Developer را فعال کنيم. براي اينکار روي قسمت مشخص شده کليک راست کنيد.
از منوي باز شده روي گزينه Customize the Ribbon کليک کنيد.
[تصویر: 018.gif]

گزينه Developer را فعال کنيد.
[تصویر: 019.gif]

روي دکمه OK کليک کنيد.
[تصویر: 020.gif]

مشاهده ميکنيد که سربرگ Developer نمايان شده است. روي سربرگ Developer کليک کنيد تا ابزارهاي داخل آن را مشاهده کنيم.
[تصویر: 021.gif]

به قسمت Code توجه کنيد. داخل اين قسمت ابزارهايي همچون Visual Basic، Macros و ... وجود دارد.
فرض کنيد ميخواهيد يک ماکرو ايجاد کنيد تا هر زمان که اکسل را اجرا کرديد اين ماکرو موجود باشد. (توجه داشته باشيد که تا کنون ماکروهايي که ايجاد کردهايم فقط در داخل آن Workbook يا فايل اکسل قابل استفاده است.) به عنوان مثال ميخواهيم يک ماکرو ايجاد کنيم که فقط خروجي تابع را ذخيره کند. براي درک بهتر در ادامه سلول B1 تا B7 را به حالت انتخاب در مياوريم.
در تمامي گزينههاي موجود در اين سلولها، از تابع Upper استفاده شده است. اکنون ميخواهيم با استفاده از يک ماکرو تابع حذف شده و فقط خروجي نمايش داده شود. براي اينکار ابتدا دکمه Ctrl + C صفحه کليد را فشار دهيد تا اين سلولها کپي شود.
[تصویر: 022.gif]

حال روي آيکون فلش به سمت پايين دکمه Paste کليک کنيد.
روي دکمه اول در قسمت Paste Values کليک کنيد
[تصویر: 023.gif]

مشاهده ميکنيد که تابع حذف شده و فقط خروجي آن در سلول باقيمانده است. اکنون ميخواهيم اين عمل را به يک ماکرو تبديل کنيم. براي اينکار ابتدا روي سلول مشخص شده کليک کنيد.
[تصویر: 024.gif]

مشاهده ميکنيد که در اين سلول از تابع Today استفاده شده است. يک روش ديگر براي ضبط ماکرو استفاده از دکمه مشخص شده ميباشد. روي دکمه مشخص شده کليک کنيد.
[تصویر: 025.gif]

در ادامه يک نام براي اين ماکرو وارد ميکنيم.
روي ليست بازشونده Store macro in کليک کنيد.
به دليل اين که ميخواهيم در اين کامپيوتر هر بار اکسل را اجرا کرديم اين ماکرو نيز وجود داشته باشد. از منوي باز شده روي گزينه Personal macro Workbook کليک کنيد.
[تصویر: 026.gif]

روي دکمه OK کليک کنيد.
[تصویر: 027.gif]

مشاهده ميکنيد که پيغام خطايي ظاهر شده است. اين پيغام اين اخطار را ميدهد که نامي که براي ماکرو قرار دادهايم، داراي مشکل ميباشد. براي رفع اين مشکل بايد فاصله را از نام ماکرو حذف کنيم. روي دکمه OK کليک کنيد.
[تصویر: 028.gif]

در ادامه نام تابع را تصحيح ميکنيم.
روي دکمه OK کليک کنيد.
[تصویر: 029.gif]

حال ماکرو در حال ضبط ميباشد. دکمه Ctrl + C را فشار دهيد.
روي قسمت مشخص شده از دکمه Paste کليک کنيد.
روي دکمة مشخص شده کليک کنيد.
[تصویر: 030.gif]

براي اينکه ضبط ماکرو متوقف شود، روي دکمه مشخص شده کليک کنيد.
[تصویر: 031.gif]

ماکرويي که ايجاد کردهايم را ميخواهيم به قسمت Quick Access بياوريم تا با يک کليک در دسترس باشد. براي اينکار، روي گزينه customize Quick Access toolbar کليک کنيد. روي گزينه More Commands کليک کنيد.
[تصویر: 032.gif]

ليست باز شونده Choose commands from را باز کنيد.
[تصویر: 033.gif]

روي گزينه Macros کليک کنيد تا ماکروهايي که ايجاد کرده ايم را مشاهده کنيم.
[تصویر: 034.gif]

روي ماکرو مشخص شده کليک کنيد.
روي دکمه Add کليک کنيد تا ماکرو به ليست Quick Access Toolbar اضافه شود.
[تصویر: 035.gif]

براي تغيير آيکون دکمه ايجاد شده، روي دکمه Modify کليک کنيد.
[تصویر: 036.gif]

روي آيکون مشخص شده کليک کنيد.
[تصویر: 037.gif]

در قسمت Display Name ميتوانيد نام اين دکمه را تغيير دهيد. در ادامه نام مناسب تري براي اين ماکرو وارد ميکنيم.
روي دکمه OK کليک کنيد.
[تصویر: 038.gif]

روي دکمه OK کليک کنيد.
[تصویر: 039.gif]

مشاهده ميکنيد که ماکرو در Quick Access toolbar قرار گرفته است. براي اجراي ماکرو ايجاد شده، در ادامه سلول F1 تا F7 را انتخاب ميکنيم.
[تصویر: 040.gif]

مشاهده ميکنيد که داخل سلولها از تابع Lower استفاده شده است. روي دکمه مشخص شده کليک کنيد تا فقط خروجي تابع باقي بماند.
[تصویر: 041.gif]

مشاهده ميکنيد که تابع حذف شده و فقط خروجي آن باقي مانده است.
[تصویر: 042.gif]

نرمافزار اکسل به طور پيشفرض داراي يکسري کليدهاي ميانبر ميباشد که بهتر است در تعريف کليد ميانبر اجراي ماکروها از اين کليدها استفاده نکنيم. اگر از اين کليدها استفاده کنيم حالت پيش‌فرض از بين رفته يا ممکن است اين کليد دچار اختلال شود و به خوبي براي ماکرو عمل نکند. در اين ليست شما ميتوانيد کليدهاي ميانبر همراه با Ctrl و ميانبر Ctrl + Shift را مشاهده نماييد. حال فرض کنيد قبلا يک ماکرو با کليد ترکيبي Ctrl + V ايجاد کردهايم. براي تغيير آن، روي سربرگ View کليک کنيد.
روي قسمت مشخص شده کليک کنيد.
روي گزينه View Macro کليک کنيد.
[تصویر: 043.gif]

روي Macro1 کليک کنيد.
[تصویر: 044.gif]

روي دکمه Options کليک کنيد.
[تصویر: 045.gif]

حال ميخواهيم کليد ميانبر اين ماکرو را از کليد Ctrl + v به Ctrl + Shift + V تغيير دهيم. براي حذف اين کليد ميانبر دکمه Backspace را فشار دهيد.
دکمه Shift را فشرده نگه داشته و سپس دکمة V صفحه کليد را فشار دهيد.
اکنون کليد ميانبر به Ctrl + Shift + V تغيير پيدا کرده است. روي دکمه OK کليک کنيد.
[تصویر: 046.gif]

روي دکمه Close کليک کنيد.
[تصویر: 047.gif]

حال براي اين که ببينيم تغيير به خوبي انجام شده است يا خير، روي سلول مشخص شده کليک کنيد.
[تصویر: 048.gif]

مشاهده ميکنيد که تغييرات به خوبي اعمال شده است.
[تصویر: 049.gif]

در اين مرحله قصد داريم يک ماکرو ايجاد کنيم که با استفاده از آن، يک ليست بر اساس حروف الفبا مرتب شود. براي اينکار ابتدا بايد ليست مورد نظر را به حالت انتخاب در بياوريم. در ادامه ليست مورد نظر را به حالت انتخاب در مي‌آوريم.
براي ايجاد ماکرو، روي دکمه مشخص شده کليک کنيد.
[تصویر: 050.gif]

در ادامه نام ماکرو را وارد ميکنيم.
روي دکمه OK کليک کنيد.
[تصویر: 051.gif]

حال ماکرو در حال ضبط ميباشد. روي سربرگ DATA کليک کنيد.
روي دکمه Sort A to z کليک کنيد.
[تصویر: 052.gif]

روي دکمه Sort کليک کنيد.
[تصویر: 053.gif]

براي توقف ضبط ماکرو روي دکمة مشخص شده کليک کنيد.
[تصویر: 054.gif]

در ادامه براي ستون ديگري نيز همين ماکرو را ايجاد ميکنيم.
تا اينجا دو ماکرو ايجاد کردهايم که هر کدام يک محدوده را بر اساس حروف انگليسي مرتب ميکند. حال ميخواهيم براي اين دو ماکرو، دو دکمه ايجاد کنيم که با کليک روي هر دکمه، ماکرو مورد نظر اجرا شود. براي اين کار، روي سربرگ Insert کليک کنيد.
روي گزينه Illustrations کليک کنيد.
از منوي باز شده روي گزينه Shapes کليک کنيد.
روي شکل مشخص شده کليک کنيد.
[تصویر: 055.gif]

حال براي رسم مستطيل، روي قسمت مشخص شده با کادر قرمز کليک کرده و تا قسمت مشخص شده با کادر سبز Drag نمائيد.
[تصویر: 056.gif]

براي اينکه مستطيل رسم شده کاملاً اندازه سلول شود، دکمه Alt صفحه کليد را فشار داده و روي دستگيره مشخص شده کليک کنيد و تا قسمت مشخص شده با کادر سبز Drag کنيد.
[تصویر: 057.gif]

مشاهده ميکنيد که مستطيل کاملاً اندازه سلول در آمده است. اکنون براي اين که کمي ظاهر مستطيل را عوض کنيم، روي منوي مشخص شده کليک کنيد.
[تصویر: 058.gif]

روي حالت مشخص شده کليک کنيد.
[تصویر: 059.gif]

در ادامه عبارت Sort Name را داخل مستطيل تايپ ميکنيم. توجه داشته باشيد که مستطيل در حالت انتخاب ميباشد، هر عبارتي را تايپ نماييد داخل مستطيل نوشته ميشود.
در ادامه براي ماکرو دوم نيز يک دکمه ايجاد ميکنيم
ميخواهيم با کليک بر روي مستطيل يک ماکرو اجرا شود. روي دکمه مشخص شده کليک راست کنيد
از منوي باز شده روي گزينه Assign Macro کليک کنيد.
[تصویر: 060.gif]

روي ماکرو مشخص شده کليک کنيد.
[تصویر: 061.gif]

روي دکمه OK کليک کنيد.
[تصویر: 062.gif]

اکنون با کليک روي مستطيل، ماکرو اجرا ميشود. روي مستطيل مشخص شده کليک کنيد.
[تصویر: 063.gif]

مشاهده ميکنيد که ماکرو به خوبي اجرا شده است. در ادامه به همين روش براي دکمه دوم نيز ماکرو را تعيين ميکنيم.
روي دکمه Sort Work کليک کنيد.
[تصویر: 064.gif]

حال فرض کنيد که ميخواهيم دکمه Sort Work را حذف کنيم. براي اينکار بايد روي دکمه کليک کرده تا به حالت انتخاب در بيايد و سپس دکمه Delete صفحه کليد را فشار دهيم. اما چون مستطيل به حالت دکمه در آمده است ديگر با کليک به حالت انتخاب در نميآيد. براي اين که بتوانيم دکمه را به حالت انتخاب در بياوريم، ابتدا بايد دکمه Ctrl صفحه کليد را فشرده نگه داشته و سپس روي دکمه مورد نظر کليک کنيد. حال دکمهCtrl صفحه کليد را فشار داده و سپس روي مستطيل مشخص شده کليک کنيد.
[تصویر: 065.gif]

دکمه Delete صفحه کليد را فشار دهيد تا اين دکمه حذف شود.
مشاهده ميکنيد که مستطيل حذف شده است.
شما ميتوانيد به جاي اشکال هندسي از تصاوير نيز براي ايجاد دکمه استفاده نماييد. براي اين کار در ادامه يک تصوير را از سربرگ Insert وارد ميکنيم.
روي تصوير وارد شده کليک راست کنيد.
[تصویر: 066.gif]

از منوي باز شده روي گزينه Assign macro کليک کنيد.
[تصویر: 067.gif]

روي ماکرو مشخص شده کليک کنيد.
روي دکمه OK کليک کنيد.
[تصویر: 068.gif]

حال ماکرو مورد نظر روي اين تصوير اعمال شده است. براي امتحان اين موضوع روي تصوير مشخص شده کليک کنيد.
[تصویر: 069.gif]

مشاهده ميکنيد که با کليک روي تصوير ماکرو اجرا شده است.کاربر گرامي شما در انتهاي اين بخش قرار داريد.
[تصویر: 070.gif]

توجه کنيد که شما ميتوانيد نرم افزار آموزش VBA را به همراه چند بخش آموزشي ديگر که بصورت تعاملي و شبيه سازي شده با صدا و متن فارسي درس داده شده است و رايگان نيز ميباشد از لينک آموزش VBA دانلود کنيد. در نرم افزارهاي آموزشي کارهاي بيان شده را بايد در محيط شبيه سازي شده انجام دهيد. در ابتدا و انتهاي اين آموزش تصويري نيز کل آموزش (هم متن و هم تصويري) در فايل PDF و Word موجود است.

دانلود فايل pdf آموزش تصويري VBA
دانلود فايل word آموزش تصويري VBA