如何判断一个单元格是否在另一个区域中

兰色幻想

<br /><br /><P>如题： 如何用VBA判断一个单元格是否在另一个单元格区域中。</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 最简代码奖励4个金币</P>
<DIV align=right><FONT color=#000066>[此贴子已经被作者于2008-2-16 13:34:25编辑过]</FONT></DIV>

喵喵

才1个BB[em06]

八月的梦游者

If Not Intersect(Range("A1"), Range("A1:B10")) Is Nothing Then MsgBox "在范围里"

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>八月的梦游者</i>在2008-2-16 13:00:00的发言：</b><br/>If Not Intersect(Range("A1"), Range("A1:B10")) Is Nothing Then MsgBox "在范围里"</div><p><font color="#dd0000" size="3"><strong>答案正确</strong></font> </p><p><font color="#dd0000" size="3"></font>&nbsp;</p>

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-2-16 13:34:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>八月的梦游者</i>在2008-2-16 13:00:00的发言：</b><br/>If Not Intersect(Range("A1"), Range("A1:B10")) Is Nothing Then MsgBox "在范围里"</div><p><font color="#dd0000" size="3"><strong>答案正确</strong></font> </p><p><font color="#dd0000" size="3"></font>&nbsp;</p></div><p></p>踩个脚印，以备copy!