【烟花原创】VBA零基础之对象第31篇 （六）

hwc2ycy

　　到今天为止，对象已经讲了五节了，对象的概念和引用也有了基本的认识。
　　但是光会引用还是不够的，引用是为了使用。使用对象，无外乎实现下面列表中的功能：

　　　　A．读取或修改对象的属性

　　　　B．通过对象引用来调用对象的方法，实现一个动作

　　属性：主要是描述对象的一些特性。

　　　　在VBA中可以对属性执行两个操作

　　　　　A． 读取属性的当前值

　　　　　B． 改变属性的值

　　　示例：
　　　　Sub Sample1()
　　　　　Dim value
　　　　　value = Range("c4").value
　　　　　'读取单元格C4的值
　　　　　MsgBox value
　　　　End Sub
　　　　

　　　Sub Sample2()
   　　　 Dim i As Byte
　　　    For i = 1 To 56
   　    　　 Cells(i,"e").Interior.ColorIndex = I  ‘设置E列第I行的单元格背景色
　　    　Next
　　 　End Sub
  　　　

　　在设置属性时要注意一点，属性有只写，只读，可读可写三种。
　　只读的属性用在表达式中时只能出现在=号的右边；
　　只写的属性用在表达式中时只能出现在=号的左边；

　　另外，注意有些属性是有参数（可选）的。

　　方法：对象能执行的动作，这个动作可以改变对象自身的属性或者让对象执行指定的操作。
　　　Sub Sample3()
  　 　　Range("a1:a3").Clear
　　　    '清除单元格A1:A3单元格对象（包括公式，格式等等）
　　　End Sub
　　
　　　Sub Sample4()
　　   　 Range("c1:c4").CopyRange("a1")
　   　　 '复制C1:C4单元格到A1:A4单元格(包含格式，公式）
　　　    '效果与平时的技巧操作是一样的：选中C1:C4单元格执行复制，再选中A1单元格执行粘贴
　　　End Sub
　　
　　同样的有些对象的方法也是有参数的。象上面代码中中单元格的COPY方法，如果不加参数，单元格区域就会复制到剪贴板中。

我心飞翔410

{:1112:}

syea01

认真学习中！
Sub Sample4()
　　   　 Range("c1:c4").CopyRange("a1")
（又手误了 copy和range之间少了个空格）

yewei113

下载保存

neumaly

跟帖学习

含月化烛

{:35:}

ANDY0393

继续学习中，谢谢老师分享，标记，三十一

tingfeng461002

tingfeng461002

finderzy

syea01 发表于 2013-12-11 13:51
认真学习中！
Sub Sample4()
　　   　 Range("c1:c4").CopyRange("a1")

我说怎么奇奇怪怪的呢