论坛 › Excel VBA实战营2期 › 统计VBA学习小组正式组第三讲的积分帖之作业上交贴

gaoshuichang1 发表于 2012-1-11 16:42

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

gaoshuichang1 发表于 2012-1-11 13:41 static/image/common/back.gif
第一题
⑴sub和筛选之间应有一空格;
⑵筛选后面应有"()";


第一题
⑴sub和筛选之间应有一空格;
⑵筛选后面应有"()";
⑶END后面应加一个"空格"和"SUB”。
第二题
⑴直接调用程序"A”
Sub B()
   A 100, 500
End Sub
⑵利用call调用程序"A”
Sub B()
   Call A(100, 500)
End Sub
第三题
Sub Mysub()
   Range("A1") = Myfun(4)
End Sub
第四题
在工程窗口双击sheet1，调出sheet1代码窗口，在对象列表框下选worksheet，再在过程列表框里选择SelectionChange。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Address
End Sub

亦铭 发表于 2012-1-11 16:43

1、SUB后应有一空格；程序名个应有一对半角括号（）；结尾应为END SUB
2、Sub b()
CALL A(100, 500)
End Sub
3、Sub mysub()
Range("A1") = Myfun(4)
End Sub
4、在VBE的工程窗口中双击SHEET1工作表,在右边的代码窗口上方分别选择WORKSHEET和SELECTIONCHANGE即可

开心妙妙 发表于 2012-1-11 16:48

第一题：
Sub 筛选()
    运行的语句
End Sub

第二题：
Sub B()
    Call A(100, 500)
End Sub

第三题：
Sub mysub()
    Range("A1") = Myfun(4)
End Sub

第4题:
第一步: 选择Sheet1 (Sheet1)
第二步: 选择Worksheet
第三步: 选择SelectionChange

qqyyh 发表于 2012-1-11 17:50

linch92413 发表于 2012-1-11 18:02

第一题：
　　错误1：sub和过程名之间没有空格
　　错误2：过程名后没有括号
　　错误3：结束语句少了sub
正确如下：
Sub　筛选（）
    运行的语句（这里没错）
End　sub

第二题
Sub b()
    Call A(100, 500)
End Sub

第三题
Sub mysub()
    Range("A1") = Myfun(4)
End Sub

第四题
在工程窗口中双击sheet1,调出sheet1的代码窗口，在上面的对象列表框中选择worksheet,再在右边的过

程列表框中，选择selectionChange,就可以出现这个事件的代码框架了

tytytty 发表于 2012-1-11 19:39

D13:tytytty
1、 Sub 筛选()
  运行的语句
End sub
2、Sub B()
Call A(100, 500)
End Sub3、Sub mysub()
         Range("a1") = Myfun(4)
End Sub
4、Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

不解木野狐 发表于 2012-1-11 19:41

本帖最后由 EP财政部 于 2012-1-11 19:48 编辑

C05:不解木野狐
我的作业如下：
1）.找出三个错误：第一个错误是“Sub”和“筛选”之间应该留有空格
                  第二个错误是过程名后面没有（）号
                  第三个错误是过程结束时缺少了Sub关键词
   正确的代码如下：
          SUB 筛选（）
            运行的语句
          END SUB
2)编写的程序如下：
      Sub B()
         Call A(100, 500)
End Sub
3）.编写的程序如下：
       Sub MYSUB()
          Range("A1") = Myfun(4)
       End Sub
4）.添加步骤如下：
   进入VBE窗口后，双击SHEET1工作表，在打开的代码窗口左上下拉菜单中选择WORKSHEET,在左边的下拉菜单中选择SelectionChange事件，这样即打开了工作表的选区改变事件，最后在代码窗口中添加代码即可。

nnzpark 发表于 2012-1-11 19:48

VBA第三课，提交作业了……

vbamaster 发表于 2012-1-11 20:04

1、请找出下面Sub程序中的3个错误之处。
         Sub筛选
            运行的语句（这里没错）
         End
      答：1）程序名前面缺“空格”；2）程序名后面没有“括号”；3）End应为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()
               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事件，请说出添加步骤（只添加开始和结束语句即可）
      答：
          打开VBE---双击工程窗口里的sheet1----对象下拉框选择“Worksheet”---过程下拉框选择“SelectionChange”，代码如下：
          Private Sub Worksheet_SelectionChange(ByVal Target As Range)

          End Sub

jjxym 发表于 2012-1-11 20:42

1、 Sub与筛选没有空格；筛选后面没有参数、括号；End后面没有Sub

2、   Sub B ()
                  A g1 = 100, g2 = 500
            End Sub

3、Sub mysub()
            Range("a1") = Myfun(4)
      End Sub

4、        在工程窗口中选择sheet1，并双击，打开代码窗口，在代码窗口中的对象列表中选取Workbook，在代码窗口中会自动添加事件程序的开始和结束语句，在过程列表中选取SelectionChange事件。

查看完整版本: 统计VBA学习小组正式组第三讲的积分帖之作业上交贴