给选中的单元格着色:
Dim t As Table = Tables("表1")Dim i As Integer = t.rowselt.SetHeaderCellBackColor(t.cols(t.colsel).name,Color.Red,i+1)