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

gaoshuichang1

gaoshuichang1 发表于 2012-1-11 13:41
第一题
⑴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

亦铭

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即可

开心妙妙

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

第3课的作业.rar (3.73 KB, 下载次数: 3)

2012-1-11 17:50 上传

点击文件名下载附件

linch92413

第一题：
　　错误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

D13:tytytty
1、

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、

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

复制代码

不解木野狐

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

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

vbamaster

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

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事件。