E学委:sunjing-zxl
本帖最后由 sunjing-zxl 于 2012-1-18 14:09 编辑Sub Macro1()
'
' Macro1 Macro
' 宏由 Lenovo User 录制，时间: 2012-1-17
'select,Copy都是方法
'PasteSpecial后面多一个逗号,Paste后面少一个冒号,xlPasteAll后面的分号应该为逗号
Range("C21:C25").Select
Selection.Copy
Range("E21").Select
'Selection.PasteSpecial , Paste=xlPasteAll;Operation:=xlMultiply
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
End Sub
Sub aa()
Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'range是对象
'SpecialCells(xlCellTypeBlanks)是方法,括号内的是方法的参数,表示对象指定区域的空单元格
'EntireRow是属性,对象包含指定区域的整行
'Delete 是方法
'结构:定位range对象的空单元格并对其整行进行删除
End Sub
第一题：
1、Select 是选取的意思，方法
Copy是复制 方法
2、Selection.PasteSpecial Paste:=xlPasteAll,Operation:=xlMultiply
错误一: 方法和补充说明用空格隔开
错误二: 补充说明内用:＝
错误三: 多个补充说明用逗号隔开
第二题：
对象：Range("a:a")；Range("a:a").SpecialCells(xlCellTypeBlanks)
属性：SpecialCells(xlCellTypeBlanks)；EntireRow
方法：Delete 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是方法
一、
答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列中空单元格，然后删除该单元格所在的整行。
一、
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列所有空白单元格所在的行
一．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'选中E21Selection.PasteSpecialPaste:=xlPasteAll, Operation:=xlMultiply '复制C21:C25范围单元格所有属性，并且和E21：E25对应相乘，粘贴在E21：E25里End Sub Sub a()Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete'删除A列空行End Sub **** Hidden Message *****
一、答： 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表示包含指定区域的整行
D131、（1）select是方法,copy是属性；（2）Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply2、range("A:A")是对象，specialcells是range("A:A")的属性（或子对象），entirerow是属性，delete是方法；代码结构为：
对象.子对象.属性.方法