如果函数将两个相同的文本进行比较，不同的值

Question

我的两个变量 PackageOptions 和 cell.Value 具有相同的文本但不同的值。是否有一种方法可以格式化它们以匹配以便代码跳转到 if 语句？我尝试使用 Trim$ 和 ascii 格式，但不明白如何格式化。

字符串一是PackageOptions类型 字符串二是 PackageOptions 类型

从列表框中提取变量：

Dim PackageOptions
Dim Customer As String
Dim PreferredDate As String
Dim ServicesLine1 As String
Dim PackageOptions As String
Dim GoogleR As Byte
Dim InvoiceR As Byte

For i = 0 To LbCustomer.ListCount - 1
    If LbCustomer.Selected(i) Then
        Customer = Customer & LbCustomer.List(i) & vbNewLine
        PreferredDate = PreferredDate & LbCustomer.List(i, 1) & vbNewLine
        ServicesLine1 = ServicesLine1 & LbCustomer.List(i, 2) & vbNewLine
        **PackageOptions** = PackageOptions & LbCustomer.List(i, 3) & vbNewLine
        GoogleR = GoogleR & LbCustomer.List(i, 4) & vbNewLine  '
        InvoiceR = InvoiceR & LbCustomer.List(i, 5) & vbNewLine  
    End If
Next i

Dim PrRange As Range
Dim cell As RangeSet PrRange = shPrice.Range("PricingTable[Item]")
Dim ItemRange As Range
Set ItemRange = shPrice.Range("PricingTable[Item Number]")

>looping through a table column, return the row and item number of match
>the variables have different values (shown in images attached)
For Each cell In PrRange
         If PackageOptions = cell.Value Then
         ItemR = cell.Row - shPrice.Range("PricingTable[[#Headers],[Item]]").Row
         ItemNumber = shPrice.Range("PricingTable[Item Number]").Cells(ItemR, 1).Value
         End If

Next cell

Answer 1

我不太明白你的意思，特别是因为你没有说你在代码的哪一行遇到了哪个错误。也许您的抱怨只是比较没有给出您期望的结果。无论如何，您的变量 PackageOptions 是 Variant 数据类型变量，其中包含一个字符串，这正是 Cell.Value 应该包含的内容，尽管您的支持屏幕将其显示为字符串。

PackageOptions = cell.Value 是一个非常粗略但有力的比较。确保两个项目的数据类型相同。使用Cstr(PackageOptions) 将变体强制转换为字符串。也许在两个值上都使用它，Cstr(PackageOptions) = Cstr(cell.Value)。

StrComp() 函数允许您有更多的调整空间，但正如其名称所承诺的那样，它比较两个字符串。因此结果不会有任何不同。下面的函数将比较不区分大小写的文本。如果两个字符串相等，它将返回 0（零）。

StrComp(Cstr(PackageOptions), Cstr(cell.Value), VbTextCompare)

Answer 2

您的字符串 PackageOptions2 的 ascii 编码版本中的终止“1310”表示回车+换行组合（与 VBA 常量 vbCrLf 相同）。

它在那里是因为你在使用时添加了它

PackageOptions = PackageOptions & LbCustomer.List(i, 3) & vbNewLine

在 Windows 上 vbNewLine 与 vbCRLf 相同。不清楚你为什么要添加它 - 当你在列表框上循环时，你是否在每个变量中收集多个值？

尝试不添加vbNewLine 或类似的东西

If Replace(PackageOptions, vbNewLine) = cell.Value Then