VBA练习:用代码选取多个符合条件的工作表

兰色幻想

<p>题目:</p><p>&nbsp;&nbsp; 工作簿中有N个工作表，要求编写一段VBA代码，运行后，选取单元格A1值为1的所有工作表。</p><p>&nbsp;&nbsp;&nbsp; 例：工作表book1.xls中有4个工作表，其中sheet2和sheet4的A1单元格值是1，而其他工作表A1值不为1，运行代码后选取sheet2和sheet4工作表。</p><p>&nbsp;&nbsp; 要求用回复可见方式回答。前20个正确答案每个奖励5个币币</p><p>&nbsp; </p>

[此贴子已经被作者于2008-4-7 12:37:40编辑过]

hhzjxss

谢谢兰版，做做看！

Qinjabil

<p>奇怪！</p>

jcfx

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

wayy

[em05]

E生E死

<p>想了半天，才做一个出来，不理想！</p><p>数组不练又要忘记了！</p><p>[em04]</p><p>

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

yuhe0008

Dim sh As Worksheet<br/>Dim arr<br/>Dim a$<br/>For Each sh In Worksheets<br/>If sh.[a1] = 1 Then<br/>a = a &amp; sh.Name &amp; ","<br/>End If<br/>Next<br/>a = Trim(Mid(a, 1, Len(a) - 1))<br/>arr = Split(a, ",")<br/>Sheets(arr).Select<br/>MsgBox "工作表" &amp; a &amp; "符合条件并被选中！"

jcfx

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

[此贴子已经被作者于2008-4-7 14:27:36编辑过]

crreg

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

[此贴子已经被作者于2008-4-7 15:50:46编辑过]

大耳朵图图

学习