以下是本人写的代码
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=查到的信息所在的行
求高人指点,有简单方法更好!!
我估计你是想用在B列查找匹配的短文本信息,如果找到该信息,那么将相关信息显示在指定的label上面。
下面代码供你测试:
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)