[VBA特2期]抢12:判断选区内是否有合并单元格

轩辕轼轲

<p>编写一个工作表中的按钮代码，用于判断当前鼠标选取的区域内是否有合并单元格，用Msgbox返回判断结果。</p><p>提醒一下哦，<font color="#e61a1a">仅选定了一个合并单元格</font>和<font color="#dd2222">选择一片包含合并单元格区域</font><font color="#000000">的判断方式有细微的差别的哦</font></p><p>参考答案：</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p>

[此贴子已经被作者于2010-12-6 16:02:22编辑过]

豆丁

游客，如果您要查看本帖隐藏内容请回复

amulee

游客，如果您要查看本帖隐藏内容请回复

豆丁

游客，如果您要查看本帖隐藏内容请回复

mn860429

游客，如果您要查看本帖隐藏内容请回复

raulerini

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p></p>

dongqing1998

游客，如果您要查看本帖隐藏内容请回复

liyh67

游客，如果您要查看本帖隐藏内容请回复

那么的帅

游客，如果您要查看本帖隐藏内容请回复

liuguansky

<p>[review]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp;&nbsp;&nbsp; Dim rng As Range, str1$<br/>&nbsp;&nbsp;&nbsp; str1 = "没"<br/>&nbsp;&nbsp;&nbsp; Application.EnableEvents = False<br/>&nbsp;&nbsp;&nbsp; For Each rng In Target<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rng.Select<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Selection.Cells.Count &gt; 1 Then str1 = "": Exit For<br/>&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; Application.EnableEvents = True<br/>&nbsp;&nbsp;&nbsp; MsgBox str1 &amp; "有合并单元格"<br/>End Sub<br/>同时选择到鼠标区域的第一个合并单元格区域

</p>[/review][em03]