در صفحه اکسل و در جداول ایجاد شده در آن گاهی به منظور کنترل اسناد و مقادیر، لازم است برخی سلول ها را رنگی و اعداد سلول های رنگ شده را جمع بزنیم و یا محاسباتی را انجام دهیم. در این پروژه نمونه کوچکی از این شرایط محاسباتی را با کدنویسی در VBA انجام داده ام که با انتخاب سلول رنگی مورد نظر در ستون مربوطه، کدها رنگ داخل سلول را مورد هدف قرار داده و در سلول های محدوده تعریف شده کنترل شماره رنگ را انجام داده و در آخر اعداد سلول های دارای شماره رنگ مساوی با شماره رنگ سلول انتخاب شده را جمع و در سلول تعریف شده درج می کند.

در این پروژه روش اجرای دستور با زدن کلید انتخاب شده و شما می توانید دستورات و کدها را در پروسیجر Worksheet_SelectionChange همان صفحه تعبیه کنید و با انتخاب یک سلول رنگی، به سرعت محاسبه انجام شود.

تابعی به نام KH_Sum_CellColor که در این وبلاگ قرار داده ام و این تابع می تواند در فرمول نویسی استفاده شود و عملکردی مشابه همین پروژه را انجام می دهد.

فایل پروژه را از اینجا دانلود کنید.