统计VBA学习小组正式组第三讲的积分帖之作业上交贴

冠军欧洲2010

说明:
统计帖每个学员只能跟帖回复一次，也就是在原来回复楼层的基础上点编缉，不要一个链接一层楼，否则不计算积分。
各小组学员上交作业时，一定要点“我要参加”，并注明自己的新组编号和论坛ID，如果点击过“我要参加”但没有跟帖提交作业的，扣该学员5积分；如果跟帖提交了作业，但没有点“我要参加”的，不给予评分。
PS：这样我好统计哈。。。嘿嘿！！！
请各学员看清上面的说明，免得被扣了分分！
回贴时，不用回复可见，俺设成了仅楼主可见，直接回复即可！
第三讲作业链接：

http://www.excelpx.com/thread-219185-1-1.html

hrpotter

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

终于占到前排了！{:3512:}

1、⑴“Sub”和“筛选”之间少了一个空格；

     ⑵“筛选”后面少了一对半角括号（“()”）

       ⑶“End”应该改为“End Sub”

       综上所述，正确的写法应该是：

1. Sub 筛选()
   
2.     运行的语句
   
3. End Sub

复制代码

2、

1. Sub b()
   
2.     Call A(100, 500)
   
3. End Sub

复制代码

3、

1. Sub mysub()
   
2.     Range("A1") = Myfun(4)
   
3. End Sub

复制代码

4、双击“Sheet1”工作表——单击“（通用）”下拉按钮——选择“Worksheet”即可。
如果需要选择其它的工作表事件 ——单击右边的下拉按钮，选择需要的事件即可。

1. 
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4. 
   
5. End Sub

复制代码

rxj_0414

1. 
   
2. '第1题 ：1、“Sub”与“筛选”之间应该有个空格
   
3. '        2、“筛选”后少一对（）
   
4. '        3、“End”后少“Sub”
   
5. '第2题：
   
6. Sub B()
   
7.     Call A(100, 500)
   
8. End Sub
   
9. '第3题：
   
10. Sub mysub()
    
11.     Range("A1") = myfun(4)
    
12. End Sub
    
13. '第4题：1、在工程资源管理器中双击Sheet1；2、在【通用】下拉框中选中worksheet，在右边的下拉框中选择SelectionChange事件；3、在下面的开始结束语句内写入代码即可
    
14. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
15. 
    
16. End Sub
    

复制代码

从从容容

D03   从从容容
第3课作业
1：错误一：SUB与过程名之间要用空格隔开。
   错误二：过程名后面要用 （）。
   错误三：结束要用 END  SUB
   正确代码:
   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

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

开心rabbit

第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                                                       

wangyi860214

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

yewei113

'第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

zjcat35

第一题
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