Excel 运行时错误';380';无法设置RowSource属性,属性值无效
我遇到了一个错误 运行时错误“380”:无法设置RowSource属性,属性值无效 我该怎么办 我有三个选项卡:Excel 运行时错误';380';无法设置RowSource属性,属性值无效,excel,vba,excel-2010,Excel,Vba,Excel 2010,我遇到了一个错误 运行时错误“380”:无法设置RowSource属性,属性值无效 我该怎么办 我有三个选项卡:表单,产品搜索和股票数据 我已将“公式”选项卡下的“名称管理器”设置为: =OFFSET('Product Search'!$A$2,0,0,COUNTA('Product Search'!$A:$A)-1,3) 这是我的代码: Private Sub cmdSearch_Click() Dim RowNum As Long Dim SearchRow As Lon
表单
,产品搜索
和股票数据
我已将“公式”选项卡下的“名称管理器”设置为:
=OFFSET('Product Search'!$A$2,0,0,COUNTA('Product Search'!$A:$A)-1,3)
这是我的代码:
Private Sub cmdSearch_Click()
Dim RowNum As Long
Dim SearchRow As Long
RowNum = 2
SearchRow = 2
Worksheets("Product Search").Range("A2:I100").ClearContents
Worksheets("Stock Data").Activate
Do Until Cells(RowNum, 1).Value = ""
If InStr(1, Cells(RowNum, 2).Value, txtKeywords.Value, vbTextCompare) > 0 Then
Worksheets("Product Search").Cells(SearchRow, 2).Value = Cells(RowNum, 1).Value
Worksheets("Product Search").Cells(SearchRow, 1).Value = Cells(RowNum, 2).Value
Worksheets("Product Search").Cells(SearchRow, 3).Value = Cells(RowNum, 3).Value
SearchRow = SearchRow + 1
End If
RowNum = RowNum + 1
Loop
If SearchRow = 2 Then
MsgBox "No products were found that match your search criteria."
Exit Sub
End If
lstSearchResults.RowSource = "SearchResults"
End Sub