问个问题，我excel表上做一个折线图，可否以搜索的形式显示折线图

就是比如A表一个的折线图，X轴是日期这个不变，我能否在折线图下建一个按钮或者搜索框，手动输入料号规格就能在折线图上显示该料号的折线图，其他料号的不显示，如果能实现应该怎么做，是用vb代码实现，还是直接在excel上可以操作就可以实现的，还有折线图可否分段或者分页显示，就是X轴上显示RR，RR上显示DLD，DLD上显示FDLD，这个顺序无所谓，Y轴可以不显示数字，只要能看到折线图上的趋势就行的。也不知道我是否描述清楚了，可有大佬赐教，知道的话可以教我如何做么

你可以录制宏然后观察他自动生成的vb代码是怎么写的

我根据你的描述写了一个完全能够实现的，你看看符不符合你的需求，如果不符合，也可以借鉴我的代码自己再次改造一下。

Private Sub btnSearch_Click()

  Dim strLiaoHao As String
  strLiaoHao = Cells(2, 8).Value '取得输入料号的值
  If Trim(strLiaoHao) = "" Then
    Exit Sub '如果输入的料号的值是空，则退出
  End If
  
  '根据输入的料号的值在数据区查找符合料号的区域
  Dim strRange As String
  strRange = ""
  For i = 2 To 10
    If Cells(i, 1).Value = strLiaoHao Then
      strRange = strRange & "A" & i & ":E" & i & ","
    End If
  Next
  
  If strRange = "" Then
    Exit Sub '如果在数据区域内没有找到符合料号的区域则退出
  End If
  
  strRange = Left(strRange, Len(strRange) - 1)
  strRange = "A1:E1," & strRange
  
  '查找所有本Sheet中的所有图表，然后删除
  Dim itSheet As Worksheet
  Set itSheet = ActiveSheet
  For i = 1 To itSheet.Shapes.Count
    If itSheet.Shapes.Item(i).Type = msoChart Then
      itSheet.Shapes.Item(i).Delete
    End If
  Next
  
  '插入图表
  Dim itShapes As Shape
  Set itShapes = itSheet.Shapes.AddChart2(332, xlLineMarkers)
  Dim itChart As Chart
  Set itChart = itShapes.Chart

  itChart.SetSourceData Source:=Range(strRange) '图表的数据源
  itChart.PlotBy = xlColumns 'X轴由列产生
  itChart.SetElement (msoElementLegendRight) '在右侧添加图例
  
  '将图表左上角放置在G11单元格的左上角
  itShapes.Left = Cells(11, 7).Left
  itShapes.Top = Cells(11, 7).Top
  
End Sub

我将该文件上传到资源了，但是还没有审核通过，一会儿审核通过了，我再补充回答。

用VBA实现了，输入内容为空时显示全部，不为空时根据输入内容进行筛选。

文件已上传：https://download.csdn.net/download/lidawei201/19339945