主题：[求助]动态提示什么更改字体大小和颜色?

 无法修改。

 这样写代码

 

Tables("表A").Grid.Cols("第一列").style.backcolor = color.red

 你的姓名窗口不能弄一个通用的？

 上面的代码无法优化的。而且不一定代码多了就影响效率，执行都是毫秒间的事。

Dim cs() As String = {"第一列", "第二列"}

For Each c As String in cs

    Tables("学员信息登记表").Grid.Cols(c).style.backcolor = color.red

Next