表有15列,其中一部分列的颜色是根据进口国产列的条件进行变色,例如下面的代码感觉很冗长,如何进行简化,谢谢!
If e.Col.name = "A证_有无" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If
If e.Col.name = "A证_代码" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If
If e.Col.name = "A证_编号" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If
If e.Col.name = "A证_效期始" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If
If e.Col.name = "A证_效期终" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If
If e.Col.name = "B证_有无" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If
If e.Col.name = "B证_效期始" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If
If e.Col.name = "B证_效期终" AndAlso e.Row("进口国产") = "进口"
e.style = "进口颜色"
End If