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

【问题标题】：Find() Function Look for Formula not OutputFind() 函数查找公式不输出
【发布时间】：2015-07-26 04:31:36
【问题描述】：

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() 正在搜索该范围内的公式而不是公式的输出

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

【问题讨论】：

标签： excel vba function find

【解决方案1】：

Find() 有以下参数：

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

使用第三个参数LookIn，指定您是要在公式中搜索文本（xlFormulas）还是单元格值（xlValues )。

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

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

【讨论】：