jxncfxsf 发表于 2012-1-19 12:48

一问题
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 发表于 2012-1-19 17:29

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 发表于 2012-1-19 20:54

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 发表于 2012-1-19 21:45

一、下面录制的是选择性粘贴的代码
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.PasteSpecialPaste:=xlPasteAll, Operation:=xlMultiply

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


[*]Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

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

chrissha 发表于 2012-1-19 21:47

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

vbamaster 发表于 2012-1-19 22:28

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

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

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

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

                                                                                                                                                                              老师辛苦了。。。
                                                                                                                                                                              D05:vbamaster

zjyxp 发表于 2012-1-20 12:22

第一题
'Selection.PasteSpecial后面不用逗号,空格就行
'Paste后面要加“:”
'=xlPasteAll应该使用逗号,不是分号


第二题
'Range(对象)("a:a").SpecialCells(xlCellTypeBlanks)(属性).EntireRow(属性).Delete(方法)

雨后彩霞 发表于 2012-1-20 22:09

第一题,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止境 发表于 2012-1-20 22:42

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

ywjun25 发表于 2012-1-20 23:10

2006飞翔:
20组:(2506182465)
第五讲作业答案:
*select 和copy都是方法。
*Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
*Range:对象
SpecialCells(xlCellTypeBlanks):属性
EntireRow:属性
Delete:方法

************
辛苦了。新年快乐!


页: 1 2 3 4 [5] 6 7
查看完整版本: 统计VBA学习小组正式组第四讲的积分帖之作业上交贴