20071128第3讲VBA作业 VBA编辑小技巧 雨中漫步讲评

刺桐

<p><a href="http://ishare.iask.sina.com.cn/cgi-bin/fileid.cgi?fileid=2740787">http://ishare.iask.sina.com.cn/cgi-bin/fileid.cgi?fileid=2740787</a></p><p>20071128VBA第3讲作业&nbsp; 雨中漫步讲评&nbsp; 共三段视频</p><p>VBA编辑小技巧 在VBA编辑状态下，按CTRL+J可调出“属性-方法列表”词汇库，按"TAB"键可选出需要的词。</p><p>Sub 第一题1() '雨中漫步<br/>&nbsp;&nbsp;&nbsp; If Range("e2") &gt; 0 And Range("e2") &lt; 10000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f2") = Range("e2") * 0.01<br/>&nbsp;&nbsp;&nbsp; ElseIf Range("e2") &lt; 20000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f2") = Range("e2") * 0.03<br/>&nbsp;&nbsp;&nbsp; ElseIf Range("e2") &lt; 30000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f2") = Range("e2") * 0.05<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f2") = Range("e2") * 0.07<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</p><p>Sub 第一题2() '雨中漫步<br/>Dim x As Range<br/>Set x = Range("e2")<br/>&nbsp;&nbsp;&nbsp; Select Case x<br/>&nbsp;&nbsp;&nbsp; Case 0 To 9999.9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f3") = x * 0.01<br/>&nbsp;&nbsp;&nbsp; Case 10000 To 19999.9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f3") = x * 0.03<br/>&nbsp;&nbsp;&nbsp; Case 20000 To 29999.9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f3") = x * 0.05<br/>&nbsp;&nbsp;&nbsp; Case Is &gt;= 30000<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f3") = x * 0.07<br/>&nbsp;&nbsp;&nbsp; End Select<br/>End Sub</p><p>Sub 第一题3() '雨中漫步</p><p>&nbsp;&nbsp;&nbsp; Dim x As Range<br/>&nbsp;&nbsp;&nbsp; Dim r1, r2, r3, r4 As Double<br/>&nbsp;&nbsp;&nbsp; r1 = Range("b2").Value<br/>&nbsp;&nbsp;&nbsp; r2 = Range("b3").Value<br/>&nbsp;&nbsp;&nbsp; r3 = Range("b4").Value<br/>&nbsp;&nbsp;&nbsp; r4 = Range("b5").Value<br/>&nbsp;&nbsp;&nbsp; Set x = Range("e2")<br/>&nbsp;&nbsp;&nbsp; Select Case x<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Case Is &lt; 10000<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f4") = x * r1<br/>&nbsp;&nbsp;&nbsp; Case Is &lt; 20000<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f4") = x * r2&nbsp; '(x - 10000) * r2 + 10000 * r1<br/>&nbsp;&nbsp;&nbsp; Case Is &lt; 30000<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f4") = x * r3 '(x - 20000) * r3 + (20000 - 10000) * r2 + 10000 * r1<br/>&nbsp;&nbsp;&nbsp; Case Is &gt;= 30000<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f4") = x * r4 '(x - 30000) * r4 + (30000 - 20000) * r3 + (20000 - 10000) * r2 + 10000 * r1<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; End Select<br/>End Sub</p><p>Sub 第二题()<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; For i = 1 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(2 * i, 1) = i<br/>&nbsp;&nbsp;&nbsp; Next i<br/>End Sub<br/>Sub 第二题()<br/>&nbsp;Dim i%<br/>For i = 2 To 20 Step 2<br/>Cells(i, 1) = i / 2<br/>Next i<br/>End Sub<br/>Sub 第二题1()<br/>'雨中漫步<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; For i = 0 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(2 * i + 1, 1) = i<br/>&nbsp;&nbsp;&nbsp; Next i<br/>End Sub<br/>Sub 第二题3() '雨中漫步</p><p>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; For i = 0 To 9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(2 * i + 1, 1) = i<br/>&nbsp;&nbsp;&nbsp; Next i<br/>End Sub<br/>Sub 第三题() '雨中漫步<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; For i = 18 To 2 Step -1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Cells(i, 3) = "0" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rows(i).Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next i<br/>End Sub<br/></p>

hhzjxss

<p>汗，大家都听不懂我的话，还发上来！</p>[em06]

hhzjxss

<strong><font face="Verdana" color="#61b713">刺桐</font></strong>快休息去吧。我也困了，明儿见！