Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!

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

  [复制链接]
发表于 2012-1-18 11:21 | 显示全部楼层
1.        答:Select是方法,Copy是方法。
2.        答:Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
3.        答:Range("a:a").SpecialCells(xlCellTypeBlanks)是对象,EntireRow是属性,Delete是方法;将a列中含有的空单元格的行删除,对象.属性.方法。

评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 11:28 | 显示全部楼层
首次参加不知道是否正确
1、1)Select和Copy都是方法。
    2)election.PasteSpecial , 后的逗号改成空格
       Paste=xlPasteAll赋值语句等号前加冒号
          Paste=xlPasteAll;Operation:=xlMultiply中的应用逗号分开而不是分号。
2、Range("a:a")为对象,SpecialCells和delete为方法,EntireRow为属性。
   Range("a:a").SpecialCells(xlCellTypeBlanks)为对象;
   Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow为对象。
   代码表述:A列中所有与xlCellTypeBlanks匹配的单元格所包含行的内容删除。

评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 11:40 | 显示全部楼层
'本课作业考查大家对“对象方法和属性”三个概念的理解和掌握:
'一下面录制的是选择性粘贴的代码.
'1  下面代码中请回答select是方法还是属性Copy是方法还是属性
'Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误,请找出来改正注:selection是表示正在选取的单元格对象
Sub Macro1()
'
' Macro1 Macro
' 宏由 Lenovo User 录制,时间: 2012-1-17

Range("C21:C25").Select        'select是方法

Selection.Copy         'copy是方法

Range("E21").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
'pastespecial是方法,后面应该是空格,不应该是逗号;paste与后面的xlpasteall间应是“:=”;paste:=xlpasteall与后面之间用逗号。

End Sub

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

Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'range("a:a")是对象
'specialcells是range的方法:特殊单元格定位
'xlcelltypeblanks是specialcells方法的参数,因为该方法要返回range对象,所以要用括号
'entirerow是specialcells方法返回的单元格对象的属性:所在行。该属性返回range对象
'delete是前面所指的单元格的方法:删除

评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 11:41 | 显示全部楼层
select是方法 , Copy是方法
正确应该是这样
Sub Macro1()
'
' Macro1 Macro
' 宏由 Lenovo User 录制,时间: 2012-1-17

Range("C21:C25").Select
Selection.Copy
Range("E21").Select
Selection.PasteSpecial xlPasteAll, Operation:=xlMultiply
End Sub
第一参数名称可以省略,直接输入数据类型,中间用空格分开,参数与参数之间用","逗号分开

点评

第3题  发表于 2012-2-4 10:43
回复

使用道具 举报

发表于 2012-1-18 11:42 | 显示全部楼层
D03  从从容容

1、(1)select, Copy都是方法
   (2)Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
     正确:Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
2、[对象]Range("a:a").[方法]SpecialCells([参数]xlCellTypeBlanks).[属性]EntireRow.[方法]Delete

评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 11:45 | 显示全部楼层
B12:汉娜
一、
1、select和copy都是方法
2、PasteSpecial 后面逗号改成空格;Paste后面应该是:=  ; xlPasteAll后面;改成逗号
二、
对象:Range("a:a") 方法:SpecialCells(xlCellTypeBlanks),Delete 属性:EntireRow
选择A列单元格中的空单元格,返回单元格对象,属性是指定行的全部,方法是删除

评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 12:00 | 显示全部楼层
1 copy方法
2 PasteSpecial和Paste之间去掉","仅留一个空格,Paste和=之间加":",xlPasteAll和Operation之间的";"改成","
   Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
3 Range("a:a")是对象 SpecialCells(xlCellTypeBlanks)和EntireRow分别一级属性和二级属性;
  在整体中Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow是对象,delete是方法

评分

参与人数 1金币 +3 收起 理由
兰色幻想 + 3 第一题少一问

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 12:11 | 显示全部楼层
       一、下面录制的是选择性粘贴的代码.
        1、下面代码中请回答select是方法还是属性?Copy是方法还是属性
Select、Copy都是方法        2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误,请找出来改正。注:selection是表示正在选取的单元格对象。
Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
1PasteSpecial , Paste之间应该是空格2 Paste=xlPasteAll中paste后少了: 3 Paste=xlPasteAll;Operation中;改为,二、下面的代码是定位空单元格并删除,该句代码中哪些是对象,哪些方法,哪些是属性?请简述下面一句代码的结构。
Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
对象 :Range("a:a")    方法:SpecialCells  Delete 属性:EntireRow

评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 12:23 | 显示全部楼层
一、1、都是方法
2、改为Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
二、Range("a:a")是对象,SpecialCells(xlCellTypeBlanks)是方法,EntireRow是属性,Delete是方法。

评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 12:47 | 显示全部楼层
一题:
1答:"select"是方法,"Copy"是方法
2答:修改后为Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
一处"pastespecial"与"paste"不能用逗号",",要用空格" ",二处"paste"与"="之间要加":",三处"xlPasteAll"与"Operation"之间要用逗号",".
二题
答:"Range("a:a")是对象,"SpecialCells(xlCellTypeBlanks)"是属性其中"(xlCellTypeBlanks)"对前面的补充,"EntireRow"是属性,"Delete"是方法.



评分

参与人数 1金币 +5 收起 理由
兰色幻想 + 5 答案正确

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-8 04:59 , Processed in 0.353706 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表