تابع بدست آوردن شماره رنگ یک سلول و رنگ قلم آن سلول

[SAMI]

تابع بدست آوردن شماره رنگ یک سلول و رنگ قلم آن سلول
می‌خواهیم تابعی بنویسیم که شماره رنگ یک سلول (fill color) یا شماره رنگ قلم (font color) را مشخص کنیم.
(می‌دانیم که در اکسل از 56 رنگ می‌توان استفاده کرد که هر رنگ یک کد دارد مثلا کد رنگ قرمز 3 و آبی 5 است.)
• نام تابع : CellColor
• ورودی : تابع دو ورودی دارد ، ورودی اول آدرس سلول است و ورودی دوم مشخص می‌کند که ما می‌خواهیم رنگ زمینه سلول را داشته باشیم یا رنگ قلم آنرا .
اگر ورودی دوم عبارت fill بود رنگ زمینه مد نظر است و اگر font بود رنگ قلم.
• نام ورودی اول MyRange و از نوع Range است
• نام ورودی دوم Mode و از نوع String است
• اگر ورودی دوم داده نشده بود و یا مقادیری غیر fill و font بود ، خروجی تابع یک خطا به شکل #Mistake باشد .

برای نوشتن این تابع از دستور شرطی IF به صورت زیر استفاده می‌کنیم :

Public Function Colorindex(MyRange As Range, Mode As String)

Application.Volatile True

If Mode = "font" Then
Colorindex = MyRange.Font.Colorindex
ElseIf Mode = "fill" Then
Colorindex = MyRange.Interior.Colorindex
Else
Colorindex = "#Mistake"
End If
End Function
عبارت As Range بیان می‌کند که ورودی اول یک خانه است.
عبارت String As بیان می‌کند که ورودی دوم یک رشته (متن – غیر عدد) است .

دستور Application.Volatile True به اکسل می‌گوید که هر وقت هر خانه‌ای را مجدد محاسبه کرد، باید تابع ما را نیز مجدد محاسبه کند . ( این حالت مانند تابع now() خود اکسل است که زمان را مرتب محاسبه و نشان می‌دهد.) زدن کلید F9 نیز باعث می‌شود که این تابع مجدد محاسبه شود.

حال خانه A1 را به رنگ زرد و متن آنرا قرمز می‌کنیم و تابع را روی آن آزمایش می‌کنیم.
فرمولهای بکار رفته در خانه B1 و B2 را به ترتیب در D1 و D2 مشاهده می‌کنید.