|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
lolmuta 发表于 2014-2-11 20:38
雖然我也知道他property是設定屬性,但是何必多此一舉呢…
在別的語言(java,python),也並沒有這樣的 ...
可以用let和set以属性的方式来调用函数,同时在let和set函数中加一些处理条件
而不像直接为属性赋值那么简单
下面我自定义了一个icells方法,取代原本的cells方法用行列数赋值,还是用行数和列字母数进行赋值- Function test()
- icells(2, "C") = "ladeng6666"
- MsgBox icells(2, "C")
- End Function
- Property Get icells(ByVal r As Long, ByVal c As String) As String
- icells = Range(c & r)
- End Property
- Property Let icells(ByVal r As Long, ByVal c As String, ByVal value As String)
- Range(c & r) = value
- End Property
复制代码 |
|