大神，帮我实现自动化！

wei710200

大神，如何实现在红色区域双击品名下面的单元格可以出来选择直接带出我黄色区域输入的信息：品名、纸质、种类、规格、面积 ，黄色区域会一直增加产品信息 ！跪谢

蓝桥玄霜

用单击比较好：

wei710200

蓝桥玄霜 发表于 2019-10-9 10:31
用单击比较好：

您这是图片 能发我能复制的那种吗

wei710200

蓝桥玄霜 发表于 2019-10-9 10:31
用单击比较好：

老师 我输进去也不行啊

wei710200

这个很难搞吗！！！！！

shi353

典型vba宏碼達成Vlookup函數的查找效果

蓝桥玄霜

请仔细核对抄写的代码，初学者常常会抄错的。
建议上传出错的代码和附件看看。

shi353

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column <> 3 Or Target.Row < 7 Or Len(Target) = 0 Then
        Exit Sub
    End If
    '-------------------------------------
    arr = Sheet1.[X6].CurrentRegion
    For i = 2 To UBound(arr)
        If Target = arr(i, 1) Then
            A = Application.Index(arr, i)
            Target.Resize(1, 5) = A
            Exit Sub
        End If
    Next
    '-------------------------------------
End Sub