VBA单元格事件

yumz@123

请教各位大神，sheet1为原数据，sheet2为要查找和提起的表，通过I1单元格里选择1228或1108，把sheet1对应的数据提起过来。只提起“物料号，批次，目地仓，代码和发货数量，谢谢大家！

liulang0808

论坛案例不少可以参考下
如果还有疑问上传模拟附件

洋务德雷

SQL代码：select 物料号,批次,目的仓,代码,发货数量 from [sheet1$]

yumz@123

liulang0808 发表于 2023-3-23 21:49
论坛案例不少可以参考下
如果还有疑问上传模拟附件

老师你B站上的视频看了不少，可能是实际操作少了。

yumz@123

如附件数据量比较大，谢谢大家！

yumz@123

如附件数据量比较大，谢谢大家！

杨建营

感觉不太理想，请楼主参考。

yumz@123

杨建营 发表于 2023-3-24 22:25
感觉不太理想，请楼主参考。

谢谢，但是只能提取一个，我再看下。

yumz@123

liulang0808 发表于 2023-3-23 21:49
论坛案例不少可以参考下
如果还有疑问上传模拟附件

老师好，在论坛没有找到，附件已经上传，有时间帮忙看下，谢谢

yumz@123

liulang0808 发表于 2023-3-23 21:49
论坛案例不少可以参考下
如果还有疑问上传模拟附件

看老师的视频改的，能用
Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address(0, 0) <> "I1" Then Exit Sub
  If Len(Target) = 0 Then Exit Sub
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  r = 2
  Range("a:h").ClearContents
  arr = Sheets("内容二").UsedRange
  For j = 2 To UBound(arr)
      If arr(j, 6) = Target Then
         If Target = "1228" Then
            Range("N1:R1").Copy Range("A1:E1")
            Cells(r, 1) = arr(j, 2)
            Cells(r, 2) = arr(j, 3)
            Cells(r, 3) = arr(j, 4)
            Cells(r, 4) = arr(j, 5)
            Cells(r, 5) = arr(j, 7)
            r = r + 1
        ElseIf Target = "1108" Then
            Range("N2:T2").Copy Range("A1:G1")
            Cells(r, 1) = arr(j, 2)
            Cells(r, 2) = arr(j, 3)
            Cells(r, 3) = arr(j, 4)
            Cells(r, 6) = arr(j, 5)
            Cells(r, 7) = arr(j, 7)
            r = r + 1
       End If
    End If
Next j

Application.ScreenUpdating = True
Application.EnableEvents = True


End Sub