VBA一次选定所有未锁定单元格

兰色幻想

<br /><br /><P>题目: 一工作表中有若干个区域取消了单元格锁定.</P>
<P>要求:&nbsp; 用VBA代码一次性选取所有未锁定单元格区域.</P>
<P>最简代码奖励10个金币</P>
<DIV align=right><FONT color=#000066>[此贴子已经被作者于2008-2-19 22:12:21编辑过]</FONT></DIV>

自然风光

有钱赚不到啊,

fandk

<p>得不到币币!!!</p>

兰色幻想

顶一下,等答案

pureshadow

<p>我就不凑这个热闹了哈</p>[em01][em01][em01]

suye1010

<p>不知道是不是最简，总之运行起来是非常的慢……</p><p>Sub 选择()<br/>Dim a As Range, b As Range<br/>For Each a In Range("A1:AI65536")<br/>If a.Locked = True Then<br/>&nbsp;&nbsp;&nbsp; GoTo 100<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If b Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = a<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = Union(b, a)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>End If<br/>100:<br/>Next<br/>b.Select<br/>End Sub</p>

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>suye1010</i>在2008-2-19 20:14:00的发言：</b><br/><p>不知道是不是最简，总之运行起来是非常的慢……</p><p>Sub 选择()<br/>Dim a As Range, b As Range<br/>For Each a In Range("A1:AI65536")<br/>If a.Locked = True Then<br/>&nbsp;&nbsp;&nbsp; GoTo 100<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If b Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = a<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = Union(b, a)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>End If<br/>100:<br/>Next<br/>b.Select<br/>End Sub</p></div><p>要把电脑累死了,呵呵, 如何表示一个工作表中已使用的单元格区域呢?</p>

faliming7

学习

suye1010

<div class="msgheader">QUOTE:</div><div class="msgborder"><p>Sub 选择()<br/>Dim a As Range, b As Range<br/>For Each a In <font color="#f76809">activesheet.usedrange</font><br/>If a.Locked = True Then<br/>&nbsp;&nbsp;&nbsp; GoTo 100<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If b Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = a<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = Union(b, a)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>End If<br/>100:<br/>Next<br/>b.Select<br/>End Sub</p></div><p></p>

[此贴子已经被作者于2008-2-19 20:30:12编辑过]

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>suye1010</i>在2008-2-19 20:28:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><p>Sub 选择()<br/>Dim a As Range, b As Range<br/>For Each a In <font color="#f76809">activesheet.usedrange</font><br/>If a.Locked = True Then<br/>&nbsp;&nbsp;&nbsp; GoTo 100<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If b Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = a<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set b = Union(b, a)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>End If<br/>100:<br/>Next<br/>b.Select<br/>End Sub</p></div><p></p><br/></div><p></p><p>很不错了</p><p>我的代码不算开头和结尾语句, 共8行代码.</p><p>给3个币币鼓励一下,继续努力</p>[em01]