亲们，可以帮小弟我看一上代码吗，详解一上吧 ，多谢，需

亲们，可以帮我看一下代码吗，详解一下吧 ，谢谢，急需
Public Sub DBGridInitialize(ByRef Grid)     '表格初始化
Dim i, j As Long
With Grid
    .BorderStyle = flexBorderNone
    .ColAlignment(0) = 4
    .RowHeight(0) = Pix(DefRowHeight)
    .FontSize = DefCellFontSize
     For i = 1 To .Rows - 1
        .RowHeight(i) = Pix(DefRowHeight)
     Next i
     For i = 0 To .Cols - 1
        .ColHidden(i) = False
     Next
    .Row = 1
    .Col = 1
    .RowSel = .Rows - 1
    .ColSel = .Cols - 1
    .CellAlignment = DefCellAligment
    .RowSel = .Row
    .ColSel = .Col
End With
End Sub
------解决方案--------------------
表格格式设置：

Public Sub DBGridInitialize(ByRef Grid) '表格初始化
Dim i, j As Long
With Grid
  .BorderStyle = flexBorderNone '无边框
  .ColAlignment(0) = 4 '这一列居中对齐
  .RowHeight(0) = Pix(DefRowHeight) '设置这一行的行高
  .FontSize = DefCellFontSize '设置字体
  For i = 1 To .Rows - 1
  .RowHeight(i) = Pix(DefRowHeight) '其他各行的行高
  Next i
  For i = 0 To .Cols - 1
  .ColHidden(i) = False '显示所有列
  Next
  .Row = 1 '焦点在第一行
  .Col = 1 '焦点在第一列
  .RowSel = .Rows - 1 '选中所有行
  .ColSel = .Cols - 1 '选中所有列
  .CellAlignment = DefCellAligment '设置对齐方式
  .RowSel = .Row '选中第一行
  .ColSel = .Col '选中第一列
End With
End Sub