看了类模块一头雾水，比如我做了一个循环判断最大值，如何搞成类模块，以后直接调

希望123456

For i = 2 To 11
Max = Val(Cells(i, 2))
For j = 2 To 4
    If Max < Val(Cells(i, j + 1)) Then
       Max = Cells(i, j + 1)
    End If

Next
    Cells(i, 6) = Max
Next

fanyoulin

做成函数就好了，类太高大了，搞不明白。

WANT-T

类模块的使用是这样的，
1、先NEW一下
2、输入参数；
3、输出内容；

如果你不会传递参数、接收参数的操作，就别玩类模块，先vba基础过了再说！
祝您生活愉快，再见！

希望123456

WANT-T 发表于 2023-6-13 16:53
类模块的使用是这样的，
1、先NEW一下
2、输入参数；

如果大佬示范一遍，说不定我会受到启发呢！我跟着教程做了几个简单的，但是要想按照自己的想法去用，就不会了

micch

现在这个层度，跳到类模块，面向对象写代码，跨度有点大。可以先看看帖子。

以你的例子来说：
实现了每一行求一个最大值？？

那么类模块里，最简化的写法，读入一个单元格区域，返回一个值。

关键是一个概念，而不是如何写代码，先有个对象的概念就好写的很了


模块写

1. Sub Test()
   
2.     Dim cls As myClass
   
3.     Set cls = New myClass
   
4.     For i = 2 To 11
   
5.         Cells(i, 6) = cls.GetMax(Cells(i, 2).Resize(1, 4))
   
6.     Next
   
7. End Sub
   

复制代码

类模块写

1. Public Function GetMax(rng As Range)
   
2.     Dim ar, x, mx
   
3.     ar = rng.Value
   
4.     For Each x In ar
   
5.     If x > mx Then mx = x
   
6.     Next
   
7.     GetMax = mx
   
8. End Function

复制代码

wanghan519

如果一个过程，每次运行效果都一样，那用函数就行了，如果过程带状态，因为状态不同运行的结果不一样，才会用到类吧，比如自己实现字典的功能，运行过add之后，keys的结果不同，不是因为参数不同而是状态变了，所以这是个类，而遍历找最大值这种真的就是个函数---纯属个人片面观点

micch

用类和不用类，并不是代码怎么写的问题，而是不同的概念，思路不同。

比如现在写好一个类对象，能求最大值，明天想求最小值，可以增加一个方法，后天需要平均值可以再增加一个方法。总之这个对象，可以继续维护，用函数就是多个函数。结果是一样的，但是思路不同。

再比如，下个月，可以给这个类对象增加属性，对象嘛，就比如字典一样，有不同的方法，属性。

WANT-T

希望123456 发表于 2023-6-13 21:31
如果大佬示范一遍，说不定我会受到启发呢！我跟着教程做了几个简单的，但是要想按照自己的想法去用，就不 ...

跟着教程写都 不会，我给你师范一个你就会了？

希望123456

WANT-T 发表于 2023-6-14 09:10
跟着教程写都 不会，我给你师范一个你就会了？

跟着教程我会的，但是具体运用，就不会了！比如我随机选择一个我以前写的代码，如何转化成类模块，就不知道怎么下手了

ykcbf1100

希望123456 发表于 2023-6-14 10:54
跟着教程我会的，但是具体运用，就不会了！比如我随机选择一个我以前写的代码，如何转化成类模块，就不知 ...

别好高骛远，先把基础打好才是硬道理。
我这水平，对类还没去触碰呢。