VBA实战营招生考试题（考试结束）

linch92413 · 发表于 2012-8-15 11:47

真想参加校长的实战班啊,不过第二题没做出来

VBA实战营考试题_linch92413.zip (27.11 KB, 下载次数: 8)

hactnet · 发表于 2012-8-15 11:52

H组h15-hactnet交下卷，老师幸苦！
Sub A1()
Dim x
Dim y
Dim r As String, r1 As String, r2 As String
For x = 2 To Range("B65536").End(xlUp).Row

      r1 = Range("B" & x).Address
      r2 = Range("B" & x).Offset(4, 0).Address
      r = Range("A" & x).Address & ":" & r2
      y = Application.Sum(Range(r1 & ":" & r2))
         If y > 14 Then
            Range(r).Interior.ColorIndex = 6
            x = x + 4
         End If

Next x

End Sub
Sub A3()
Dim x, y
Dim arr()
arr = Array(13, 2, 3, 4, 6, 7, 8, 9, 22, 32)
x = 5
Range("A1").Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
Rows(x + 1 & ":" & x + 1).Insert
Range("A" & x + 1) = 100
arr = Application.Transpose(Range("A1:A" & Range("A65536").End(xlUp).Row))
y = UBound(arr)
End Sub

happym8888 · 发表于 2012-8-15 11:55

VBA实战营考试题.rar (18.02 KB, 下载次数: 17)

libenwen2011 · 发表于 2012-8-15 11:55

本帖最后由 libenwen2011 于 2012-8-18 15:41 编辑

老师自定义函数我不会，未做。

我的答案简洁，正确，怎么不给分，我本想去买书，现在没有兴趣学了。

xixoxa · 发表于 2012-8-15 11:58

本帖最后由 xixoxa 于 2012-8-15 11:59 编辑

我的答案上传了老师

VBA实战营考试题.rar (45.56 KB, 下载次数: 16)

sliang28 · 发表于 2012-8-15 11:59

先交了有时间把没写完的再补上

zjyxp · 发表于 2012-8-15 11:59

本帖最后由 zjyxp 于 2012-8-16 09:07 编辑

校长，俺水平差，请多关照！（俺时间也不够了，55）

兰色幻想 · 发表于 2012-8-15 11:59

考试结束

yjss0203 · 发表于 2012-8-15 12:01

yjss0203 发表于 2012-8-15 11:36
快到时间了函数刚有眉目野路子伤不起来的晚没上过课也没用过

霏霏震霏霏城霏霏霏霏城墙砝码

xixoxa · 发表于 2012-8-15 12:54

本帖最后由 xixoxa 于 2012-8-15 12:56 编辑

VBA实战营考试题2.rar (48.58 KB, 下载次数: 20)

		自动登录	找回密码
密码			注册

[练习题] VBA实战营招生考试题（考试结束）

点评

点评

点评

评分

点评

点评

点评

点评

点评