返回选取的多个区域总行数(最简代码在1楼)

明天不上网

<p>还有更简单的</p>[em03][em03]

OPQ

学习的份！

zjxia889

<p>

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

</p>

[此贴子已经被作者于2008-5-24 12:16:42编辑过]

兰色幻想

结贴~~[em05]

zjxia889

<p>&nbsp;&nbsp;还是1997历害,已经摸到门口了</p><p>MsgBox Intersect(Columns(1), Selection.EntireRow).Count<br/></p>

[此贴子已经被作者于2008-5-24 13:34:21编辑过]

cjch1969

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-5-22 0:29:00的发言：</b><br/><p>题目:</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 用VBA编写一段代码,运行后返回选取的多个区域的总行数, 重复的算作一行.如下图所示.</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 最简代码奖励10个币币,请用回复可见方式回贴</p><p>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; 截止日期: 2008-5-26</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <img src="data/attachment/forum/dvbbs/2008-5/20085220281132900.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /></p><p>兰色的最简代码和解释如下: </p><p><font color="#2c902c"><strong>代码:</strong></font><font color="#ff0000"><br/></font><font color="#0808d6">MsgBox Intersect([A:A], Selection.EntireRow).Cells.Count</font></p><p><font color="#2d7d2d"><strong>解释:</strong></font></p><p>&nbsp;&nbsp;&nbsp;&nbsp; 1、&nbsp;除去所有多个区域重复行的方法,就是把他们合成为一行, 即: </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#0808d6">Selection.EntireRow</font></p><p>&nbsp;&nbsp;&nbsp; 2、 得到选取行在A列的单元格个数，即可得到选取的总行数，即：</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#1010de"><font color="#e70808">Intersect</font>([A:A], Selection.<font color="#e70808">EntireRow</font>).Cells.Count</font></p><p><font color="#1f7a1f"><strong>&nbsp; 兰色注</strong></font>： 大家这里一定要关注<font color="#e70808">EntireRow</font>（单元格所在行，点转化为面）和<font color="#e70808">intersert</font>（返回区域的交集）的灵活运用</p><p>&nbsp;</p><br/></div><p>最简代码： </p><p><font color="#2c902c"><strong>代码:</strong><br/></font><font color="#0808d6">MsgBox Intersect([A:A], Selection.EntireRow).Count&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'cells也可以省略</font></p>

兰色幻想

楼上说的没错,我开始时复制的是原来最初编写的代码,多谢提醒

cjch1969

<p>学习了，</p><font color="#e70808">EntireRow</font>（单元格所在行，点转化为面）和<font color="#e70808">intersert</font>（返回区域的交集）的灵活运用<p></p>

zbhpass

学习

hhzjxss

<p>

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

</p>