Excel VBA .Find 忽略逗号答案

【问题标题】：Excel VBA .Find ignores commasExcel VBA .Find 忽略逗号
【发布时间】：2020-01-10 20:02:47
【问题描述】：

我有一个在 A 列中搜索值的代码。这些值是项目编号，例如 4545 和 3605。有时一个项目确实有多个子项目。一个子项目确定为示例：3605,01和3605,02等。

我使用 .find 查找项目所在的行，找到后粘贴一些数据。

问题

4545 之类的数字可以完美运行，但使用逗号时，Excel 似乎无法识别。我认为他认为逗号是一个点。如何让 Excel 知道逗号是小数点分隔符？还是有其他问题？

这是我的代码：

    Dim Projectnumber As String
    Projectnumber = ActiveWorkbook.Sheets("Planning").Range("A6").Value2
    Dim ThisProjectRow As Range
    With Workbooks(Bureauplanner).Sheets("planning").Range("A:A")
        Set ThisProjectRow = .Find(What:=Projectnumber, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False, Searchformat:=False)
            If Not ThisProjectRow Is Nothing Then
            End If
    End With

【问题讨论】：

您可以尝试将Projectnumber = ActiveWorkbook.Sheets("Planning").Range("A6").Value2行中的.Value替换为.Text
我的 Excel 版本（2019，荷兰语）也可以使用小数点逗号而不是小数点。而且我无法复制您的问题。细胞被发现就好了。试着思考为什么你的不会。
@vitaliy Prushak .text 不起作用。 A 列在值中，我也在该列中使用了过滤器
@JvdV 我也在使用 Excel 2019 荷兰语
对，现在可以复制了。 String 数据类型是你的罪魁祸首。例如：.Find(What:=.Cells(6), LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False, Searchformat:=False) 将起作用

标签： excel vba

【解决方案1】：

是的，所以你的罪魁祸首是String 数据类型。你提到了

“A 列的值...”

当您将查找值存储到 String 数据类型中时，这意味着您正在比较两种不同的数据类型 > A Double 与 String。我想这不适合 VBA。

所以这里有两种方法可以解决这个问题：

1)。将 A 列转换为 String 格式化值。

或者。

2). 将String 变量替换为Double > Dim ProjectNumber As Double

【讨论】：

【解决方案2】：

反之亦然...使用 CDbl() 寻找双精度值：

Dim Projectnumber As String
 Projectnumber = ActiveWorkbook.Sheets("Planning").Range("A6").Value2
 Dim ThisProjectRow As Range
 With Workbooks(Bureauplanner).Sheets("planning").Range("A:A")
     Set ThisProjectRow = .Find(What:=CDbl(Projectnumber), LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False, Searchformat:=False)
         If Not ThisProjectRow Is Nothing Then
         End If
End With

【讨论】：