怎么判断是否选取了多个单元格??

兰色幻想

<p>在VBA中怎么判断选取单元格的个数，是否超过1个呢?</p><p>大家先跟贴说出自已的答案, 看看是否能有我的最简答案</p>

hhzjxss

<p>这样行不？</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp; MsgBox Target.Count<br/>End Sub<br/></p>

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-2-14 15:54:00的发言：</b><br/><p>这样行不？</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp; MsgBox Target.Count<br/>End Sub<br/></p></div><p></p>不用事件程序呢?

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-2-14 15:56:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-2-14 15:54:00的发言：</b><br/><p>这样行不？</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp; MsgBox Target.Count<br/>End Sub<br/></p></div><p></p>不用事件程序呢? </div><p></p><p>是不是这个？</p><p>Selection.Count</p>

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-2-14 16:12:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-2-14 15:56:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-2-14 15:54:00的发言：</b><br/><p>这样行不？</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp; MsgBox Target.Count<br/>End Sub<br/></p></div><p></p>不用事件程序呢? </div><p></p><p>是不是这个？</p><p>Selection.Count</p></div><p>哈哈, 就是它, 简单的很</p>

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-2-14 16:19:00的发言：</b> <div class="msgheader">QUOTE:</div><div class="msgborder">&nbsp;</div><p>哈哈, 就是它, 简单的很</p></div><p>你刚发的帖子，说的就是它，哈哈！</p>