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

sunjing-zxl

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' 宏由 Lenovo User 录制，时间: 2012-1-17
   
5. 'select,Copy都是方法
   
6. 'PasteSpecial后面多一个逗号,Paste后面少一个冒号,xlPasteAll后面的分号应该为逗号
   
7. Range("C21:C25").Select
   
8. Selection.Copy
   
9. Range("E21").Select
   
10. 'Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
    
11. Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply  
    
12. End Sub
    
13. 
    
14. Sub aa()
    
15. Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
16. 'range是对象
    
17. 'SpecialCells(xlCellTypeBlanks)是方法,括号内的是方法的参数,表示对象指定区域的空单元格
    
18. 'EntireRow是属性,对象包含指定区域的整行
    
19. 'Delete 是方法
    
20. '结构:定位range对象的空单元格并对其整行进行删除
    
21. End Sub
    

复制代码

zjcat35

第一题：
1、Select 是选取的意思，方法
   Copy  是复制   方法
2、Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
     错误一: 方法和补充说明用空格隔开
   错误二: 补充说明内用:＝
   错误三: 多个补充说明用逗号隔开

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

yl_li

1、下面代码中请回答select是方法还是属性？Copy是方法还是属性

Select是方法，copy是方法

2、Selection.PasteSpecial ,Paste=xlPasteAll;Operation:=xlMultiply 一句中有三处错误，请找出来改正。
(1)、“Selection.PasteSpecial ,”最后的逗号多余
(2)、“Paste=xlPasteAll”等号之前漏了冒号
(3)、“Paste=xlPasteAll;”多个选项之间用逗号分隔

二、下面的代码是定位空单元格并删除，该句代码中哪些是对象，哪些方法，哪些是属性？请简述下面一句代码的结构。
Range("a:a")是对象，SpecialCells是方法，
Range("a:a").SpecialCells(xlCellTypeBlanks)返回的是单元格对象，
EntireRow是属性，Delete是方法

dsjohn

一、
答1. select是方法;Copy是方法;
2.
错误：
1. PasteSpecial , Paste之间的“，”号不应该有，应该是空格；
2.Paste=之间应该加个“：”；
3. xlPasteAll;Operation之间的“;”号不应该有，应该是空格；

二、
答：
Range("a:a")—对象
SpecialCells-属性
(xlCellTypeBlanks)-属性说明
EntireRow-属性
Delete-方法

君子豹变

一、答：1、select是方法，copy是方法。
2、第一处错误是Selection.pasteSpecial方法后面的补充说明不能用逗号，而应用空格，第二处错误是方法的补充说明paste=xlPasteAll应用:=，而不是=,第三处错误是多个参数之间不能用分号Paste:=xlPasteAll;，而应该用逗号。正确的写法是 Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply

二、Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
这句代码中，range("a:a")是对象，specialCells(xlCellTypeBlanks)是方法,是range对象的方法，它返回range对象，括号内的参数指要包含的单元格是空单元格，EntireRow是方法，它返回的也是range对象，Delete是方法。
整句代码意为定位A列中空单元格，然后删除该单元格所在的整行。

gaoshuichang1

一、
1、select是方法;copy是方法。
2、Selection.PasteSpecial后面应为空格;
Paste与xlPasteAll中间应为”:=”;
Paste=xlPasteAll与Operation:=xlMultiply应用逗号隔开。
正确的写法应为: Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
二、
Range(“a:a”)是对象,Specialcells是方法,Entirerow是属性,Delete是方法。
Range(“a:a”). Specialcells(xlCellTypeBlanks)返回一个对象(A列所有空单元格)
Range(“a:a”). Specialcells(xlCellTypeBlanks). Entirerow还是返回一个对象(A列所有空白单元格所在的行).
Range(“a:a”). Specialcells(xlCellTypeBlanks). Entirerow.Delete删除A列所有空白单元格所在的行

wangyi860214

一．

1．  select是属性，方法。 Copy是方法。

2． Selection.PasteSpecialPaste:=xlPasteAll, Operation:=xlMultiply

二.  Range("a:a")是对象

SpecialCells(xlCellTypeBlanks)是属性

EntireRow是属性

Delete是方法

三对作业中代码部分认识

Sub Macro1()

'

' Macro1 Macro

' 宏由 Lenovo User 录制，时间: 2012-1-17

Range("C21:C25").Select'选中C21:C25范围

Selection.Copy '选中范围复制

Range("E21").Select'选中E21

Selection.PasteSpecialPaste:=xlPasteAll, Operation:=xlMultiply '复制C21:C25范围单元格所有属性，并且和E21：E25对应相乘，粘贴在E21：E25里

End Sub

Sub a()

Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete'删除A列空行

End Sub

yijundanny

游客，如果您要查看本帖隐藏内容请回复

雨后的风

一、答： 1、 Select是属性，copy是方法
   2、1)、PasteSpecial后面应该为空格
  2)、Paste后面应该为:=
  3)、xlPasteAll后面为,
二、答：对象：Range(“A:A”)，Range(“A:A”).SpecialCells(xlCellTypeBlanks)，Range(“A:A”).SpecialCells(xlCellTypeBlanks).EntireRow
      方法：Delete
      属性：SpecialCells，EntireRow
代码的结构：
删除A列空单元格所在的行
A:A为常量，即A列
SpecialCells为单元格对象的变量
xlCellTypeBlanks（空单元格）为常量
EntireRow表示包含指定区域的整行

tytytty

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. 对象.子对象.属性.方法

复制代码