试试这些东西行不行 Private Sub Command1_Click() Dim i As Long, j As Long With m For i = 1 To 2 For j = 1 To 10 .TextMatrix(i - 1, j - 1) = "1_1" Next j Next i For i = 3 To 10 For j = 1 To 10 .TextMatrix(i - 1, j - 1) = i & "_" & j Next j Next i End With End SubPrivate Sub Command2_Click() With m .MergeCells = 1 .MergeRow(1) = True .MergeRow(0) = True End With End Sub
首先谢谢楼上的二位了。 to songyangk(小草) 你的方法只合并了两行,没有合并列。 我希望的是不仅对前两行进行行合并,还对所有列的前两行进行列合并. 我是用这个控件来显示数据集,用合并可以显示多层的列标头结构,但我不想让数据也合并显示。
Private Sub Command1_Click()
Dim i As Long, j As Long
With m
For i = 1 To 2
For j = 1 To 10
.TextMatrix(i - 1, j - 1) = "1_1"
Next j
Next i
For i = 3 To 10
For j = 1 To 10
.TextMatrix(i - 1, j - 1) = i & "_" & j
Next j
Next i
End With
End SubPrivate Sub Command2_Click()
With m
.MergeCells = 1
.MergeRow(1) = True
.MergeRow(0) = True
End With
End Sub
to songyangk(小草)
你的方法只合并了两行,没有合并列。
我希望的是不仅对前两行进行行合并,还对所有列的前两行进行列合并.
我是用这个控件来显示数据集,用合并可以显示多层的列标头结构,但我不想让数据也合并显示。
在哪下这个控件,有注册码吗
不过,我想这样解决:
自己编写一个控件,用两个MSHFlexGrid。一个作表头,一个作表体。这样,可以单独对表头进行列合并而不影响表体啦!大家认为这个思路怎样?