Excel精英培训网

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

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

  [复制链接]
发表于 2012-1-20 23:10 | 显示全部楼层
2006飞翔:
20组:(2506182465)
第五讲作业答案:
*select 和copy都是方法。
*Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
*Range:对象
SpecialCells(xlCellTypeBlanks):属性
EntireRow:属性
Delete:方法

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


评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-20 23:18 | 显示全部楼层
一、1、select是属性  Copy是方法
2、,变.    =变空格   ;变,
              Selection.PasteSpecial.Paste xlPasteAll,Operation:=xlMultiply
二、Range("a:a").SpecialCells(xlCellTypeBlanks)对象;.EntireRow属性;Delete方法

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-21 06:41 | 显示全部楼层
   一、下面录制的是选择性粘贴的代码.
    1、下面代码中请回答select是方法还是属性?Copy是方法还是属性
    答:select、copy是方法

    2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误,请找出来改正。注:selection是表示正在选取的单元格对象。
    答:第一处错误:“PasteSpecial , Paste中间的应用空格隔开;第二处错误:“Paste=xlPasteAll 中间应为:= ;第三处错误:“Paste=xlPasteAll;Operation中间应用逗号隔开。
1.     Sub Macro1()
2.     '
3.     ' Macro1 Macro
4.     ' 宏由 Lenovo User 录制,时间: 2012-1-17
5.      
6.     Range("C21:C25").Select
7.     Selection.Copy
8.     Range("E21").Select
9.     Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
10.  End Sub
    二、下面的代码是定位空单元格并删除,该句代码中哪些是对象,哪些方法,哪些是属性?请简述下面一句代码的结构。    1.     Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    答:Range("a:a")是对象;SpecialCells(xlCellTypeBlanks)是对象;
        EntireRow是对象;Delete是方法

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-21 11:40 | 显示全部楼层
E13学员bynbyn作业
一、1.select是方法,Copy是方法
          2.不应使用逗号 Paste=xlPasteAll应写成Paste:=xlPasteAll Operation:=xlMultiply应写成Operation(xlMultiply)
          二、对象:Range
              方法:SpecialCells  Delete
              属性:EntireRow
              此代码是清空A列

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-22 02:07 | 显示全部楼层
第4课作业答案
一、
1、select是方法,Copy是方法
2、PasteSpecial后面是空格;Paste后面是":=";XlpasteAll后面是“,”,正确应该是:
Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
或者简写成
Selection.PasteSpecial xlPasteAll,xlMultiply
二、
1、 Range("a:a")是对象,SpecialCells是方法,xlCellTypeBlanks是SpecialCells的参数,EntireRow是属性,Delete是方法

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-22 19:02 | 显示全部楼层
F18:寂寞深水鱼
     一、下面录制的是选择性粘贴的代码.
        1、下面代码中请回答select是方法还是属性?Copy是方法还是属性
SELECT是方法;COPY也是方法
        2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误,请找出来改正。注:selection是表示正在选取的单元格对象。
Selection.PasteSpecial  Paste:=xlPasteAll, Operation:=xlMultiply
  • 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

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

复制代码

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-22 22:42 | 显示全部楼层
1.select 和 copy都是方法
2.代码改为:Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
3.Range("a:a"):对象
SpecialCells(xlCellTypeBlanks):方法
EntireRow:属性
Delete:方法

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-24 17:13 | 显示全部楼层
校长新年快乐,辛苦校长了:
1.select和copy分别是选中和复制,都是操作动作(对单元格动态的操作),是方法;
2.第一个错误是第一个逗号,方法和补充参数名称之间用空格分割;
  第二个错误是参数赋值不能直接等号,用参数名称:=参数值
  第三个错误是方法的补充说明用英文状态下逗号分割,不应该用分号分割;
修改为:Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
3.对象:range("a:a")  
            Range("a:a").SpecialCells(xlCellTypeBlanks).
            Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow   
   方法:SpecialCells  Delete
  属性:EntireRow

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-24 22:00 | 显示全部楼层
第一题:1、select和copy是方法
2、Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply中第一个问题是逗号应改为空格,第二个问题是paste后的等号前应加半角冒号,第三个问题是operation前的分号应改为逗号。
第二题:range("a:a")是对象,specialcells是方法,entirrow是属性,delete是方法。

评分

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

查看全部评分

回复

使用道具 举报

发表于 2012-1-25 09:54 | 显示全部楼层
一,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
二,Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
     对象:Range("a:a").SpecialCells(xlCellTypeBlanks)
     属性:EntireRow
     方法:Delete


回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-7 16:37 , Processed in 0.279517 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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