رنگی شدن سلول ها

[saza_zasa]

سلام دوستان
من یه جدول به شکلی که ارسال کردم دارم می خوام براش یه فرمول تعریف کنم که حروف انگلیسی نوشته شده در قسمت وضعیت پخش مثلا اگه e بود قرمز بشه اگه n بود زرد بشه و اگه d بود سبز بشه

[ATTACH=CONFIG]8808[/ATTACH]

[generalsamad]

با سلام
شما با استفاده از conditional Formatting میتونید به جواب برسید
کافیه محدوده ستونتون رو انتخاب کرده و بعد به conditional رفته و در قسمت فرمول ، این فرمول رو وارد کنید

=IF(E4="E";1;0) 

سپس قالب مربوطه رو اعمال کنید
برای بقیه حروف هم این کار رو تکرار کنید

[iranweld]

با سلام

با استفاده از ویژوال بیسیک میتوانید از کدهای زیر استفاده کنید
در صورت تغییر دیتای ستون H رنگ سلول با توجه به خواسته شما تغییر مینماید

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next  'skip all run-time errors'

Z = Sheet1.Cells(Sheet1.Rows.Count, "H").End(xlUp).Row

 If Not Application.Intersect(Target, Range("H2:H" & Z)) Is Nothing Then

Application.EnableEvents = False


For I = 1 To Z
If Range("H" & I).Value = "E" Then
Range("H" & I).Interior.ColorIndex = 3

ElseIf Range("H" & I).Value = "N" Then
Range("H" & I).Interior.ColorIndex = 6

ElseIf Range("H" & I).Value = "D" Then
Range("H" & I).Interior.ColorIndex = 4
Else
Range("H" & I).Interior.ColorIndex = 2

 End If
 Next I
 End If
Application.EnableEvents = True

On Error GoTo 0  'Turn off error trapping and re-allow run time errors

End Sub