| 楼主 水星钓鱼 |
Q：如何给类指定方法？ A：创建类时，如果想给类指定方法，只需要在类模块中为方法要执行的操作的Sub过程，或者Function即可，其中Sub过程表示该方法没有返回值，Function过程表示该方法有返回值。 举例如下： 在类模块（类1）中输入以下代码： Dim temp Property Get Value() As String Value = temp End Property Property Let Value(str As String) temp = str End Property Sub OutPut() '将类1的属性值输出到活动单元格 Application.ActiveCell = Value End Sub 在工作表、工作簿、或者标准模块输入以下代码： Sub xyf() Dim obj As 类1 Set obj = New 类1 '给类1的属性Value赋值 obj.Value = "将要输出到活动单元格中的值" '执行类1的OutPut方法 obj.OutPut End Sub 然后运行xyf过程，将把“类1”的属性值输出到活动单元格。 附件如下：  类的方法.rar |
| 2楼 じ☆潴の︵ゞ |
来学习了 |
| 3楼 水吉果果 |
学习 |