Question

我对VBA编码没有经验。

我的VBA代码：

bool loadCourses

它搜索并激活包含€符号的单元格。它仅在我手动定义我的选择范围时才有效。

当我尝试插入Search = InStr(ActiveCell.NumberFormat, Chr(128)) Selection.Find(What:=Search, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate以使列H成为我的选择（这是我的目标）时，代码停止工作。

Answer 1

问题出在ActiveCell，这取决于您选择的内容。试试这样，你应该很幸运：

Option Explicit

Sub TestMe()

    Dim Search As String

    ActiveSheet.Range("H:H").Select
    Search = CStr(Chr(128))
    Selection.Find(What:=Search, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Select 'or .Activate

End Sub

一旦您对录制宏感觉更好，您可以尝试避免ActiveSheet，Selection和ActiveCell：

How to avoid using Select in Excel VBA

Answer 2

此代码在包含代码（Vary: Accept）的工作簿中的Accept: A1:A6范围内找到希腊欧元格式的单元格。
单元格必须包含值（以查找空格更改Sheet1到ThisWorkbook）。

"*"

不知道为什么""表示希腊语。

在代码中定义的范围内搜索€符号

2 个答案: