Highlighting the cell in Excel!

[nageshpv]

Hi,
I need to check the value in the Cell of the excel sheet and have to highlight it with some color.
For example: If the cell has FALSE as the value, i need to highlight the text with Red color.

Can anyone please help me out.

thanks

[Rekha]

Hi Nagesh PV,

You can have an idea of changing cell interior/ font colors in excell sheet from the following code.

Code:

Set xl=createobject ("excel.application") set xls=xl.workbooks.add For i=0 to 54 xls.sheets(3).cells(i,1)=i xls.sheets(3).cells(i,1).interior.colorindex=i xls.sheets(3).cells(i,1).Font.colorindex=i+20 Next xls.saveas""C:\Documents and Settings\rekha\Desktop\Colors.xls"" xls.quit xl.quit xls=nothing xl=nothing

Try this and let us know how it worked for you.
Rekha

[nageshpv]

Hi Rekha,

I could manage with the code..thanks a lot!

[nageshpv]

I tried with the code below,

Code:

Public Function Highlight_Cell() Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set ObjWorkBook = objExcel.Workbooks.open (DataSheet_Path &"\" & "DWU.xls") Set ObjWorkSheet = ObjWorkbook.WorkSheets("DS_Result") For Each Cell In ObjWorkSheet.UsedRange If Cell.Value = "False" Then Cell.Interior.ColorIndex = 3 End If Next ObjWorkBook.Save ObjWorkBook.close Set objExcel = nothing End Function

It works fine for me.