如何将枚举作为文本传递到 VBA？

Question

我正在创建一个条件格式工具。用户完成一个电子表格，描述他们想要添加的格式和位置。

我的 VBA 用列索引号标记此电子表格中的每一列，并在循环遍历每一行时将每个元素传递给 VBA。

此语句（如下）出现类型不匹配错误，我发现问题是在格式条件方法中为规则类型和运算符参数传递枚举； VBA 将其作为文本读取，而从研究中我了解到枚举本质上是文本形式的长类型（？）。

    Sub s_ApplyFormats()

    Dim rng_FormattingInfo As Range
    Dim rng_RowItem As Range

    Const int_VBAFormatTypeCol As Integer = 2  'xlCellValue or xlExpression
    Const int_VBAOperatorCol As Integer = 4 'xlEqual, xlBetween, etc.
    Const int_FormulaCol As Integer = 5
    Const int_WorksheetCol As Integer = 6
    Const int_RangeCol As Integer = 7
    Const int_FormatCol As Integer = 8
    Const int_StopIfTrueCol As Integer = 10
    'The column numbers of the relevant columns in the Conditional Formatting admin worksheet

    Set rng_FormattingInfo = Range("rng_ConditionalFormattingData")
    'Contains all columns in the Conditional Formatting admin worksheet          

    For Each rng_RowItem In rng_FormattingInfo.Rows
        With Worksheets(rng_RowItem.Cells(int_WorksheetCol).Value2) _
         .Range(rng_RowItem.Cells(int_RangeCol)).FormatConditions _
          .Add(rng_RowItem.Cells(int_VBAFormatTypeCol).Value2, rng_RowItem.Cells(int_VBAOperatorCol).Value2, _
           rng_RowItem.Cells(int_FormulaCol))
            .Font.ColorIndex = rng_RowItem.Cells(int_FormatCol).Font.ColorIndex
            .Interior.ColorIndex = rng_RowItem.Cells(int_FormatCol).Interior.ColorIndex
        End With
    Next rng_RowItem

    End Sub

作为一个潜在的解决方案，我可以在工作簿中创建一个查找，这样当用户在电子表格中选择“xlCellValue”时，枚举值 (1) 会被传递给 VBA。这需要我列出每个枚举的字符串和数字形式。

但是，有没有办法可以将枚举的字符串形式从单元格传递到 VBA？

Answer 1

编辑：

您可以使用几个自定义函数将单元格中的 long 值显式转换为相应的 Excel Enum。

Sub s_ApplyFormats()

    Dim rng_FormattingInfo As Range
    Dim rng_RowItem As Range
    Dim i As Long 'used in loop for row numbers
    Dim VBAFormatTypeCol As Excel.XlFormatConditionType, VBAOperatorCol As Excel.XlFormatConditionOperator

    Set rng_FormattingInfo = Range("rng_ConditionalFormattingData")       

    For Each rng_RowItem In rng_FormattingInfo.Rows
        i = i + 1
        With Worksheets(rng_RowItem.Cells(i, int_WorksheetCol).Value2)

            VBAFormatTypeCol = FormatTypeToXLEnum(CLng(Trim(rng_RowItem.Cells(i, int_VBAFormatTypeCol).Value2)))
            VBAOperatorCol = OperatorTypeToXLEnum(CLng(Trim(rng_RowItem.Cells(i, int_VBAOperatorCol).Value2)))

            With .Range(rng_RowItem.Cells(i, int_RangeCol))
                    .FormatConditions.Add(VBAFormatTypeCol, VBAOperatorCol, rng_RowItem.Cells(i, int_FormulaCol))
            End With 

            .Font.ColorIndex = rng_RowItem.Cells(i, int_FormatCol).Font.ColorIndex
            .Interior.ColorIndex = rng_RowItem.Cells(i, int_FormatCol).Interior.ColorIndex

        End With

        VBAFormatTypeCol = Empty
        VBAOperatorCol = Empty

    Next rng_RowItem

End Sub


Private Function FormatTypeToXLEnum(ByVal FormatType as Long) As Excel.XlFormatConditionType

    Select Case FormatType

        Case 1
            FormatTypeToXLEnum = xlCellValue

        Case 2
            FormatTypeToXLEnum = xlExpression 

    End Select

End Function 


Private Function OperatorTypeToXLEnum(ByVal OperatorType as Long) As Excel.XlFormatConditionOperator

    Select Case OperatorType

        Case 1
            OperatorTypeToXLEnum = xlBetween 

        Case 2
            OperatorTypeToXLEnum = xlNotBetween  

        Case 3
            OperatorTypeToXLEnum = xlEqual  

        Case 4
            OperatorTypeToXLEnum = xlNotEqual  

        Case 5
            OperatorTypeToXLEnum = xlGreater 

        Case 6
            OperatorTypeToXLEnum = xlLess  

        Case 7
            OperatorTypeToXLEnum = xlGreaterEqual  

        Case 8
            OperatorTypeToXLEnum = xlLessEqual   

    End Select

End Function 

原文：

尝试将单元格值显式转换为长类型。考虑以下几点：

'Define constants at the top of the module
Private Const int_VBAFormatTypeCol As Long = 2  'xlCellValue or xlExpression
Private Const int_VBAOperatorCol As Long = 4 'xlEqual, xlBetween, etc.
Private Const int_FormulaCol As Long = 5
Private Const int_WorksheetCol As Long = 6
Private Const int_RangeCol As Long = 7
Private Const int_FormatCol As Long = 8
Private Const int_StopIfTrueCol As Long = 10

Sub s_ApplyFormats()

    Dim rng_FormattingInfo As Range
    Dim rng_RowItem As Range
    Dim i As Long 'used in loop for row numbers
    Dim VBAFormatTypeCol As Long, VBAOperatorCol As Long

    Set rng_FormattingInfo = Range("rng_ConditionalFormattingData")       

    For Each rng_RowItem In rng_FormattingInfo.Rows
        i = i + 1
        With Worksheets(rng_RowItem.Cells(i, int_WorksheetCol).Value2)

            VBAFormatTypeCol = CLng(Trim(rng_RowItem.Cells(i, int_VBAFormatTypeCol).Value2))
            VBAOperatorCol = CLng(Trim(rng_RowItem.Cells(i, int_VBAOperatorCol).Value2))

            With .Range(rng_RowItem.Cells(i, int_RangeCol))
                    .FormatConditions.Add(VBAFormatTypeCol, VBAOperatorCol, rng_RowItem.Cells(i, int_FormulaCol))
            End With 

            .Font.ColorIndex = rng_RowItem.Cells(i, int_FormatCol).Font.ColorIndex
            .Interior.ColorIndex = rng_RowItem.Cells(i, int_FormatCol).Interior.ColorIndex

        End With

        VBAFormatTypeCol = Empty
        VBAOperatorCol = Empty

    Next rng_RowItem

End Sub

尝试运行它，看看你会得到什么。