VBA Sub根据顶行和第一列定位单元格

Question

我的第一行是州名，例如 VA CA，第一列包含行业代码。需要一个 VBA 子程序，在我单击这个名为 Locate 的按钮后，一个 msgbox 要求用户输入州名称，第二个 msgbox 要求用户输入行业代码，vba 找到该州和行业所在的列和行，定位值基于这两个坐标输入。

Sub Locate()
Dim siccode As Integer
Dim rngSearch As Range, rngFound, rngFound2 As Range
Dim r As Double
Dim c As Double
Dim states, cellvalue As String

siccode = InputBox(Prompt:="Please enter 2 digit SIC code: ", Title:="SIC   Code", Default:="SIC here")
states = InputBox(Prompt:="Please enter State name: ", Title:="State Name", Default:="State Name here")

Set rngSearch = Range("A:BB")
Set rngFound = rngSearch.Find(What:="siccode", LookIn:=xlValues, LookAt:=xlPart)
 If rngFound Is Nothing Then
 MsgBox "No claims at all"
 Else
 MsgBox rngFound.Row
 End If

Set rngSearch = Range("A:BB")
Set rngFound2 = rngSearch.Find(What:="states", LookIn:=xlValues, LookAt:=xlPart)
If rngFound2 Is Nothing Then
 MsgBox "No Claims at all"
 Else
 MsgBox rngFound2.Column
 End If

cellvalue = ActiveSheet.Cells(rngFound.Row, rngFound2.Column).value
MsgBox (cellvalue)
End Sub

在 if 部分之前它都可以正常工作，无论它是什么输入，它总是根本不显示任何声明。

Answer 1

在您的搜索行中，为什么 siccode 在引号中？它是一个整数变量，而不是一个字符串。状态也一样，这是一个变量。

Set rngFound = rngSearch.Find(What:="siccode", LookIn:=xlValues, LookAt:=xlPart)

Set rngFound2 = rngSearch.Find(What:="states", LookIn:=xlValues, LookAt:=xlPart)

尝试删除引号。