vba 单元格交叉线

如何实现Excel 单元格内填充交叉线，而不用类似于录制宏的代码形式，因为录制宏用到的语句，如果用到一个selection和withy语句，这样在执行的过程中，会老跳来来跳去，程序会很慢。希望能象单元格的属性一样后缀就能完成。而不用录制的宏这样：
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
因为在我的程序开头部分 用到了Application.ScreenUpdating = False，所以希望在程序体内不用selection,和with 语句，用了这些语句会刷新单元格，会严重影响程序执行速度，特别在大量这样单元格运算时，尤为明显！只要能解决我的问题，马上给分！
就这样就可以，别的，多余的
Sheet11.Cells(11, 11).Borders(xlDiagonalDown).LineStyle = xlContinuous
Sheet11.Cells(11, 11).Borders(xlDiagonalUp).Line

VBA单元格内容合并 如何用vba获取excel单元格格式 vba中怎样获得选中单元格坐标 excel 如何用 vba 给 单元格赋值 excel VBA 把选定单元格的值导入另一个单元格 VBA如何读取Excel单元格内的换行? 求Excel VBA 单元格内容变化处发的事件 EXCEL VBA中如何用变量引用单元格 EXCEL里怎样动态地合并单元格,用VBA函数 vba中如何判断excell某个单元格被选定？