AfterOpenProject事件
Tables("表A").UseVisualStyle = False
DrawCell事件
If e.Row.Checked Then e.style = "样式1"End If