Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '定义双击事件
    Dim getExit As Integer
    getExit = 0
    Application.ScreenUpdating = False '屏幕不更新
    
    For Each im In ActiveSheet.Shapes '删除名字为测试的图片
        If im.Name = "测试" Then
            im.Delete
        End If
    Next

    Dim getValue As String '单元格值
    Dim Work1 As Workbook '定义工作Excel变量
    Dim Work2 As Workbook '定义工作Excel变量
    top = Target.top ' 获取当前活动单元格的高度

    Set Work1 = CreateObject("C:\Users\Hywell\Desktop\test.xlsx") '创建Worksheet对象
    Set Work2 = CreateObject("C:\Users\Hywell\Desktop\test2.xlsx") '创建Worksheet对象

    Allsheets = Array(Work1, Work2) '定义工作Excel数组
    
    getValue = Range(Target.Address) '获取当前活动单元格地址的内容
    If Target.Column = 6 Then '判断是否为F列
        If getValue = "" Then
            MsgBox "数据为空!"
        Else
            For Each i In Allsheets '遍历工作Excel数组
                If getExit = 0 Then
                    Call getResult(i, getValue, getExit, top) '调用getResult函数 获取所需数据区域
                Else
                    Exit For
                End If
            Next
            If getExit = 0 Then
                MsgBox "找不到对应明细表!"
            End If
        End If
    End If
    
    Set Work1 = Nothing '清空Work1对象
    Set Work2 = Nothing '清空Work2对象
    
End Sub

Sub getResult(Worksheet, getValue, getExit, top) '获取数据(getValue)区域
    Dim getInt As Integer '开始行数
    Dim getInt2 As Integer '最后行数
    Dim getNum As Integer '用于退出Fox循环
    Dim getWork As Integer '获取工作的sheet
    Dim Time As String '定义定位标识符
    
    getInt = 0 '初始化
    getInt2 = 0 '初始化
    getNum = 0 '初始化
    Time = "日期" '初始化

    For y = 1 To Worksheet.Sheets.Count '遍历工作Excel中的Sheet的数量
        For i = 1 To Worksheet.Sheets(y).UsedRange.Rows.Count '遍历sheet已经被使用单元格的行数
            If Worksheet.Sheets(y).Range("F" & i) = getValue Or InStr(Worksheet.Sheets(y).Range("I" & i), getValue) Then '根据货号取得对应sheet的I列中第一次出现
                getInt = i
                getNum = getNum + 1
                Exit For
            End If
        Next
    
        If getInt <> 0 Then
            For i = getInt To Worksheet.Sheets(y).UsedRange.Rows.Count '从getInt遍历sheet2已经被使用单元格的行数
                If InStr(Worksheet.Sheets(y).Range("A" & i), Time) Then
                    getInt2 = i + 1
                    Exit For
                End If
            Next
        End If

        If getInt <> 0 Then
            getWork = y
            Exit For
        Else
            getWork = 1
        End If
    Next

    If getInt2 = 0 Then
        getInt2 = getInt
    End If
    
    If getInt <> 0 Then
        Call getImage(Worksheet, getWork, getInt, getInt2, top) '调用getImage生成图片
        getExit = getExit + 1
    End If
    
End Sub

Sub getImage(Worksheet, getWork, getInt, getInt2, top)
    Worksheet.Sheets(getWork).Range("A" & getInt - 2 & ":O" & getInt2).Copy
    
    With ActiveSheet.Pictures.Paste(Link:=True) '设置图片属性
        .Left = 1110
        .top = top
        .Name = "测试"
    End With
    Application.CutCopyMode = False
End Sub