统计VBA学习小组正式组第四讲的积分帖之作业上交贴
本帖最后由 冠军欧洲2010 于 2012-3-6 22:37 编辑说明:
统计帖每个学员只能跟帖回复一次，也就是在原来回复楼层的基础上点编缉，不要一个链接一层楼，否则不计算积分。
各小组学员上交作业时，一定要点“我要参加”，并注明自己的新组编号和论坛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 Macro4.' 宏由 Lenovo User 录制，时间: 2012-1-175. 6.Range("C21:C25").Select7.Selection.Copy8.Range("E21").Select9.Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply10. 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是整行对象的方法 意思是删除空白的整行。
一、
1、select是方法，copy是方法
2、第一个错误：Selection.PasteSpecial后面是空格，而不是","
第二个错误：Paste后面少个":"
第三个错误：xlPasteAll后面是","，而不是";"
二、Range("a:a")是对象
SpecialCells(xlCellTypeBlanks)是方法，括号里面是参数
EntireRow是属性
Delete是方法
A列的所有空单元格所在的所有行删除
Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow整个作为一个对象 本帖最后由 wenchduan 于 2012-1-18 10:31 编辑
一、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相匹配的单元格所包含行的值删除。
一、
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是方法，指将空单元格的整行删除
Sub Macro1()
'
' Macro1 Macro
' 宏由 Lenovo User 录制，时间: 2012-1-17
Range("C21:C25").Select
Selection.Copy
Range("E21").Select
'错误代码Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply'正确代码
End Sub答：上述代码中Select和Copy都是方法。
上述错误代码错在：1. PasteSpecial后面不该是个逗号应该是个空格；
2. Paste后面的等号前应该有个冒号；
3. xlPasteAll后面不应该是个分号，应该是个逗号。
Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete上述代码中：Range("a:a")——对象
SpecialCells——方法
xlCellTypeBlanks——属性
EntireRow——属性
Delete——方法
整行代码的意思是：定位A列中的空单元格后整行删除。
一、1、select是方法Copy是方法。
2、Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
逗号改成空格，加一个冒号，分号改逗号。
二、Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
range（"a:a")是对象，specialcell是它的属性 前面2个一起 作为一个对象，entirerow是它的属性，前面3个一起做为对象，删除是方法。 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是整行对象的方法 意思是删除空白的整行。
老师辛苦了，祝健康 快乐 ~ 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属性