Select Case e.Col.name
Case "D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15", "D16", "D17", "D18", "D19", "D20", "D21", "D22", "D23", "D24", "D25", "D26", "D27", "D28", "D29", "D30", "D31", "D32", "D33", "D34", "D35", "D36", "D37", "D38", "D39", "D40", "D41", "D42", "D43", "D44", "D45", "D46", "D47", "D48", "D49", "D50"
Dim ary() As String = {"D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15", "D16", "D17", "D18", "D19", "D20", "D21", "D22", "D23", "D24", "D25", "D26", "D27", "D28", "D29", "D30", "D31", "D32", "D33", "D34", "D35", "D36", "D37", "D38", "D39", "D40", "D41", "D42", "D43", "D44", "D45", "D46", "D47", "D48", "D49", "D50"}
If array.Indexof(ary, e.Col.name) >= 0 Then
For Each c As String In ary
If e.Row(c).contains("P") Then
e.Style = "橙底"
End If
If e.Row(c).contains("F") Then
e.Style = "绿底"
End If
Next
End If
End Select
上面 drawcell 里面的代码，我是希望含有P的列才是橙色，但是现在造成从D1 到 D50 的所有列都是橙色。请问要怎样修改才行呢？谢谢。
加好友 
发短信
Post By：2022/11/28 12:13:00 [只看该作者]
