VBA常用技巧代码解析

czy912

不过要是能弄个压缩档就更好了．

liechun1983

太感谢楼主了,我的VBA又进步了

taller

原帖由 sys911066 于 2009-3-13 17:23 发表
啊，知识量很很大，要学好久呀，怎么才能一次性D下来慢慢学习呢？

全部当下来也许就会被束之高阁了，直接学习更好，书非借不能读也:-)

samesaam

感谢版主，you are the best！！

thierry2008

太感谢了，很早就想学习，但是一直没有坚持，希望从此能坚持下去。再次感谢斑竹

口是心非

袁版，22楼代码中的Set rng = Nothing如何解释呢?我试了试，有无这行代码，运行结果都一样。多谢。
附原代码：
#001  Sub LastRow()
#002      Dim rng As Range
#003      Set rng = Sheet1.Range("A65536").End(xlUp)
#004      MsgBox "A列中最后一个非空单元格是" & rng.Address(0, 0) _
#005          & ",行号" & rng.Row & ",数值" & rng.Value
#006      Set rng = Nothing
#007  End Sub

yuanzhuping

原帖由 口是心非 于 2009-3-15 14:20 发表
袁版，22楼代码中的Set rng = Nothing如何解释呢?我试了试，有无这行代码，运行结果都一样。多谢。

对的，有无这行代码都是一样的，但这是一个好的编程习惯。Nothing 关键字将对象变量从实际对象中分离开来，当对象变量被赋值为Nothing时，与被引用的对象有关联的内存资源及系统资源才会被释放掉。

guzhen9315

原帖由 fox19850518 于 2009-3-13 09:58 发表
看楼猪的帖子入神了，红包又没抢到~~~

学习，不是为了抢红包。

liyh67

太感谢楼主了

姜燕

非常感谢分享！