تغيير رنگ سلول

[HEYDARDOOST_REZA]

با سلام مشكل من اين است كه همانطور در تابع زير مشاهده ميگردد در قسمت انتها اگر من بخواهم درهر شرايطي كه منجر به ظاهر شدن پيغام ( " مقدار وارده صحيح نمي باشد " ) شده باشد با زدن enter ، رنگ داخل سلولي كه بعنوان P1 ، تعيين شده است ، تغيير يابد (مثلاً به رنگ قرمز يا سبز).
در ضمن لازم به توضيح است كه من مجبور هستم براي اين مورد تابع تعريف كنم و نميتوانم از conditional formatting در سلول استفاده كنم. خواهشمندم در صورت امكان مورد را تحت همين تابع اصلاح فرمائيد. باتشكر.وضعيت اضطراري است.
Public Function test1(p1 As Integer) As Integer
If p1 = 1 Then
test1 = 12
End If
If p1 = 2 Then
test1 = 24
End If
If p1 = 3 Then
test1 = 36
End If
If p1 = 4 Then
test1 = 72
End If
If p1 = 5 Then
test1 = 108
End If
If p1 = 6 Then
test1 = 144
End If
If p1 = 7 Then
test1 = 180
End If
If p1 = 8 Then
test1 = 215
End If
If p1 > 8 Then
MsgBox ("مقدار وارده صحيح نمي باشد")
End If
If p1 < 1 Then
MsgBox ("مقدار وارده صحيح نمي باشد")
End If
End Function
[/align]

[plc_pcb]

RE: تغيير رنگ سلول

با سلام
از دستور زیر برای تغییر رنگ سلول استفاده کن

[align=left]
ActiveCell.Interior.Color = RGB(255, 0, 0)
[/align]