主题：当前界面所有行全选后，把逻辑列全部置为真（即选中状态）

With Tables("订单")
     .Select(0,0, .Rows.Count -1, .Cols.Count -1)
End With

以上代码是相当于框选当前页所有行，怎么实现选中所有行后把这些行的逻辑列都置为真？麻烦老师代码指教一下。