真想参加校长的实战班啊,不过第二题没做出来
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
本帖最后由 libenwen2011 于 2012-8-18 15:41 编辑
老师自定义函数我不会，未做。
我的答案简洁，正确，怎么不给分，我本想去买书，现在没有兴趣学了。
本帖最后由 xixoxa 于 2012-8-15 11:59 编辑
我的答案上传了 老师
先交了 有时间把没写完的再补上
本帖最后由 zjyxp 于 2012-8-16 09:07 编辑
校长，俺水平差，请多关照！（俺时间也不够了，55）
考试结束
yjss0203 发表于 2012-8-15 11:36 static/image/common/back.gif
快到时间了函数刚有眉目 野路子伤不起来的晚没上过课也没用过
霏霏震霏霏城霏霏霏霏城墙砝码
本帖最后由 xixoxa 于 2012-8-15 12:56 编辑
我是46楼的 我的答案里面第二题自定义函数那：11行31列那 n = 0 Or 1 少写了N=1；最后在End Function前面加上If z < n Then WLOOKUP = "不存在" ； 俺有罪 昨天别人拖去看电影了 忘记考试了 10点40多才知道 写完了没时间检查求求版主再帮我添加上我漏的 我真的想进进阶班 我还是可以的{:091:} 我错了 555555 我把改的2个地方放进来了 求版主给点机会
{:091:}