//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; object[,] data = new object[,]{ {"Name", "City", "Birthday", "Eye color", "Weight", "Height"}, {"Richard", "New York", new DateTime(1968, 6, 8), "Blue", 67, 165}, {"Nia", "New York", new DateTime(1972, 7, 3), "Brown", 62, 134}, {"Jared", "New York", new DateTime(1964, 3, 2), "Hazel", 72, 180}, {"Natalie", "Washington", new DateTime(1972, 8, 8), "Blue", 66, 163}, {"Damon", "Washington", new DateTime(1986, 2, 2), "Hazel", 76, 176}, {"Angela", "Washington", new DateTime(1993, 2, 15), "Brown", 68, 145} }; worksheet.Range["A1:F7"].Value = data; worksheet.Columns[2].AutoFit(); //iconset rule IIconSetCondition iconset = worksheet.Range["E2:E7"].FormatConditions.AddIconSetCondition(); iconset.IconSet = workbook.IconSets[IconSetType.Icon3TrafficLights1]; //cell value rule added later, it has the highest priority, set StopIfTrue to true, if cell match condition, it will not apply icon set rule. IFormatCondition cellvalueRule = worksheet.Range["E2:E7"].FormatConditions.Add(FormatConditionType.CellValue, FormatConditionOperator.Between, "66", "70") as IFormatCondition; cellvalueRule.Font.ThemeColor = ThemeColor.Accent1; cellvalueRule.StopIfTrue = true;
' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim data As Object(,) = { {"Name", "City", "Birthday", "Eye color", "Weight", "Height"}, {"Richard", "New York", #6/8/1968#, "Blue", 67, 165}, {"Nia", "New York", #7/3/1972#, "Brown", 62, 134}, {"Jared", "New York", #3/2/1964#, "Hazel", 72, 180}, {"Natalie", "Washington", #8/8/1972#, "Blue", 66, 163}, {"Damon", "Washington", #2/2/1986#, "Hazel", 76, 176}, {"Angela", "Washington", #2/15/1993#, "Brown", 68, 145} } worksheet.Range("A1:F7").Value = data worksheet.Columns(2).AutoFit() 'iconset rule Dim iconset As IIconSetCondition = worksheet.Range("E2:E7").FormatConditions.AddIconSetCondition() iconset.IconSet = workbook.IconSets(IconSetType.Icon3TrafficLights1) 'cell value rule added later, it has the highest priority, set StopIfTrue to True, if cell match condition, it will not apply icon set rule. Dim cellvalueRule As IFormatCondition = TryCast(worksheet.Range("E2:E7").FormatConditions.Add(FormatConditionType.CellValue, FormatConditionOperator.Between, "66", "70"), IFormatCondition) cellvalueRule.Font.ThemeColor = ThemeColor.Accent1 cellvalueRule.StopIfTrue = True ' save to an excel file workbook.Save("CreateMultiRuleForRange.xlsx")