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

开心妙妙

第一题：
Select Copy 是方法
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply 修正错误语句
第二题：
Range ("a:a")是对象
SpecialCells对象的变量方法
xlCellTypeBlanks方法的补充说明,
Range("a:a").SpecialCells(xlCellTypeBlanks)反回空单元格对象
EntireRow属性
Delete方法
'Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow这里返回的父子对象关系, 区域.空单元格.整行.删除

jxncfxsf

一问题
1、代码中请回答select是方法    Copy是方法
2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误，请找出来改正。注：selection是表示正在选取的单元格对象
     答：第一处错误是粘贴PasteSpecial 方法后面是说明，用空格就行了，不能用逗号。
          第二处错误是 Paste=xlPasteAll，要用：=，正确的是Paste:=xlPasteAll
          第三处错误是多项说明我带号分开，而不是用分号分开
二问题
Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("a:a")是对象   SpecialCells(xlCellTypeBlanks)).EntireRow是属性    Delete是方法

        

hactnet

Sub Macro1()
'
' Macro1 Macro
' 宏由 Lenovo User 录制，时间: 2012-1-17
Range("C21:C25").Select      '(此处Select为方法)
Selection.Copy               '(此处copy为方法)
Range("E21").Select          '(此处select为方法)
Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
End Sub
Selection.PasteSpecial , (此处","应为" "空格)Paste(此处少":"号)=xlPasteAll;(此处";"号应为","号)
Operation:=xlMultiply


Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
答：range("a:a") EntireRow是对象，delete是方法,SpecialCells(xlCellTypeBlanks)是属性。

海角天涯0

1、下面代码中请回答select是方法还是属性？Copy是方法还是属性？
答：select和 Copy都是方法。
2、  Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误，请找出来改正。注：selection是表示正在选取的单元格对象。
答：错误1在PasteSpecial后面是空格。错误2在Paste后面是：=。错误3在xlPasteAll后面是逗号。
   正确：Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
二、下面的代码是定位空单元格并删除，该句代码中哪些是对象，哪些方法，哪些是属性？请简述下面一句代码的结构。
  1. Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
答：Range 属于 对象，SpecialCells属于方法，xlCellTypeBlanks属于属性，EntireRow 属于属性，Delete属于方法。
       SpecialCells(xlCellTypeBlanks).EntireRow定位整个的空单元格作用于Range("a:a")对象范围的方法，并且Delete（删除）方法。定位A列空单元格并且删除空单元格整行。

chrissha

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

• Sub Macro1()
• '
• ' Macro1 Macro
• ' 宏由 Lenovo User 录制，时间: 2012-1-17
• Range("C21:C25").Select
• Selection.Copy
• Range("E21").Select
• Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
• End Sub
  

复制代码
答：1）Select是方法，Copy是方法；2）Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply的三个错误：PasteSpecial后面不需要逗号，直接空格就行了，Paste=应该是Paste:=，最后是附注说明之间是用逗号，不是分号，整个句子的正确写法是：Selection.PasteSpecial  Paste:=xlPasteAll, Operation:=xlMultiply

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

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

复制代码
答：Range("a:a")是对象，SpecialCells(xlCellTypeBlanks)是方法，EntireRow是属性，Delete是方法

chrissha

C组10 chrissha
在44楼忘记写自己的组啦

vbamaster

--------------------------------〖第一题〗-----------------------------------------

1）Select和Copy都是方法。
2）正确代码应为：Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply

--------------------------------〖第二题〗-----------------------------------------------------------------------------------------

  Range("a:a")       .      SpecialCells(xlCellTypeBlanks)       .                       EntireRow                              .                 Delete
对象（代表A列）        方法（返回空单元格Range对象）        属性（返回Range对象所在的整个行）            方法（删除Range对象）

                                                                                                                                                                              老师辛苦了。。。
                                                                                                                                                                              D05:vbamaster

zjyxp

1. 第一题
   
2. 'Selection.PasteSpecial后面不用逗号，空格就行
   
3. 'Paste后面要加“：”
   
4. '=xlPasteAll应该使用逗号，不是分号
   
5. 
   
6. 
   
7. 第二题
   
8. 'Range(对象）("a:a").SpecialCells(xlCellTypeBlanks)（属性）.EntireRow（属性）.Delete（方法）
   

复制代码

雨后彩霞

第一题，1，答：SELECT是选取,COPY是复制，两个都是动作，所以都是方法
              2，答：Selection（这儿是空格连接）Pastepecial ，Paste（这儿差个：）=xlPasteAll （这儿用,号连接）Operation:=xlMultiply
第二题，

• Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delet
  

答：Range("a:a")单元格是 对像
       SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        将空单元格所在的行删除，是方法

XUEWU止境

 1、select是方法，Copy是属性；
 2、Selection.PasteSpecial , (应该是空格)Paste(加冒号)=xlPasteAll;(应该是逗号)Operation:=xlMultiply
正确的是Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
3、Range("a:a").是对象　SpecialCells(xlCellTypeBlanks).是方法EntireRow.Delete是属性
结构是　对象．方法．属性