Sub main()
If Selection.MergeCells = True Then'利用Mergecells判斷是否含有合並單元格
MsgBox "有合並單元格!"
Else
MsgBox "沒有合並單元格!"
End If
End Sub
關於此例中用到的Mergecells的相關知識:
返回或設置壹個值,決定包含相同內容的單元是否應該跨越多行或多列分組在壹個單個單元中。
object.MergeCells [=value]
MergeCells 屬性的語法包含如下部分內容:
object
壹個對象表達式,其值為“應用於”列表中的壹個對象。
value
壹個整數或常數,指定單元分組(合並)。如設置值中所指定。
設置值
value 的設置值如下所示:
常數 值 描述
flexMergeNever 0 不顯示。包含相同內容的單元不分組。這是缺省設置。
flexMergeFree 1 自由。包含相同內容的單元總是合並。
flexMergeRestrictRows 2 限制行。只有行中包含相同內容的相鄰單元(向當前單元左邊)才合並。
flexMergeRestrictColumns 3 限制列。只有列中包含相同內容的相鄰單元(向當前單元上方)才合並。
flexMergeRestrictBoth 4 限制行和列。只有在行中(向左)或在列中(向上)包含相同內容的單元才合並。
說明
合並單元的能力使得您能夠以壹種清晰、簡明的方式顯示數據。可以連同排序和 MSHFlexGrid的列序函數壹起合並使用單元。
要使用 MSHFlexGrid 的單元合並能力:
把 MergeCells 設置為除 0 以外的壹個值。(設置值之間的區別在示例中解釋。)
為要合並行和列把 MergeRow 和 MergeCol 的數組屬性設置為 True。
當使用單元合並能力時,MSHFlexGrid 合並包含相同內容的單元。無論什麽時候單元的內容更改,合並都自動的更新。
當 MergeCells 被設置為除 0 (不顯示)以外的壹個值時,突出顯示的選擇自動關閉。這樣做是為加速重畫,也是因為包含合並單元範圍的選擇可能導致不可預料的結果。