禾火亦 发表于 2012-1-18 21:50

本帖最后由 禾火亦 于 2012-1-18 21:53 编辑


1、select是方法
   copy是方法

2、正确的是
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply

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




w2001pf 发表于 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是方法删除这些行。

bikong01 发表于 2012-1-18 22:10


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


SpecialCells是属性
EntireRow和Delete是方法

byhdch 发表于 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列区域)+ 方法(符合条件的空单元格集合)+ 属性(空单元格所在的整行)+ 方法(删除空单元格所在的整行)

jinglingshu 发表于 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         是方法

EP学员 发表于 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--方法

shen3360 发表于 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")为对象

windimi007 发表于 2012-1-19 10:42

D组学委:windimi007前来交作业喽!{:3512:}

一、1、select是方法;Copy是方法
       2、(1)PasteSpecail后面不应该是逗号(,),而应该是空格;
            (2)Paste后面少了个冒号(:);
            (3)xlPasteAll后面不应该是分号(;),而应该是逗号(,)
            综上所述,正确的写法应该是:
            Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
二、对象:Range("a:a")
       属性:EntireRow
       方法:SpecialCells,Delete
       Range("a:a").SpecialCells(xlCellTypeBlanks)形成一个新的对象,然后就是“对象.属性.方法”

liuho1 发表于 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:=xlMultiply3、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列中空单元格整行删除


开心妙妙 发表于 2012-1-19 12:35

第一题:
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这里返回的父子对象关系, 区域.空单元格.整行.删除
页: 1 2 3 [4] 5 6 7
查看完整版本: 统计VBA学习小组正式组第四讲的积分帖之作业上交贴