【二期VBA入门班】第四课作业上交贴(7、8组)

laosanjie · 发表于 2008-5-23 00:06

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

lvxingong · 发表于 2008-5-23 08:52

[Power=5] 8组学员 lvxingong

1j9b1jE0.rar (21.26 KB, 下载次数: 7)

7725240 · 发表于 2008-5-23 09:55

[Power=5][/Power]1、你的作业没按规定设定好“威望贴”(上传的作业谁都可以看到和下载！)2、在你没完成申请重新入班情况下，不能批改你的作业(下次上课前若还没办好重新入班手续，再进教室也是要T出的！)

[此贴子已经被laosanjie于2008-5-23 10:44:07编辑过]

xjbejzhj · 发表于 2008-5-23 10:51

[Power=5]

50w0j2Ao.rar (27.83 KB, 下载次数: 5)

Firerabbit · 发表于 2008-5-23 13:08

[Power=5]

pu59Ygz1.rar (23.34 KB, 下载次数: 5)

bin · 发表于 2008-5-23 13:31

[Power=5]

5zrlsZVp.rar (19.93 KB, 下载次数: 4)

yxhmk · 发表于 2008-5-23 13:35

提示: 作者被禁止或删除内容自动屏蔽

zxwazcl · 发表于 2008-5-23 22:57

[Power=5] <table cellspacing="0" cellpadding="0" width="557" border="0" xstr="" style="WIDTH: 418pt; BORDER-COLLAPSE: collapse;"><colgroup><col width="557" style="WIDTH: 418pt; mso-width-source: userset; mso-width-alt: 20370;"></col><col></col><col></col><col></col></colgroup><tbody><tr height="16" style="HEIGHT: 12pt;"><td width="557" height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; WIDTH: 418pt; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">第一题：(选取内容均为当前活动工作表)</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">1、⑴ range("b4").select\⑵ range("b"&4).select\ ⑶ cells(3*256+2).select</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">   ⑷ cells(4,2).select \⑸ cells(4,"b").select\ ⑹ [b4].select</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">2、⑴ range("a2:c5,d4:f8").select\ ⑵ range("定义的区域名称").select</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">   ⑶ Union(Range("a2:c5"), Range("d4:d7")).Select</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">3、⑴ range("1:3,6:7").select \⑵ range("定义的行区域名称").select</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">4、⑴ range("b:d,j:m").select \⑵ range("定义的列区域名称").select</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">第二题:</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">

rivate Sub Worksheet_Change(ByVal Target As Range)</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">If Target.Column >= 2 And Target.Column <= 6 _</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">And Target.Row >= 4 And Target.Row <= 10 Then</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">   Range("c1") = Target.Address</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">End If</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">End Sub</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">第三题:</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">sub 依次填充()</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Dim x as long</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">for x=2 to range("iv1").end(xltoleft).column</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">cells(range("a65536").end(xlup).row+1,1)=cells(1,x)</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">next          ↑应该将此句先赋予给某个变量才好！你这样不利于提高程序的运行速度！</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">end sub</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">第四题:</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">方法一:</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Sub 自动填充1() ←<span style="FONT-SIZE: 10.5pt; FONT-FAMILY: 宋体; mso-bidi-font-family: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-size: 12.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA;">第<span lang="EN-US" style="FONT-SIZE: 10.5pt; FONT-FAMILY: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-bidi-font-size: 12.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-fareast-font-family: 宋体;">4<span style="FONT-SIZE: 10.5pt; FONT-FAMILY: 宋体; mso-bidi-font-family: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-size: 12.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA;">题要求分别用两种方法完成表格内的数字填充,你做了1种？</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Dim x As Integer</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">For x = 1 To 4</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Range("a" & x) = x</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Range("b" & x) = 2 * x</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Range("c" & x) = 3 * x</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Range("d" & x) = 4 * x</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Range("e" & x) = 5 * x</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">Next</td></tr><tr height="16" style="HEIGHT: 12pt;"><td height="16" style="BORDER-RIGHT: #ece9d8; BORDER-TOP: #ece9d8; BORDER-LEFT: #ece9d8; BORDER-BOTTOM: #ece9d8; HEIGHT: 12pt; BACKGROUND-COLOR: transparent;">End Sub希望以后的作业要将程序都做到表里并指定给相应的“按钮”(事件程序除外)，你这样使我看的好累！下次再这样偷懒我将只有判不通过了！</td></tr></tbody></table>[/Power]可以通过。

[此贴子已经被laosanjie于2008-5-24 0:29:44编辑过]

suihuas · 发表于 2008-5-24 20:46

[Power=5]

oPeJxtKJ.zip (21.58 KB, 下载次数: 5)

2008-5-24 20:46 上传

点击文件名下载附件
【二期VBA入门班】第四课作业上交贴(7、8组) Sub 第3题_单击() Dim x As Integer Dim Y As Integer Y = 2 For x = 13 To 22 Cells(x, 1) = Cells(1, Y) Y = Y + 1 Next End Subn= Range("A65536").End(xlUp).Row + 1 ←应该用这课学过的找出A列最下面的第1个空单元格的行数赋予给变量n；m = Range("IV1").End(xlToLeft).Column ←<span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-fareast-font-family: 宋体;">'<span style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 宋体; mso-bidi-font-family: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA;">将第<span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-fareast-font-family: 宋体;">1<span style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 宋体; mso-bidi-font-family: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA;">行从最右向左找到的第<span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-fareast-font-family: 宋体;">1<span style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 宋体; mso-bidi-font-family: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA;">个非空单元格的列数赋予变量<span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA; mso-fareast-font-family: 宋体;"> m <span style="FONT-SIZE: 9pt; COLOR: green; FONT-FAMILY: 宋体; mso-bidi-font-family: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA;">。 [/Power]通过。

[此贴子已经被laosanjie于2008-5-25 12:14:59编辑过]

lsjylb · 发表于 2008-5-25 16:36

[Power=5]

vxGDwNhC.rar (13.78 KB, 下载次数: 5)

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

yxhmk yxhmk 当前离线积分 0 IP卡狗仔卡	发表于 2008-5-23 13:35 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
yxhmk yxhmk 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

【二期VBA入门班】第四课作业上交贴(7、8组)

V入2期第四讲，8组学员上交作业

作业上交

第4次作业完成!太艰难啦!