VBA 处理多种自定义数据类型的可能性

Question

我做了一些研究，没有发现任何类似的问题。

我有一个 VBA 宏，它可以导入一个 .CSV 文件，其中包含设备发送的电报。

在这个宏的末尾，我想创建一个图表，其中 x 轴上已用的时间和对应于电报的值。

问题是这个值可以是不同的类型：十六进制、布尔值、整数......而且它们不遵守标准的 Excel 数字格式，这意味着它们不能用于创建图形。 以下是一些示例（在值周围使用 " 以显示其开始和结束）：

• 十六进制：“A7 C8”
• 布尔值：“$00”或“$01”
• 百分比：“30 美元”

And here is an example of data, with custom time format and boolean value

到目前为止，这是我的相关代码，我尝试转换为自定义类型，然后转换回数字以获取通用数字数据类型：

If wsRes.Range("R1").Value Like "$##" Then
    wsRes.Range("R1:R" & plotLine).NumberFormat = "$##"
    wsRes.Range("R1:R" & plotLine).NumberFormat = General
End If

If wsRes.Range("R1").Value Like "??[ ]??" Then
    Dim valArray(1) As String
    For i = 1 To plotLine Step 1
        valArray = Split(wsRes.Range("R" & i), " ")
        wsRes.Range("R" & i).Value = ToInt32(valArray(0) + valArray(1), 16)
        wsRes.Range("" & i).NumberFormat = General
    Next i
End If

我还不能用 hexa 对其进行测试，但是转换技巧不适用于百分比/布尔值

编辑：

首先，感谢您的回答。

这是我为所有感兴趣的人准备的最终代码，改编自 Vityata 的。

如果需要，此方法将允许轻松添加其他数据类型。

Sub TestMe()
    Dim RangeData as String
    Set wsRes = ActiveWorkbook.Sheets("Results")

    For i = 1 To plotLine Step 1  'plotLine is the last line on which I have data
        DetectType wsRes.Range("R" & i).Value, i
    Next i

    RangeData = "Q1:R" & plotLine
    CreateGraph RangeData 'Call My sub creating the graph
End Sub



Public Sub DetectType(str As String, i As Integer)

    Select Case True
        Case wsRes.Range("R" & i).Value Like "??[ ]??"
            wsRes.Range("R" & i).Value = HexValue(str)

        Case wsRes.Range("R" & i).Value Like "?##"
            wsRes.Range("R" & i).Value = DecValue(str)

        Case Else
            MsgBox "Unsupported datatype detected : " & str
            End
    End Select

End Sub



Public Function HexValue(str As String) As Long
    Dim valArray(1) As String 'Needed as I have a space in the middle that prevents direct conversion
    valArray(0) = Split(str, " ")(0)
    valArray(1) = Split(str, " ")(1)
    HexValue = CLng("&H" & valArray(0) + valArray(1))
End Function


Public Function DecValue(str As String) As Long
    DecValue = Right(str, 2)
End Function

Answer 1

您需要三个布尔函数，遵循您的业务逻辑和一些Clean Code principles (although the author of the book does not recognize VBA people as programmers)：

• IsHex()
• IsBoolean()
• IsPercentage()

---

Public Sub TestMe()

    Dim myInput As Variant
    myInput = Array("A7C8", "$01", "$30")        
    Dim i As Long        
    For i = LBound(myInput) To UBound(myInput)
        Debug.Print IsHex(myInput(i))
        Debug.Print IsBoolean(myInput(i))
        Debug.Print IsPercentage(myInput(i))
        Debug.Print "-------------"
    Next i        
    'or use this with the DetectType() function below:
    'For i = LBound(myInput) To UBound(myInput)
    '    Debug.Print DetectType(myInput(i))
    'Next i

End Sub

Public Function IsHex(ByVal str As String) As Boolean    
    On Error GoTo IsHex_Error       
    IsHex = (WorksheetFunction.Hex2Dec(str) <> vbNullString)        
    On Error GoTo 0
    Exit Function    
IsHex_Error:    
End Function

Public Function IsBoolean(ByVal str As String) As Boolean
    IsBoolean = CBool((str = "$00") Or (str = "$01"))
End Function

Public Function IsPercentage(ByVal str As String) As Boolean
    IsPercentage = (Len(str) = 3 And Left(str, 1) = "$" And IsNumeric(Right(str, 2)))
End Function

---

然后需要一些额外的逻辑，因为 $01 既是 布尔值 又是 百分比。在这种情况下，您可以将其视为百分比。这是某种映射器，遵循以下业务逻辑：

Public Function DetectType(str) As String

    Select Case True
        Case IsHex(str)
            DetectType = "HEX!"
        Case IsPercentage(str) And IsBoolean(str)
            DetectType = "Boolean!"
        Case IsPercentage(str)
            DetectType = "Percentage!"
        Case Else
            DetectType = "ELSE!"
    End Select

End Function