Excel精英培训网

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

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

  [复制链接]
发表于 2012-1-18 16:41 | 显示全部楼层
D13
  1. 1、(1)select是方法,copy是属性;(2)Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
复制代码
  1. 2、range("A:A")是对象,specialcells是range("A:A")的属性(或子对象),entirerow是属性,delete是方法;代码结构为:
  2. 对象.子对象.属性.方法
复制代码

点评

copy是方法  发表于 2012-2-4 10:49
回复

使用道具 举报

发表于 2012-1-18 21:50 | 显示全部楼层
本帖最后由 禾火亦 于 2012-1-18 21:53 编辑


1、select是方法
     copy是方法

2、正确的是
  1. Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
复制代码


   range("a:a")是对象
   specealcells是方法
   EntireRow是属性
   Delete是方法




评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 22:08 | 显示全部楼层

1.select是方法,Copy是方法。
2.PasteSpecial方法后面的说明不能用逗号;说明的各项之间不能用分号要用逗号;每项的值直接用等号,不需要用冒号。正确的代码如下:
Selection.PasteSpecial Paste = xlPasteAll, Operation = xlMultiply
二.Range("a:a")是对象;SpecialCells是方法;;Delete是方法。
对A列的单元格对象使用SpecialCells方法找到包含空值的单元格对象,再利用这些单元格对象的EntireRow属性找到包含空单元格的行,最后使用Delete是方法删除这些行。

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 22:10 | 显示全部楼层

1  select和Copy都是方法
2  正确的是Selection.PasteSpecial  Paste:=xlPasteAll,Operation:=xlMultiply


SpecialCells是属性
EntireRow和Delete是方法

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 22:35 | 显示全部楼层
本帖最后由 byhdch 于 2012-1-28 12:15 编辑

第四课-作业-A09byhdch

一、1、答:select是方法;Copy是方法;
       2、答:错误:①PasteSpecial与Paste间不应为逗号(,),应为空格;②Paste与"="间,缺少冒号(:),应增加冒号(:);③xlPasteAll与Operation间不应为分号(;),应为逗号(,)。
正确为:Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply

二、答:对象:Range("a:a");方法:SpecialCells、Delete;属性:EntireRow
结构为:对象(A列区域)+ 方法(符合条件的空单元格集合)+ 属性(空单元格所在的整行)+ 方法(删除空单元格所在的整行)

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-18 22:44 | 显示全部楼层
第四讲作业
一、 1、 select是属性   Copy是方法
     2、 1. PasteSpecial ,        “,”改空格连接
         2. Paste=                     “=”应 :=  
             3.  xlPasteAll;                 “;” 用 ,  连接
   修改后   Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
二、Range("a:a")   是对象
    SpecialCells(xlCellTypeBlanks)  是Range("a:a")的属性
    EntireRow    是对象Range("a:a").SpecialCells(xlCellTypeBlanks)的属性
    Delete         是方法

评分

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

查看全部评分

回复

使用道具 举报

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

Range("C21:C25").Select         'Select是方法,选定单元格或单元格区域,使用 Select 方法。
Selection.Copy          'copy是方法
Range("E21").Select
Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
'应该是Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply     
'PasteSpecial是方法,后面只能是空格或括号.Paste:=xlPasteAll和Operation:=xlMultiply
是对前面方法的补充说明,

说明项目之间用","分隔.
End Sub

二、下面的代码是定位空单元格并删除,该句代码中哪些是对象,哪些方法,哪些是属性?请简述下面一句代码的结构。
Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'Range("A:A")--对象,SpecialCells--方法,xlCellTypeBlanks--是对前面方法的补充说明,EntireRow--属性,Delete--方法

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-19 09:15 | 显示全部楼层
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
Select和Copy均为方法

Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
SpecialCells(xlCellTypeBlanks)为方法
EntireRow.Delete为属性
Range("a:a")为对象

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-19 10:42 | 显示全部楼层
D组学委:windimi007前来交作业喽!{:3512:}

一、1、select是方法;Copy是方法
       2、(1)PasteSpecail后面不应该是逗号(,),而应该是空格;
            (2)Paste后面少了个冒号(:);
            (3)xlPasteAll后面不应该是分号(;),而应该是逗号(,)
            综上所述,正确的写法应该是:
           
  1. Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
复制代码

二、对象:Range("a:a")
       属性:EntireRow
       方法:SpecialCells,Delete
       Range("a:a").SpecialCells(xlCellTypeBlanks)形成一个新的对象,然后就是“对象.属性.方法”

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-19 11:21 | 显示全部楼层
1、下面代码中请回答select是方法还是属性?Copy是方法还是属性
   答:Select和Copy为方法

2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
1.方法后面说明用空格,不是逗号;2.方法说明用“:=”来表示,不是等号;3.各说明之间用逗号分隔,不是分号。
Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
3、  Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
     Range("a:a")为对象,
     SpecialCells(xlCellTypeBlanks)为Range("a:a")的属性;
     EntireRow为Range("a:a").SpecialCells(xlCellTypeBlanks)对象的属性;
     Delete为Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow对象的方法;
     A列中空单元格整行删除


评分

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

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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