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

cntang · 发表于 2008-5-25 18:04

[Power=5]

KMRKkOc3.rar (21.15 KB, 下载次数: 4)

fish191 · 发表于 2008-5-25 22:31

[Power=5]

UpdkrCEm.rar (18.92 KB, 下载次数: 3)

我是风123 · 发表于 2008-5-25 22:37

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

通过。

[此贴子已经被laosanjie于2008-5-26 10:54:52编辑过]

nick0630 · 发表于 2008-5-26 00:15

[Power=5]

2Aa1xezY.rar (15.53 KB, 下载次数: 3)

2008-5-26 00:15 上传

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

rivate Sub Worksheet_SelectionChange(ByVal Target As Range) ←这个是选取单元事件程序？<span lang="EN-US" style="FONT-SIZE: 10.5pt; COLOR: purple; 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: 宋体;">

rivate Sub Worksheet_Change(ByVal Target As Range) ←要求是单元格(里的值)变化事件程序！    If Target.Column > 1 And Target.Column < 7 And Target.Row > 3 And Target.Row < 11 Then       Range("C1") = Target.Address    End If End SubSub 第三题答案() Dim x As Long, y As Long, p As Long  x = Range("IV1").End(xlToLeft).Column  y = Range("A65536").End(xlUp).Row '将A列从最下向上找到的第1个非空单元格的行数赋予变量 y     For p = 2 To x Step 1         Cells(y + p - 1, 1) = Cells(1, p)     Next pEnd Sub [/Power]可以通过。

[此贴子已经被laosanjie于2008-5-26 11:05:11编辑过]

晴空 · 发表于 2008-5-26 14:31

[Power=5]7组晴空交作业啦！呵呵，作业是越来越难了，还好，在老师和同学们的帮助下赶在规定的时间内交了，请老师批改吧，辛苦了！！！

4f7KGHl2.rar (18.82 KB, 下载次数: 4)

2008-5-26 14:30 上传

点击文件名下载附件
【二期VBA入门班】第四课作业上交贴(7、8组) <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: 宋体;">

rivate Sub Worksheet_Change<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: 宋体;">(ByVal Target As Range)<span lang="EN-US" style="FONT-SIZE: 10.5pt; FONT-FAMILY: 宋体; mso-bidi-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;"> <span style="FONT-SIZE: 7.5pt; COLOR: green; FONT-FAMILY: 宋体; mso-bidi-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;">←<span style="FONT-SIZE: 7.5pt; 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;">这个是在你点选单元格里的值发生变化并确定后就会引发事件程序自动执行。                                     ↓这个只要你一点选中某个单元格就会引发事件程序自动执行。

rivate Sub Worksheet_<strike>SelectionChange</strike>(ByVal Target As Range) If Target.Column >= 2 And Target.Column <= 5 And Target.Row >= 4 And Target.Row <= 10 Then Range("c1") = Target.Address                       ↑这里应该是6 End If End Sub [/Power]通过。

[此贴子已经被laosanjie于2008-5-26 16:11:25编辑过]

DBZQZW · 发表于 2008-5-26 14:40

[Power=5]

Eq5ApVoM.rar (12.02 KB, 下载次数: 3)

2008-5-26 14:39 上传

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

rivate Sub Worksheet_SelectionChange(ByVal Target As Range) ←这个只要你一点选中某个单元格就会引发事件程序自动执行!

rivate Sub Worksheet_Change(ByVal Target As Range) ←这个是在你点选单元格里的值发生变化并确定后才会引发事件程序自动执行(这个才是符合这次题目要求的！)。  If Target.Column > 1 And Target.Column < 7 And Target.Row > 3 And Target.Row < 11 Then    [c1] = Target.Address  End IfEnd Sub第4题要求分别用两种方法完成表格内的数字填充，你只做了一种？[/Power]可通过。

[此贴子已经被laosanjie于2008-5-26 16:26:35编辑过]

yibyibhuai · 发表于 2008-5-26 18:34

[Power=5]

YSGMbBdo.rar (18.59 KB, 下载次数: 3)

magiclight · 发表于 2008-5-26 19:15

[Power=5]

qCDpcoJ9.rar (20.28 KB, 下载次数: 3)

Melody2008 · 发表于 2008-5-26 22:32

[Power=5]

c5D8361f.zip (25.41 KB, 下载次数: 3)

lanhai1010 · 发表于 2008-5-28 13:02

[Power=5]

JdQkKCJD.rar (12.96 KB, 下载次数: 3)

2008-5-28 13:01 上传

点击文件名下载附件
【二期VBA入门班】第四课作业上交贴(7、8组) 只做了第1题和第3题。Sub 填充() ←第3题做的不符合题目的要求。 Dim x As Integer For x = 2 To 256 Cells(x, 1) = Cells(1, x) Next x End SubSub第3题_3 () ’第3题Dim x%, y%, n%n = [a65536].End(xlUp).Row + 1  '←将A列从最下向上找到的紧接着第1个非空单元格下面的单元格的行数赋予变量 ny = Cells(1, "iv").End(xlToLeft).Column '←将第1行从最右向左找到的第1个非空单元格的列数赋予变量 y 。    For x = 2 To y       Cells(y, 1) = Cells(1, x)       n = n + 1    Next xEnd Sub Sub第3题_4 ()Dim X%, Y% For X = 2 To Range("iv1").End(xlToLeft).Column     Y = Cells(65536, 1).End(xlUp).Row + 1        Cells(Y, 1) = Cells(1, X) Next XEnd SubSub 填充()’ 第4题要求分别用两种方法完成表格内的数字填充，要求必须要用循环语句完成。j = Range("A65536").End(xlUp).Row + 1m = Range("IV1").End(xlToLeft).ColumnFor k = 2 To mCells(j, 1) = Cells(1, k)j = j + 1Next kEnd Sub Sub 第四题 () '数组方法,运行速度快！Sheets("第4题").SelectDim ARR(1 To 4, 1 To 5), X%, Y %For X = 1 To 4  For Y = 1 To 5     ARR(X, Y) = X * Y  NextNextRange("A1:E4") = ARREnd Sub [/Power]未通过。

[此贴子已经被laosanjie于2008-5-28 14:20:16编辑过]

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

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

8组:fish191交作业

7组晴空交作业啦

第四讲作业

上交作业-第4讲

回复：（laosanjie）【二期VBA入门班】第四课作业上交...