选择错误中每个单元格的 Excel VBA 函数导致变量未定义

Question

我在excel中编写了一个代码函数，在函数获取输入数据后调用子例程。该功能是使用 Excel 中的 RGB 值为工作表或其他工作表中的单元格或单元格区域着色。

但是，一旦子例程运行，我不知道如何使用我编写的函数调用单元格值。错误提示未定义变量。看起来“For Each Cell in Selection”行导致了错误，因为一旦我将函数的数据传递给子例程，就不会声明该单元格。另外，有人可以提供以以下形式修改其他工作表单元格的代码：“Cell.Interior.Color = RGB(Red, Green, Blue)”？工作表的名称由用户输入。

Option Explicit
Dim Activate As Boolean

Public Function SETRGBCOLOR( _
    Optional CurrentCellValue As Variant, _
    Optional wksSheetname As String, _
    Optional rngRange As Range, _
    Optional byteRed As Byte = 0, _
    Optional byteGreen As Byte = 0, _
    Optional byteBlue As Byte = 0) As Variant

    If IsMissing(CurrentCellValue) Then
        SETRGBCOLOR = ""
    Else
        SETRGBCOLOR = CurrentCellValue
    End If

    Activate = False

    'set greater RGB values than max RG value to 255, byte ignores the negative value of a digit
    If byteRed > 255 Then byteRed = 255
    If byteGreen > 255 Then byteGreen = 255
    If byteBlue > 255 Then byteBlue = 255

    Activate = True

    Call CalculateColor(wksSheetname, rngRange, byteRed, byteGreen, byteBlue)
End Function

Private Sub CalculateColor(wksSheetname As String, rngRange As Range, byteRed As Byte, byteGreen As Byte, byteBlue As Byte)
    If Activate = True Then

        If Trim(wksSheetname) <> "" Then
            If Trim(rngRange) <> "" Then
                For Each Cell In Selection
                    Cell.Interior.Color = RGB(byteRed, byteGreen, byteBlue)
                Next Cell
            Else
            End If
        Else
            If Trim(rngRange) <> "" Then
                'For Each Cell In Selection
                '    Cell.Interior.Color = RGB(byteRed, byteGreen, byteBlue)
                'Next Cell
            Else
            End If
        End If
    End If
    Activate = False
End Sub

Answer 1

您必须声明Option Explicit变量Cell： Dim Cell As Range在您的 SubCalculateColor() 的开头。