[已解决]模糊输入生成相应数据

naive薇

请教高手：帮忙一下，B8：B13如何模糊输入“信息表”的商品名称，点确认后，会往“商品编码、规格、单位、单价”生成对应的数据

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-5-18 12:42

送货打印单20160518.rar (15.71 KB, 下载次数: 25)

2016-5-18 12:42 上传

点击文件名下载附件

跳转到最佳答案楼层

naive薇

七彩屋

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <> 2 Then Exit Sub
   
3. r = Target.Row
   
4. On Error Resume Next
   
5. i = WorksheetFunction.Match(Target, Sheets("信息表").Range("b:b"), 0)
   
6.     Cells(r, 1) = Sheets("信息表").Cells(i, 1)
   
7.     Cells(r, 3) = Sheets("信息表").Cells(i, 2)
   
8.     Cells(r, 5) = Sheets("信息表").Cells(i, 4)
   
9.     Cells(r, 7) = Sheets("信息表").Cells(i, 5)
   
10. End Sub

复制代码

七彩屋

送货打印单20160518.rar (15.71 KB, 下载次数: 25)

2016-5-18 12:42 上传

点击文件名下载附件

naive薇

七彩屋 发表于 2016-5-18 12:42

帮忙把代码加进来哈，谢谢你了

七彩屋

产品名称的数据有效性可以用下面的代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim row1, arr1, d, I, s
    If Target.Row > 7 And Target.Row < 14 And Target.Column = 2 Then
        row1 = Sheets("信息表").Range("B65536").End(xlUp).Row
        arr1 = Sheets("信息表").Range("B2:B" & row1)
        Set d = CreateObject("Scripting.Dictionary")
        For I = 1 To UBound(arr1)
            If Not d.Exists(arr1(I, 1)) Then
                d.Add arr1(I, 1), ""
            End If
        Next
        s = Join(d.KEYS, ",")
        With Target.Validation
            .Delete
            .Add Type:=xlValidateList, _
                 AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, _
                 Formula1:=s
        End With
    End If
End Sub

七彩屋

naive薇 发表于 2016-5-18 16:42
帮忙把代码加进来哈，谢谢你了

不明白你原来的代码

七彩屋

需添加代码送货单套打.rar (181.49 KB, 下载次数: 17)

2016-5-18 18:17 上传

点击文件名下载附件

naive薇

超级感谢啊，麻烦你给我再加个代码。比如说，在物料编码中，直接输入物料编号后，其他数据可以自动填充到对应表格

naive薇

七彩屋 发表于 2016-5-18 18:17

超级感谢啊，麻烦你给我再加个代码。比如说，在物料编码中，直接输入物料编号后，其他数据可以自动填充到对应表格。