绿色
With CurrentTable .SetHeaderCellForeColor(.Cols(.ColSel).Name, Color.Green, .position+1)End With
红色
With CurrentTable .SetHeaderCellForeColor(.Cols(.ColSel).Name, Color.Red, .position+1)End With