[已解决]求助， 各位每人给一个关于set 在VBA中用的列子

CCTV20092009

各位给一个关于set 在VBA中用的列子，关于set 在VBA使用   我 只知道约定俗成的一个set  在字典里的用法   还有一个 就是set   d  = nothing 求其他用法， 作个说明更好

最佳答案

月排行榜 / 总排行榜

吕?布

2011-12-28 10:59

Sub tt()
    ' 对象变量赋值用Set
    Dim sf As Object
    Set sf = New StdFont    ' Set常与New组合使用
    Set sf = Nothing        ' 释放对象

    ' 普通变量赋值用Let
    Dim i As Integer
    Let i = 1   ' Let有时可以省略
End Su

跳转到最佳答案楼层

吕?布

Sub tt()
    ' 对象变量赋值用Set
    Dim sf As Object
    Set sf = New StdFont    ' Set常与New组合使用
    Set sf = Nothing        ' 释放对象

    ' 普通变量赋值用Let
    Dim i As Integer
    Let i = 1   ' Let有时可以省略
End Su

liuts

set 一般针对的是对象操作，比如赋值 set rng=range("a1") 把A1单元格对象赋给rng对象变量。这里不用set 的话，默认是let，即let  rng=range("a1")  即把A1单元格的值赋给变量rng。其他同理

adders

吕布说明得很好,我再形象说明一下:

当你Dim x AS y的时候,这个AS后面的东西如果是Object(物件,对象),那么接下来第一次引用的时候就要用Set x = ...; 如果AS后面的东西是赋予x值属性时(如Integer, long, double, boolean, string, variant) 的时候,接下来引用时,就不用Set,直接就是x = ...

Set x = Nothing是针对于当X被赋予成Object后,运行完程序后,为清空内存的保全做法(大部分情况下,即使你在程序结束前不加这句,x值也会清空,但有时候会有内存未清理情况,所以Set x = object后Set x = Nothing是一个良好的编程习惯.)

比如,Workbook, Worksheet, Range这些都是Object, 而Workbook.Name, Range.Value这些就是值,体会一下以下实例:

Dim X as Worksheet, Y as Range      '这些是Object
Set X = ActiveSheet
Set Y = X.Range("A1:D5")

Dim A as String, B as String        '这些是值
A = ActiveSheet.Name
B = ActiveCell.Value

CCTV20092009

Set r1 = Sheet1.Range("a10:a1").Find(Range("A2"), , , xlWhole)
  MSGBOX   R1
怎么样才能把R1他放进数组  arr


祝福楼上和楼下的朋友们元旦快乐，2012  《从此出发》

qzc804030

学习!学习!沾点光!哈哈