小编The*_*One的帖子

我创建了一个名为category的类,它有3个属性.在我的主要课程中,我正在设置10个类型类别的实例.使用init函数初始化这些对象,以便我可以使用它们 - 现在我想循环遍历这些对象.我搜索了2个小时,我发现的唯一的事情是,唯一的解决方案是创建这些对象的集合.您在下面看到我的代码示例:

Dim Kat1 As New category
Dim Kat2 As New category
Dim Kat3 As New category
Dim Kat4 As New category
Dim Kat5 As New category
Dim Kat6 As New category
Dim Kat7 As New category
Dim Kat8 As New category
Dim Kat9 As New category
Dim Kat10 As New category

Dim col As New Collection

Kat1.init "Kat1", 14, 17
Kat2.init "Kat2", 18, 21
Kat3.init "Kat3", 22, 25
Kat4.init "Kat4", 26, 29
Kat5.init "Kat5", 30, 33
Kat6.init "Kat6", …

我想保存一个单元格的颜色，以便稍后在其他单元格上使用它。我知道 VBA 支持 RGB 并且有自己的颜色索引，但是如果你只是保存颜色，你会得到一个“长”类型的值。

如何将这种“长”颜色用于其他单元格而不必将其转换为 RGB？或者没有办法解决这个问题？

temp = "I" & PortsNum 'Number of Cell
sh2.Range(temp).Interior.Color = tempcolors 'Color Value