VBA第7讲习题---学员答案上传专贴

飞龙在天

<p>

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

</p><p>&nbsp;+1</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-14 10:26:42编辑过]

lsjylb

<p>[Power=5] 8jgBTutN.rar (45.19 KB, 下载次数: 1)

2008-6-13 11:43 上传

点击文件名下载附件
VBA第7讲习题---学员答案上传专贴 </p><p><font color="#0033ff" size="3">兰版对这次作业要求只将程序代码贴上来就好。<br/></font>[/Power]</p><p>+5</p>

[此贴子已经被laosanjie于2008-6-14 10:34:07编辑过]

7725240

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

</p><p>+6</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-16 13:19:19编辑过]

心灵有约

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

</p><p>+7</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-16 13:18:41编辑过]

fish191

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

</p><p>+7</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-16 11:50:39编辑过]

飞龙在天

<p>

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

</p><p>+6</p><p>再发一个全的吧，</p>

[此贴子已经被laosanjie于2008-6-16 12:40:30编辑过]

kelinss

<p>

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

</p><p>&nbsp;+7</p>

[此贴子已经被laosanjie于2008-6-16 12:41:43编辑过]

冰雪儿

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

</p><p>+7</p>

[此贴子已经被laosanjie于2008-6-16 12:43:07编辑过]

qyszmmj

[Power=5] <p>Sub 第1题()<br/>Dim x<br/>&nbsp;For x = 1 To 14<br/>&nbsp; If Cells(x, 1) = "" And Cells(x, 2) = "" Then<br/>&nbsp;&nbsp;&nbsp; Rows(x).Hidden = True<br/>&nbsp; End If<br/>&nbsp;Next x<br/>End Sub</p><p>Sub 第2题()<br/>Dim x As Integer<br/>For x = [a65536].End(xlUp).Row To 3 Step -1<br/>&nbsp; Rows(x &amp; ":" &amp; x + 1).Insert<br/>Next x<br/>End Sub</p><p><br/>Sub 第3题()<br/>MsgBox Range("A1:d12").Find("", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address<br/>End Sub</p><p><br/>Sub 第4题()<br/>Dim x As Integer<br/>&nbsp;For x = 2 To 12<br/>&nbsp;&nbsp; Cells(x, 6) = Cells(x, 5).End(xlToLeft).Value<br/>&nbsp;Next x<br/>End Sub</p><p>Sub 第5题()<br/>Dim MRG As Range<br/>&nbsp;For Each MRG In Range("a1:d12")<br/>&nbsp;&nbsp; If MRG &gt;= "D" And MRG &lt;= "W" Then<br/>&nbsp;&nbsp;&nbsp; If Application.CountIf([F:F], MRG.Value) = 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; [F65536].End(xlUp).Offset(1, 0) = MRG.Value<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp; End If<br/>&nbsp;Next MRG<br/>End Sub</p><p>Sub 第6题()<br/>Dim x<br/>&nbsp;For x = [a65536].End(xlUp).Row To 2 Step -1<br/>&nbsp;&nbsp; If Cells(x, 1) = Cells(x - 1, 1) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; Application.DisplayAlerts = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range(Cells(x, 1), Cells(x - 1, 1)).Merge<br/>&nbsp;&nbsp;&nbsp; Application.DisplayAlerts = True<br/>&nbsp;&nbsp; End If<br/>&nbsp;Next x<br/>End Sub</p><p>Sub 第7题()<br/>Dim k As Integer, x As Integer, m As Integer<br/>k = [c65536].End(xlUp).Row + 1<br/>For m = Application.CountA([a1:a15]) To 2 Step -1<br/>&nbsp;&nbsp; x = 0<br/>&nbsp;&nbsp; Do<br/>&nbsp;&nbsp;&nbsp;&nbsp; k = k - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp; x = x + Cells(k, 3)<br/>&nbsp;&nbsp; Loop Until Cells(k, 1) &lt;&gt; ""<br/>&nbsp;Cells(k, 4) = x<br/>&nbsp;Next m<br/>End Sub<br/>照抄答案，慢慢消化了[em01]</p><p>[/Power]</p><p>+7</p>

[此贴子已经被laosanjie于2008-6-16 12:44:18编辑过]

园丁

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

</p><p>+7</p><p>&nbsp;</p>

[此贴子已经被laosanjie于2008-6-16 13:20:36编辑过]