VBA Excel查找货币格式单元格的功能

Question

我根本没有 VBA 编码经验，我有一个看似简单的问题。我想创建一个单击按钮宏，它将查找并选择每个包含欧元符号 € 的货币格式单元格或在特定列中总和大于 0 的每个货币格式单元格。目前这段代码：

Cells.Find(What:="€", After:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

接近我想要实现的目标（找到€符号），但它不适用于货币格式的单元格，默认情况下会自动将欧元符号添加到总和中......并且未定义到特定列。 例如，如果在我的工作表中只有一些货币格式的单元格有一个 € 符号（我正在寻找），那么宏会给我一个运行时错误 91..使用本机 excel 搜索功能，完全相同的搜索参数可以正常工作。

见附图 请帮助它对我的项目有很大帮助=）

这不起作用： https://i.stack.imgur.com/UQqJp.jpg

这会完全按照我的宏所希望的那样找到欧元符号。 https://i.stack.imgur.com/fM1lY.jpg

Answer 1

您需要的一部分。此例程将Select 所有包含欧元符号的单元格。它将处理通过格式化显示的欧元以及包含在单元格文本中的欧元。

Sub test()
    Dim rng As Range, r As Range, rFound As Range

    Set rFound = Nothing
    For Each r In ActiveSheet.UsedRange
        If InStr(1, r.Text, "€") > 0 Then
            If rFound Is Nothing Then
                Set rFound = r
            Else
                Set rFound = Union(rFound, r)
            End If
        End If
    Next r

    If Not rFound Is Nothing Then rFound.Select
End Sub

Answer 2

测试以下-

Sub test()
    Dim rng As Range

    Set rng = Cells.Find(What:="€", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

    If Not rng Is Nothing Then
        rng.Activate
    End If
End Sub