Private Sub Command1_Click()
With MSFlexGrid1
.MergeCells = flexMergeRestrictRows
.MergeRow(0) = True'合并固定行
.MergeCells = flexMergeRestrictColumns
.MergeCol(0) = True'合并固定列
End With
End Sub
Private Sub Form_Load()
With MSFlexGrid1
.Rows = 30
.Cols = 9
For i = 0 To 29
For J = 0 To 8
.TextMatrix(i, J) = (i + J) \ 3
Next
Next
.TextMatrix(0, 0) = ""
End With
End Sub