0

我创建了一个用于更改所选单元格颜色的代码。通常我将该代码放在 Sheet1 VBA 文件中，或者我正在使用它的任何工作表中。

我想把它放到一个类模块文件中，这样可以更容易地实现到另一个工作表或 excel 文件中。

类模块甚至是它的好地方吗？我的整个想法是有几个这样的事件，以及一些简单的方法来打开和关闭它们，以及将代码迁移到另一个 excel 文件。

您认为最好的方法是什么？

代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Range("A1").Value = "yes") Then
        Dim iColor As Integer
        On Error Resume Next
        iColor = Target.Interior.ColorIndex
        iColor = 36
        Cells.FormatConditions.Delete
        Target.FormatConditions.Add Type:=2, Formula1:=iInternational
        Target.FormatConditions(1).Interior.ColorIndex = iColor
    Else
        Cells.FormatConditions.Delete
    End If
End Sub
4

1 回答 1

1

悉达多是当场的。您不需要类模块。为了解决您的问题，您可以编写代码来更新您的工作簿代码，以便可以获取任何给定 .bas 文件中的任何给定模块并将其复制到工作簿中的任何对象中。

因此，如果您在 myLibrary.bas 中有 Worksheet_Change 代码，则可以将其复制出来并将其放置在工作簿中的每个 Worksheet 对象中。

这是一个让你开始的好地方：使用模块

于 2012-05-16T16:14:12.007 回答