sunjing-zxl
发表于 2012-1-11 14:26
E学委:sunjing-zxl 交作业
Sub 筛选()
运行的语句 (这里没错)
End Sub
错误1:sub和筛选没有空格
错误2:筛选后面没有括号
错误3:end后面没有sub
Sub B()
Call A(100, 500)
End Sub
Sub mysub()
Range("A1") = Myfun(4)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
步骤:
'选择工程管理器里面的sheet1表
'在代码窗口的左上角选择Worksheet
'在代码窗口的右上角选择SelectionChange
梅一枝
发表于 2012-1-11 14:29
A06:梅一枝第3课的作业如下:
1、请找出下面Sub程序中的3个错误之处。
Sub筛选
运行的语句(这里没错)
End答:1.没空格隔开,没带参数用的();2、结束没写SUB正确格式:Sub 筛选()
运行的语句(这里没错) End sub
2、请编写一个名子为“B”的Sub程序,调用下面带参数的“A”程序,第一个参数值为100,第二个参数值为500
Sub A(g1 As Integer, g2 As Integer)
Range("a1") = g1 + g2
End Sub答:sub B() A 100,500 END SUB或者 Sub BB() Call(100,500)Edn sub
3、请编写一个名子为“mysub”的Sub程序,调用下面的函数程序,把函数返回的结果放在A1(VBA中表示为Range("A1"))里。调用时参数的值设置为4(A1的结果显示为24答案为正确)
Function Myfun(A As Integer)
Dim x As Integer
Myfun = 1
For x = A To 1 Step -1
Myfun = Myfun * x
Next x
End Function 答:sub mysub() Range(“a1”)=mayfun(4)End sub
4、我想在sheet1工作表中添加一个SelectionChange事件,请说出添加步骤(只添加开始和结束语句即可)
答:打开工作表,点击VBE编辑器,打开工程窗口,找到 sheet1工作表对象,双击,调出代码窗口,在代码窗口的左上角的 对象窗口上选择WORKSHEET, 在右侧的过程窗口上选择SelectionChange事件,自动形成语句: Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub 回答完毕!
wp8680
发表于 2012-1-11 14:32
第3课的作业如下:
1、请找出下面Sub程序中的3个错误之处。
Sub筛选
运行的语句(这里没错)
End
答:1. 第一句的sub与宏名“筛选”之间应有一空格
2. “筛选”后面得加一对英文半角的括号
3. 结束时语句应为End Sub,少了Sub
2、请编写一个名子为“B”的Sub程序,调用下面带参数的“A”程序,第一个参数值为100,第二个参数值为500
Sub A(g1 As Integer, g2 As Integer)
Range("a1") = g1 + g2
End Sub
答:Sub B()
Call A(100, 500)
End Sub
3、请编写一个名子为“mysub”的Sub程序,调用下面的函数程序,把函数返回的结果放在A1(VBA中表示为Range("A1"))里。调用时参数的值设置为4(A1的结果显示为24答案为正确)
Function Myfun(A As Integer)
Dim x As Integer
Myfun = 1
For x = A To 1 Step -1
Myfun = Myfun * x
Next x
End Function
答:Sub mysub()
Range("A1") = Myfun(4)
End Sub
4、我想在sheet1工作表中添加一个SelectionChange事件,请说出添加步骤(只添加开始和结束语句即可)
答:双击工程窗口的Sheet1,在代码窗口的上左边下拉中选择Worksheet,右边选择SelectionChange事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
君子豹变
发表于 2012-1-11 15:16
第1题
Sub筛选
运行的语句 (这里没错)
End
答:错了三处,Sub后要空格,名称后要有括号,结束语句为End Sub
正确过程
Sub 筛选()
'运行的语句 (这里没错)
End Sub
第2题
Sub A(g1 As Integer, g2 As Integer)
Range("a1") = g1 + g2
End Sub
答案:
Sub b()
Call A(100, 500)
End Sub
第3题
Sub mysub()
Range("a1") = Myfun(4)
End Sub
第4题
在工程窗口,双击Microsoft Excel对象中的Sheeet1对象,在弹出的代码窗口里,在对象选项中选择Worksheet,在过程选项中选择SelectionChange,代码区域就自动添加了开始和结束语句。
szczm121
发表于 2012-1-11 15:47
G17:SZCZM121:
'1、请找出下面Sub程序中的3个错误之处。
' Sub筛选 1、sub和宏名称之间有空格,2、后面有半角全括号。
' 运行的语句 (这里没错)
' End 3、END后面空格后要加SUB
Sub 筛选()
运行的语句 (这里没错)
End Sub
'2、请编写一个名字为“B”的Sub程序,调用下面带参数的“A”程序,第一个参数值为100,第二个参数值为500
Sub A(g1 As Integer, g2 As Integer)
Range("a1") = g1 + g2
End Sub
Sub B()
A 100, 500
End Sub
'3、请编写一个名子为“mysub”的Sub程序,调用下面的函数程序,把函数返回的结果放在A1(VBA中表示为Range("A1"))里。调用时参数的值设置为4(A1的结果显示为24答案为正确)
Function Myfun(A As Integer)
Dim x As Integer
Myfun = 1
For x = A To 1 Step -1
Myfun = Myfun * x
Next x
End Function
Sub mysub()
Range("A1") = Myfun(4)
End Sub
'4、我想在sheet1工作表中添加一个SelectionChange事件,请说出添加步骤(只添加开始和结束语句即可)
'第一步,在VBE编辑器中,双击工程窗口中sheet1,弹出BOOK1-sheet1(代码)窗口;第二步,点击左上角下拉框,选择WORKSHEET,此时窗口中就会默认出现SelectionChange事件代码首尾句。
yijundanny
发表于 2012-1-11 15:55
**** Hidden Message *****
szczm121
发表于 2012-1-11 15:55
谢谢校长给分,看到你的给出的评语“答案正确”,太开心,我这个零分起学生有进步了。
sddz1977
发表于 2012-1-11 15:57
1、请找出下面Sub程序中的3个错误之处。
a、 sub 空格筛选
b、筛选后加括号(参数)
c、 结尾:end sub
2、请编写一个名子为“B”的Sub程序,调用下面带参数的“A”程序,第一个参数值为100,第二个参数值为500
Sub A(g1 As Integer, g2 As Integer)
Range("a1") = g1 + g2
End Sub
subB()
a(100,500)
end sub
3、请编写一个名子为“mysub”的Sub程序,调用下面的函数程序,把函数返回的结果放在A1(VBA中表示为Range("A1"))里。调用时参数的值设置为4(A1的结果显示为24答案为正确)
Function Myfun(A As Integer)
Dim x As Integer
Myfun = 1
For x = A To 1 Step -1
Myfun = Myfun * x
Next x
End Function
submysub()
Range("A1")=Myfun(4)
End Sub
4、我想在sheet1工作表中添加一个SelectionChange事件,请说出添加步骤(只添加开始和结束语句即可)
Private Sub sheet1_Change( )
End Sub
sddz1977
发表于 2012-1-11 15:59
更改第4题:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
ada_smile
发表于 2012-1-11 16:20
1.Sub与程序名称之间要有空格,程序名称后面有(),程序结束 end sub正确的应该为
Sub 筛选()
运行的语句
End sub
2.Sub test B()
call A g1=100,g2=500
End sub
3.Sub mysub()
range("A1")=myfun(4)
End sub
4.在工程模块选中sheet1双击调出代码模块,左上角选项选中 worksheet,在后面的属性列表中选中selectionchange。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
页:
1
2
[3]
4
5
6
7
8
9
10
11
12