Sub jskc10()
'输入物料名称查料号 OK 2022-10-09
Worksheets("jskc").Select
Cells.Select
Worksheets("jskc").UsedRange.ClearContents
Dim aa As String
Dim prompt As String
prompt = "请输入第一查询特征:(例如:电阻)"
aa = InputBox(prompt)
Sub jskc10()
'输入物料名称查料号 OK 2022-10-09
Worksheets("jskc").Select
Cells.Select
Worksheets("jskc").UsedRange.ClearContents
Dim aa As String
Dim prompt As String
prompt = "请输入第一查询特征:(例如:电阻)"
aa = InputBox(prompt)