利用with语句实现表格边框的绘制。
工具/原料
电脑
Excel
方法/步骤
1、编写绘制边框的程序：'绘制置单元格边框PublicSubunitB艺皱麾酪order()WithSelection.B泠贾高框orders(xlEdgeLeft)'设置左边框.LineStyle=xlContinuous.Weight=xlThin.ColorIndex=xlAutomaticEndWithWithSelection.Borders(xlEdgeTop)'设置上边框.LineStyle=xlContinuous.Weight=xlThin.ColorIndex=xlAutomaticEndWithWithSelection.Borders(xlEdgeBottom)'设置下边框.LineStyle=xlContinuous.Weight=xlThin.ColorIndex=xlAutomaticEndWithWithSelection.Borders(xlEdgeRight)'设置右边框.LineStyle=xlContinuous.Weight=xlThin.ColorIndex=xlAutomaticEndWithEndSub
2、运酚祯馄嫱行以上程序可以对选择的单元格绘制边框。编写下面程序进行示范：Subdrawingborder()Sheets("Sheet1").SelectDimwsAs友腆取缜WorksheetSetws=ThisWorkbook.Worksheets("sheet1")Range(Cells(2,1),Cells(4,1)).Select:unitBorderEndSub
3、运行以上程序，在A2至A4单元格绘制边框。结果如下：
4、利用with语句可以简化表格绘制程序的编写，对于制表类的程序编写非常有用。