【二期VBA入门班】第五课作业上交贴(11、12组)

laosanjie · 发表于 2008-5-29 20:39

【二期VBA入门班】第五课作业上交贴(11、12组)请11、12组的学员在此跟贴交作业。注意！交作业步骤：1、首先上传好经压缩的作业；2、就是一定要记得选点左边”特殊内容”下面的“威望贴”，并在出现“用户提示”的对话窗口下面的输入框中输入 5 (里面原来是1000，一定要改成5 )后确定；3、再点“发表”就可按要求上交作业。无论作业通过还是未通过，都不要再重复上交了(以第一次批改为准)，否则删贴并扣减论坛培训币！作业一旦上交，就不能再编辑自己的贴子了，否则以作弊论处！

liuhao_goody · 发表于 2008-5-29 21:05

作业越来越难了,勉强做完了,请老师指点一下.

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

看不到你的作业附件你咋用“回复可见”交作业？！要用“威望贴”上交作业的！还是没看到你传上来的作业？！

[此贴子已经被laosanjie于2008-5-30 18:09:15编辑过]

zh001 · 发表于 2008-5-29 21:30

[Power=5]

PHFPor5S.rar (14.61 KB, 下载次数: 4)

冰雪儿 · 发表于 2008-5-30 00:35

[Power=5]

cFIKnWo9.rar (12.87 KB, 下载次数: 2)

大致若汝 · 发表于 2008-5-30 09:18

[Power=5]

qhgrlPhE.rar (26.77 KB, 下载次数: 2)

2008-5-30 09:18 上传

点击文件名下载附件
【二期VBA入门班】第五课作业上交贴(11、12组)

rivate Sub Worksheet_SelectionChange(ByVal Target As Range) ←错用了单元格选取事件程序？！ Dim I As Integer   I = Range("A2:A6").Find(Target).Row     If Target.Column = 1 And Target.Row >= 2 And Target.Row <= 6 Then        [F1] = Target        [F2] = Range("C" & I)     End If End Sub   ↑这个程序实际也运行不了？！

rivate Sub Worksheet_Change(ByVal Target As Range) 方法一On Error Resume Next  '忽略代码运行中的错误,并越过错误继续执行后面的语句, 最好能加上这一句，以免输了错名时跳出讨厌的报错信息！ If Target.Cells = Sheet2.Range("f1") Then  Range("f2") = Range("a2:c6").Find(Range("f1")).Offset(, 2) End IfEnd Sub

rivate Sub Worksheet_Change(ByVal Target As Range)方法二Dim m As LongOn Error GoTo 100  '遇到错误跳转到 100:  If Target.Column = 6 And Target.Row = 1 Then     m = Range("a:a").Find(Range("f1"), lookat:=xlWhole).Row     Range("f2") = Range("c" & m)  End If  Exit Sub100:   Range("f2").ClearContents   MsgBox "查无此人!"End Sub[/Power][/Power]通过。

[此贴子已经被laosanjie于2008-5-30 18:46:29编辑过]

liuhao_goody · 发表于 2008-5-30 17:36

不好意思,前次可能IE问题.附件不当.请批改![Power=5]

W0c4dYrj.rar (14.26 KB, 下载次数: 3)

小聪 · 发表于 2008-5-31 02:13

加班赶做完作业。有点仓促，希望能通过！[Power=5]

ynsZaSlJ.rar (18.68 KB, 下载次数: 2)

2008-5-31 02:12 上传

点击文件名下载附件
【二期VBA入门班】第五课作业上交贴(11、12组) 第1题“用SpecialCells方法删除A1:E26里的空单元格，删除后下面的单元格向上移动”可不用循环的。如下：Sub 删除空单元格()   Range("A1:E26").SpecialCells(xlCellTypeBlanks).Delete End Sub第2题：结果是对的，但没达到题目 要求的用VBA引用工作表函数的方法。[/Power]通过。

[此贴子已经被laosanjie于2008-5-31 9:40:58编辑过]

hjtest · 发表于 2008-5-31 17:36

[Power=5]交第5次作业。请老三届老师阅。谢谢

rkNw04K2.rar (13.95 KB, 下载次数: 2)

2008-5-31 17:36 上传

点击文件名下载附件
【二期VBA入门班】第五课作业上交贴(11、12组) 第2题：要求用VBA引用工作表函数的方法          A、在B1中计算出表1、表2、表3 中1月份工资总额←这个不符合题目的要求！

rivate Sub Worksheet_Change(ByVal Target As Range) Dim Mrow1 As Integer <strike>'If Target.Column = 6 And Len(Target) > 0 Then</strike>  ←这样没指定行数是多少？！ If Target.Column = 6 And Target.Row = 1 Then     Mrow1 = Range("A:A").Find(Target).Row Range("F2") = Range("C" & Mrow1) End If End Sub [/Power]可通过。

[此贴子已经被laosanjie于2008-5-31 18:41:47编辑过]

bujing · 发表于 2008-6-1 19:08

[Power=5]

nvwWqzPx.rar (14.59 KB, 下载次数: 4)

2008-6-1 19:08 上传

点击文件名下载附件
【二期VBA入门班】第五课作业上交贴(11、12组) 第3题要求用工作表事件和find方法完成。

rivate Sub Worksheet_Change(ByVal Target As Range) Dim x%On Error Resume Next '←忽略代码运行中的错误,并越过错误继续执行后面的语句, 最好能加上这一句，以免输了错名时跳出讨厌的报错信息！    If Target = Range("F1") Then         x = Range("A:A").Find(Target).Row     Range("F2") = Range("C" & x)    End IfEnd Sub [/Power]可通过。

[此贴子已经被laosanjie于2008-6-1 19:46:22编辑过]

zxw12092 · 发表于 2008-6-1 23:27

[Power=5] 交作业

862vMN3Y.rar (12.6 KB, 下载次数: 3)

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

【二期VBA入门班】第五课作业上交贴(11、12组)

上交作业

请老师指点,谢谢!