百度是个好东西要善用..
Private Sub Form_Load()
Dim i As Long
With sgrd
.Cols = 5
.Rows = 4
For i = 1 To 4
.TextMatrix(0, i) = "学生档案"
.ColAlignment(i) = 4
Next
.TextMatrix(1, 0) = "序号"
.TextMatrix(2, 0) = "2 "
.TextMatrix(3, 0) = "2 "
.TextMatrix(1, 1) = "姓名"
.TextMatrix(1, 2) = "姓名"
.TextMatrix(1, 3) = "性别"
.TextMatrix(1, 4) = "年龄"
.MergeCells = flexMergeRestrictRows
.MergeRow(0) = True
.MergeRow(1) = True
.MergeCol(0) = True
End With
End Sub
'合并单元格==================================
'语法
'
'object.MergeCells [=value]
'
'MergeCells 属性的语法包含如下部分内容:
'
'部分 描述
'object 一个对象表达式,其值为“应用于”列表中的一个对象。
'value 一个整数或常数,指定单元分组(合并)。如设置值中所指定。
'
'
'设置值
'
'Value 的设置值如下所示:
'
'常数 值 描述
'flexMergeNever 0 不显示。包含相同内容的单元不分组。这是缺省设置。
'flexMergeFree 1 自由。包含相同内容的单元总是合并。
'flexMergeRestrictRows 2 限制行。只有行中包含相同内容的相邻单元(向当前单元左边)才合并。
'flexMergeRestrictColumns 3 限制列。只有列中包含相同内容的相邻单元(向当前单元上方)才合并。
'flexMergeRestrictBoth 4 限制行和列。只有在行中(向左)或在列中(向上)包含相同内容的单元才合并。