در اکسل 2003 راه مستقیمی برای انجام عملیاتهای ریاضی مانند جمع زدن، میانگین و ... بر روی خانههایی که دارای یک رنگ هستند وجود ندارد و با تکنیک Find و استفاده از Copy/Paste به سختی میتوان اینکار را انجام داد.
برای این منظور در اکسل ما باید کد رنگ خانه را پیدا کنیم و سپس بر اساس آن با استفاده از روشهایی مانند Filter و یا توابعی مانند SumIf بر اساس این کد (که در واقع یک عدد است) عملیات ریاضی را انجام دهیم.
برای اینکار در اکسل بایستی تابع جدید ایجاد کنیم که توسط آن کد رنگ هر خانه محاسبه شود بنابراین دست به کار میشویم و با زبان VBA اکسل یک تابع جدید تعریف میکنیم.
قدم اول: ایجاد تابع در محیط ویژوال بیسیک
یک فایل خالی اکسل را ایجاد کنید و با زدن کلید Alt+F11 وارد محیط ویژوال بیسیک اکسل شوید.
به مسیر Insert > Module بروید و یک ماژول ایجاد کنید، ماژول جایی است که میتوانید در آن دستورات ویژوال بیسیک را وارد نمایید.
برای ایجاد یک تابع Insert > Procedure را انتخاب نمایید و در پنجرهای که باز میشود برای تابع جدید یک نام تایپ میکنیم مثلا در اینجا نام تابع را ColorCode میگذاریم در ضمن گزینه Function را انتخاب میکنیم.
مطابق شکل زیر کد این تابع را کامل نمایید.
قدم دوم: استفاده از این تابع برای جمع زدن خانههای نارنجی
حال تابع شما آماده است و در اکسل میخواهیم از آن استفاده کنیم.
از محیط ویژوال بیسیک خارج شوید (لازم نیست Save کنید) و به اکسل بگردید.
برای استفاده از این تابع محدودهای مانند شکل زیر را در نظر بگیرید که قرار است خانههای نارنجی رنگ را جمع بزنید و مطابق شکل از تابع ColorCode استفاده میکنیم.
و در نهایت بایستی چیزی مانند شکل زیر بدست آید که در کنار هر سلول کد رنگ آن سلول نمایش داده میشود.
و اینک توسط تابع SumIf خانههای نارنجی رنگ را جمع میزنیم عدد 46 که در تابع بکار برده شده است کد رنگ "نارنجی" میباشد.
توجه: اگر بعد از اینکه فرمول را نوشتهاید رنگ خانه را تغییر دهید متوجه میشوید که تابع کد رنگ قبلی خانه را میدهد نه رنگ جدید و این موضوع به این دلیل است که اکسل محاسباتی را هنگام عوض کردن رنگ انجام نمیدهد و وقتی محاسبات انجام میشود که شما در محتوای سلول تغییری را اعمال کنید (بعنوان مثال یک عدد تایپ شود) البته میتوان از کلید F9 نیز برای اینکار استفاده کرد و بلافاصله تابع کد رنگ جدید را بر میگرداند.
