PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : تغيير رنگ سلول



HEYDARDOOST_REZA
2011/11/08, 13:21
با سلام مشكل من اين است كه همانطور در تابع زير مشاهده ميگردد در قسمت انتها اگر من بخواهم درهر شرايطي كه منجر به ظاهر شدن پيغام ( " مقدار وارده صحيح نمي باشد " ) شده باشد با زدن 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
2011/11/09, 21:26
با سلام
از دستور زیر برای تغییر رنگ سلول استفاده کن


ActiveCell.Interior.Color = RGB(255, 0, 0)