统计VBA学习小组正式组第三讲的积分帖之作业上交贴
说明:统计帖每个学员只能跟帖回复一次,也就是在原来回复楼层的基础上点编缉,不要一个链接一层楼,否则不计算积分。
各小组学员上交作业时,一定要点“我要参加”,并注明自己的新组编号和论坛ID,如果点击过“我要参加”但没有跟帖提交作业的,扣该学员5积分;如果跟帖提交了作业,但没有点“我要参加”的,不给予评分。
PS:这样我好统计哈。。。嘿嘿!!!
请各学员看清上面的说明,免得被扣了分分!
回贴时,不用回复可见,俺设成了仅楼主可见,直接回复即可!
第三讲作业链接:
http://www.excelpx.com/thread-219185-1-1.html C12:hrpotter
1、筛选前少空格;筛选后少();end后加空格加sub
2、Sub B()
Call A(100, 500)
End Sub
3、Sub mysub()
Range("A1") = myfun(4)
End Sub
4、工程窗口-双击sheet1对象-代码窗口-对象列表框选择worksheet对象-过程列表框选择selectionchange事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "你改变了选择区域!"
End Sub
本帖最后由 windimi007 于 2012-1-11 12:27 编辑
终于占到前排了!{:3512:}
1、⑴“Sub”和“筛选”之间少了一个空格; ⑵“筛选”后面少了一对半角括号(“()”) ⑶“End”应该改为“End Sub” 综上所述,正确的写法应该是:Sub 筛选()
运行的语句
End Sub
2、
Sub b()
Call A(100, 500)
End Sub
3、
Sub mysub()
Range("A1") = Myfun(4)
End Sub
4、双击“Sheet1”工作表——单击“(通用)”下拉按钮——选择“Worksheet”即可。
如果需要选择其它的工作表事件 ——单击右边的下拉按钮,选择需要的事件即可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
'第1题 :1、“Sub”与“筛选”之间应该有个空格
' 2、“筛选”后少一对()
' 3、“End”后少“Sub”
'第2题:
Sub B()
Call A(100, 500)
End Sub
'第3题:
Sub mysub()
Range("A1") = myfun(4)
End Sub
'第4题:1、在工程资源管理器中双击Sheet1;2、在【通用】下拉框中选中worksheet,在右边的下拉框中选择SelectionChange事件;3、在下面的开始结束语句内写入代码即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
D03 从从容容
第3课作业
1:错误一:SUB与过程名之间要用空格隔开。
错误二:过程名后面要用 ()。
错误三:结束要用 ENDSUB
正确代码:
Sub 筛选()
运行语句
End sub
2: Sub B()
Call A(100, 500)
End Sub
3: Sub mysub()
Range("a1") = Myfun(4)
End Sub
4: 第一:双击工程资源管理器中的Sheets(sheet1)对象。
第二:在对象列表框中选择Worksheet,在过程列表框中选择SelectionChange。
代码窗口出现下面语句:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
本帖最后由 wenchduan 于 2012-1-11 18:32 编辑
A组长:wenchduan
1、三处错误:1)sub后没空格;
2)筛选后没括号;
3)结束语句不对。正确应为:
Sub 筛选()
运行的语句(这里没错)
End sub
2、Sub B() Dim a1%,b1% a1=100 b1=500 Call A(a1,b1 ) End Sub
3、Sub mysub() Range("A1").Value = Myfun(4)
End Sub
4、步骤:首先在工程窗口选择sheet1双击,再代码窗口的对象列表框选择Worksheet,而后在过程列表框选择SelectionChange即可。开始结束语句如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 语句 End Sub
第3课的作业如下:
1、请找出下面Sub程序中的3个错误之处。
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()
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").Value = Myfun(4)
End Sub
4、我想在sheet1工作表中添加一个SelectionChange事件,请说出添加步骤(只添加开始和结束语句即可)
答:双击对象中的“sheet1”,选取“worksheet”及“selectionchange”。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
A08:开心rabbit
1.请找出下面Sub程序中的3个错误之处。
Sub_(空格)筛选()
运行的语句(这里没错)
End Sub
2.Sub B()
Call A(100, 500)
End Sub
3.Sub mysub()
Range("A1").Value = Myfun(4)
End Sub
4.选择工程窗口中SHEET1,双击,在代码窗口,左侧通用下拉,点WORKSHEET
'第3课的作业如下:
'1请找出下面Sub程序中的3个错误之处?
'
' Sub筛选
'运行的语句 (这里没错)
' End
'答:正确的应该是:
' Sub 筛选()
' 运行代码 (这里没错)
' End Sub
'
'2、请编写一个名子为“B”的Sub程序,调用下面带参数的“A”程序,第一个参数值为100,第二个参数值为500
Sub A(g1 As Integer, g2 As Integer)
Range("a1") = g1 + g2
End Sub
'答:第一个方法
Sub B1()
Call A(100, 500)
End Sub
'第二个方法
Sub B2()
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
第一题
1、sub与筛选间敲入空格
2、筛选后加()
3、最后以end sub结束
第二题
Sub B()
Call A(100, 500)
End Sub
第三题
Sub mysub()
Range("A1") = Myfun(4)
End Sub
第四题
选中sheet1模块,在对象框选worksheet ,过程框选SelectionChange
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub