V快4班第2课作业下载及上传

linlin3618

回复 兰色幻想 的帖子
9 i) x+ R! X& J. B1 F3 a) S
怎么用回复可见帖交作业?

Tristone

领作业来了

shejiang88

4 D6 T, g* F' Y& C# Q我来看看啊作业不知道对不对啊，我一进努力了，校长不好意思，这几天工作太忙了啊，我上传不起作业，只有把代码写的上面了啊
9 ~4 O% r# O" f7 _+ X0 r    Sub 累加()
Dim M%, S%, A$, rng As Range
' G  D& |5 S7 c' P1 _6 iSet rng = Union([a1:a16], [c4:c11], [d1:d3])
M = 1
For Each cell In rng
    If cell.Value > 5 Then
- a2 v/ s" `6 ?$ b; `7 R' v        M = M + 1
        S = S + cell.Value
        A = cell.Address(0, 0)
2 \) W1 _$ R* Q. ^% x( `% c: ]    End If
; v  `* c2 |& t* eNext cell
) e, J6 G9 m# M7 ]' P8 A& {* BMsgBox "大于5的数个数为：" & S & vbCrLf = (B21) & "大于5的数累计和为：" & M & vbCrLf = (C21) & "最后一个大于5的数地址为：" & A = (D21), , "Kevin"
1 V5 G1 F! }" u( Y. Z2 G' B8 q" pEnd Sub

郑平

回复 兰色幻想 的帖子

V快4作业-【V092】-郑平.rar (12.14 KB, 下载次数: 0)

2011-7-29 18:43 上传

点击文件名下载附件

雄鹰

呵呵 ，脱了好几节课了，加我的QQ群吧，群号：17115691（EXCEL精英培训快4班）

雄鹰

[hide]作业[hide]
& ^/ A; g$ Y& h3 z7 gSub 累加计数地址()
    Dim Ran As Range
    Dim X As Range
4 X  E& i' b7 t: |: K( J/ \% m" h    Dim M As Integer
    Dim K As Integer
! C6 p) L0 w: V# s% |4 I        M = 0
        K = 0
        With Sheet1
            Set Ran = .Range("A1:A16,C4:C11,D1:D3")
            For Each X In Ran
2 u7 y0 N4 {( J  m# Y                If X.Value > 5 Then M = M + X.Value: K = K + 1
                If M > 100 Then
, P& O! z) N6 L1 Z4 }                    .Range("B21") = M
" D; w8 X; x- b; `% v                    .Range("C21") = K
% p1 A, o0 ~( S$ \$ v3 n                    .Range("D21") = X.Address
                    Exit For
                End If
: l6 ^/ N) Q. P/ x+ y; L& l            Next
        End With
End Sub

% }6 S4 j) F1 j& m4 V8 r$ k