可以给有颜色的日期单独设置一个样式，比如
Dim st3 As xls.style = bo.NewStyle '定义一个EXCEL样式
st3.BackColor = Color.Red '背景颜色为红色
st3.Format = "yyyy-MM-dd"
For c As Integer = 0 To dt.DataCols.Count - 1
sh(0,c).Value = dt.DataCols(c).Name
For c1 As Integer = 0 To dt.DataRows.Count - 1
sh(c1 + 1 ,c).Value = dt.DataRows(c1)(dt.DataCols(c).Name)
If dt.DataRows(c1)("有效期天数") <= 30 Then
For c2 As Integer = 0 To sh.Cols.Count - 1
sh(c1 + 1,c2).Style = st '设置样式
If sh(0,c2).Value = "有效期至" OrElse sh(0,c2).Value = "生产日期" Then
sh(0,c2).Style = st3 '设置列格式
End If
Next
加好友 
发短信
Post By：2021/6/16 11:48:00 [显示全部帖子]
