Find() 函数查找公式不输出

Question

Private Sub ListBox1_Click()
 asset = Me.ListBox1.Value
 ThisWorkbook.Sheets("AssetPurchase").Activate
 sl = Range("I7", "I500").Find(asset).Row

 Me.TextBox2.Value = Range("H" & Range("I7", "I500").Find(asset).Row).Value
  MsgBox (Range("I7", "I500").Find(asset).Row)
End Sub

我正在使用上面的 sub 来切换工作表，然后在一个范围内搜索一个字符串

我遇到的问题是这个范围内的单元格是根据其他单元格的内容计算的，find() 正在搜索范围内的公式而不是公式的输出

我希望某个范围内的公式输出与字符串相匹配

Answer 1

Find() 有以下参数：

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

使用第三个参数 LookIn 来指定是要搜索公式的文本 (xlFormulas) 还是 单元格值 (xlValues).

例如，要搜索与 asset 中存储的文本匹配的第一个单元格值，请使用：

sl = Range("I7", "I500").Find(asset, , xlValues).Row

Find() 函数查找公式不输出

Find() Function Look for Formula not Output

excel

vba

function

find