Excel表格中宏和VB，有关查询数据并显示代码！！！

Question

以下是本人写的代码
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
Sheets("采购订单信息").Activate
Select Case KeyCode
Case vbKeyEscape, vbKeyAdd
TextBox2 = ""
Label2 = ""
Label6 = ""
Label9 = ""
TextBox2.SetFocus
Case vbKeyReturn
c = TextBox2.Text
If c Like "*" & UCase("采购订单信息!$A$2:$B$" & Worksheets("采购订单信息").[B65536].End(xlUp).Row) & "*" Then ①
a = Row.Activate ②
Label2 = Sheet1.Cells(a, 1)
Label6 = Sheet1.Cells(a, 3)
Label9 = Sheet1.Cells(a, 2)
TextBox2 = ""
TextBox2.SetFocus
Else
Label2 = "无订单信息"
TextBox2 = ""
Label6 = ""
Label9 = ""
TextBox2.SetFocus
End If
End Select
End Sub
窗体是Excel表格中直接调用的①②处怎么才能实现在表格B列查找匹配信息，a=查到的信息所在的行

求高人指点，有简单方法更好！！

Answer 1

我估计你是想用在B列查找匹配的短文本信息，如果找到该信息，那么将相关信息显示在指定的label上面。

下面代码供你测试：

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    On Error Resume Next
    Dim rng As Range, c As String, a As Long
    Sheets("采购订单信息").Activate
    Select Case KeyCode
        Case vbKeyEscape, vbKeyAdd
            TextBox2 = ""
            Label2 = ""
            Label6 = ""
            Label9 = ""
            TextBox2.SetFocus
        Case vbKeyReturn
            c = TextBox2.Text
            Set rng = Sheet1.[b:b].Find(c, , , xlWhole)
            If Not rng Is Nothing Then
                a = rng.Row
                Label2 = Sheet1.Cells(a, 1)
                Label6 = Sheet1.Cells(a, 3)
                Label9 = Sheet1.Cells(a, 2)
                TextBox2 = ""
                TextBox2.SetFocus
            End If
        Case Else
            Label2 = "无订单信息"
            TextBox2 = ""
            Label6 = ""
            Label9 = ""
            TextBox2.SetFocus
        End Select
End Sub