类-字典-数组-集合-接口-窗体

dreamcloud · 发表于 2020-10-13 14:28

感谢楼主分享，学习了

气愤excel · 发表于 2020-12-14 16:52

从那篇《类的真相》到这篇，对类的理解逐渐加深，感谢楼主的无私奉献！

气愤excel · 发表于 2020-12-14 16:53

本帖历经7年也不衰，足见楼主功力深厚，经得起时间考验才是真材实料！

气愤excel · 发表于 2020-12-14 19:43

Private Sub rDS_ChangeColor(rngType As cType, bOn As Boolean)
If mDatatype = rngType Then
      If bOn Then
         rColor
      Else
         unColor
      End If
End If
End Sub
为什么会自动循环，raiseevent只是触发一次，而if end语句是循环，但是没有 for ...next

xayxj80 · 发表于 2020-12-14 21:54

hyefeifei 发表于 2013-10-18 21:29
前文提到的四本书下载：
链接：http://pan.baidu.com/share/link?shareid=2538296038&uk=2921381087 密码 ...

谢谢分享，写的真不错。

新手来习 · 发表于 2022-11-6 15:33

方法和数据成员未找到？是我哪里写错了吗

新手来习 · 发表于 2022-11-6 15:43

现在转到标准模块，在标准模块中,建一程序：
　　Sub test()
　　 Dim rng As Range, i As Long
　　 Dim rF As rngFormat
　　 Set rF = New rngFormat
　　 For Each rng In Range("a1:a5")
　　       rng.Value = Array(#6/1/1966#, "abc", "=3", "100", "")(i)
　　       Set rF.DataType = rng
　　       rng.Offset(, 1) = rF.DataType
　　       i = i + 1
　　 Next
　　End Sub

提示方法和数据成员未找到

xkzb · 发表于 2022-11-7 10:01

谢谢分享,学习一下

		自动登录	找回密码
密码			免费注册

[原创] 类-字典-数组-集合-接口-窗体