EXCEL中如何实现点击按钮自动弹出输入框，输入后按要求进行自动搜索。

Question

EXCEL中如何实现点击按钮自动弹出输入框要求“输入供应商名字”，输入供应商名字后，自动搜索供应商名字对找出该供应商所对应的最后送样日期

Answer 1

　　查找的快捷键：按CTRL+F就可弹出excel查找的搜索框。

　　备注：点击选项可以对搜索进行设置，如是否区分大小写，搜索范围等。

Answer 2

试试：

Sub test() '按钮 1
   On Error Resume Next
   tmp = "找不到需要的供应商"
   GYS = InputBox("请输入： 供应商名称")
   If GYS = "" Then Exit Sub
   [F3:g3].ClearContents '清空原先结果(根据需要修改)可避免查此
   Set p = Cells.Find(What:=GYS, LookIn:=xlValues, LookAt:=xlWhole)
   If p Is Nothing Then MsgBox tmp: Exit Sub
   Rw = p.Row
   Col = p.Column
   n = Cells(65536, Col).End(xlUp).Row
   For i = Rw To n
       If Cells(i, Col) = GYS And Cells(i, Col + 1) - x > 0 Then x = Cells(i, Col + 1)
   Next
   If x = 0 Then MsgBox tmp: Exit Sub
   t = Format(x, "yyyy-m-d")
   MsgBox "供应商：" & GYS & " // 最后送样日期：" & t & Space(10), 64, " Lwu.提示："
   [F3] = GYS: [g3] = t '写入单元格(根据需要修改)
End Sub

 

本回答被网友采纳