怎样给Excel划格子？

Question

怎样给Excel划格子？我们使用Excel做报表，由于行数是动态的，所以要动态划格子，不知有哪位大侠会？
给一段程序代码了，谢谢！

Answer 1

theRange为一range对象:
With theRange
      .Borders(xlEdgeBottom).Weight = lineWidthCode
      .Borders(xlEdgeTop).Weight = lineWidthCode
      .Borders(xlEdgeLeft).Weight = lineWidthCode
      .Borders(xlEdgeRight).Weight = lineWidthCode
      '内部水平划线
       If .Rows.Count > 1 Then .Borders(xlInsideHorizontal).Weight =lineWidthCode
      If .Columns.Count > 1 Then .Borders(xlInsideVertical).Weight = lineWidthCode
 End With
注：
   lineWidthCode可为下列值之一:
            xlHairline
            xlThin
            xlMedium
            xlThick
如果某条线不想画，应如下处理：
  .Borders(你不想画的边框线).LineStyle = xlNone