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

冠军欧洲2010

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

第四讲作业链接：
http://www.excelpx.com/thread-220382-1-1.html

梅一枝

一、下面录制的是选择性粘贴的代码.
1、下面代码中请回答select是方法还是属性？Copy是方法还是属性
2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误，请找出来改正。注：selection是表示正在选取的单元格对象。

1.  Sub Macro1()

2.  '

3.  ' Macro1 Macro

4.  ' 宏由 Lenovo User 录制，时间: 2012-1-17

5.   

6.  Range("C21:C25").Select

7.  Selection.Copy

8.  Range("E21").Select

9.  Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply

10. End Sub

复制代码

答：1、SELECT 是属性   copy 是方法

2、对象方法的补充说明用空格隔开   不能用=号表示而用 ：=表示  并列关系用逗号分隔不能用分号分隔

正确格式为： Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply

二、下面的代码是定位空单元格并删除，该句代码中哪些是对象，哪些方法，哪些是属性？请简述下面一句代码的结构。

1.  Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

答：Range("a:a") 是对象， SpecialCells(xlCellTypeBlanks)是Range("a:a")对象的方法并返回包含空白的单元格，EntireRow是新产生（上一步返回的空白单元格）对象的属性，代表整行的意思，Delete是整行对象的方法 意思是删除空白的整行。

hrpotter

一、
1、select是方法，copy是方法
2、第一个错误：Selection.PasteSpecial后面是空格，而不是","
     第二个错误：Paste后面少个":"
     第三个错误：xlPasteAll后面是","，而不是";"
二、Range("a:a")是对象
    SpecialCells(xlCellTypeBlanks)是方法，括号里面是参数
    EntireRow是属性
    Delete是方法
    A列的所有空单元格所在的所有行删除
    Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow整个作为一个对象

wenchduan

一、1、Select是方法，Copy是方法。
       2、Selection.PasteSpecial , Paste=xlPasteAll中间的逗号改成空格；
             Paste=xlPasteAll，应为Paste：=xlPasteAll；
            Paste=xlPasteAll;Operation:=xlMultiply中的分号该逗号。
二、Range("a:a")为对象，SpecialCells、delete为方法，EntireRow为属性。
       Range("a:a").SpecialCells(xlCellTypeBlanks)为EntireRow属性的对象；
       Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow为delete方法的对象。
       代码表述：对于A列中与xlCellTypeBlanks相匹配的单元格所包含行的值删除。

linch92413

一、
　1、select和copy都是方法
　2、三个错误
　　　1、Pastespecial方法后面应该是空格，不是逗号
　　　2、paste属性后面应该是:=,而不是直接跟＝
　　　3、paste和operation两个参数之间产用逗号(,)隔开，而不是用;
二、Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
　　Range("a:a")　是对象
　　SpecialCells(xlCellTypeBlanks)　　是对象
　　EntireRow　　是属性
　　Delete　　是方法
　　
　　Range("a:a")是对象，指Ａ列
　　SpecialCells(xlCellTypeBlanks)是Range("a:a")的子对象，指Ａ列的空单元格
　　EntireRow是空单元格的属性，指整行
　　Delete是方法，指将空单元格的整行删除

happym8888

1. 
   
2. Sub Macro1()
   
3. '
   
4. ' Macro1 Macro
   
5. ' 宏由 Lenovo User 录制，时间: 2012-1-17
   
6. 
   
7. Range("C21:C25").Select
   
8. Selection.Copy
   
9. Range("E21").Select
   
10. '错误代码Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
    
11.               Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply'正确代码
    
12. 
    
13. End Sub

复制代码

答：上述代码中Select和Copy都是方法。
       上述错误代码错在：1. PasteSpecial后面不该是个逗号应该是个空格；
                                      2. Paste后面的等号前应该有个冒号；
                                      3. xlPasteAll后面不应该是个分号，应该是个逗号。

1. Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

复制代码

上述代码中：Range("a:a")——对象
                     SpecialCells——方法
                     xlCellTypeBlanks——属性
                     EntireRow——属性
                     Delete——方法
整行代码的意思是：定位A列中的空单元格后整行删除。

F_LM

一、1、select是方法Copy是方法。
    2、Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
逗号改成空格，加一个冒号，分号改逗号。
二、Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      range（"a:a")是对象，specialcell是它的属性 前面2个一起 作为一个对象，entirerow是它的属性，前面3个一起做为对象，删除是方法。

csmctjg

c组学委：csmctjg

题一、
    1、SELECT是方法，COPY也是方法。
    2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 的错误。
       错误一：PasteSpecial后面是空格，不能是逗号；
       错误二：Paste后面应该是冒号和等于号，不能直接是等于号；
       错误三：xlPasteAll后面应该是逗号，不能是分号。
       所以该句代码应该为：Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply

题二、
    Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete中的对象有：Range("a:a")、Range("a:a").SpecialCells(xlCellTypeBlanks)、Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow。
    方法有：SpecialCells、Delete
    属性有：EntireRow

梅一枝

1题 答：1、SELECT 是方法  copy 是方法

2、对象方法的补充说明用空格隔开   不能用=号表示而用 ：=表示  并列关系用逗号分隔不能用分号分隔

正确格式为： Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply


2题 答：Range("a:a") 是对象， SpecialCells(xlCellTypeBlanks)是Range("a:a")对象的方法并返回包含空白的单元格，EntireRow是新产生（上一步返回的空白单元格）对象的属性，代表整行的意思，Delete是整行对象的方法 意思是删除空白的整行。

老师辛苦了，祝健康 快乐 ~

qushui

A组学委：qushui
一、
1、select和copy都是表示一个动作，是方法
2、改正后为：Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
二、
对象：A列Range("a:a")，A列中的空白单元格Range("a:a").SpecialCells(xlCellTypeBlanks)，A列空白单元格的整行Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow
方法：delete方法
属性：SpecialCells和EntireRow属性