昨晚看Table的方法时，经测试发现SetHeaderCellForeColor方法不仅可以设置列标题字体的颜色，还可以设置表中数据的颜色，另SetHeaderCellBackColor和SetHeaderCellFont方法具有类似的功效。
现以SetHeaderCellForeColor方法为例说明：
假定Table的表头层数为n(n>=1)
With Tables("XXX") '假设n=2
For Each c As Col In .Cols
.SetHeaderCellForeColor(c.Name,Color.Blue,0) '0表示第一层的标题,1表示第二层的标题
Next
Dim fnt As New Font("黑体",7)
For i As Integer = 2 To .Rows.Count + 1
'(注意循环变量的初值与终止值,与表头的层数有关,设表头的层数为n,则初值为n,终止值为.Rows.Count + n-1)
.SetHeaderCellForeColor("列名",Color.Red,i) '设置指定列数据的颜色
.SetHeaderCellFont("列名",fnt,i) '设置指定列数据的字体
Next
End With
高手勿喷！
[此贴子已经被作者于2015/7/14 9:55:41编辑过]
加好友 
发短信
Post By：2015/7/14 9:54:00 [只看该作者]
