大家进来看看 能否 能帮新手解决这个问题 谢谢了

mye680

我制作了一个简单的发料单 ，也做了筛选窗体 但是我的窗体只显示数据源的一列内容，能否将窗体改为显示多列内容。比如名称和库存还有物料编码。

并且输入 编码和名称都能搜索 。搜索到相关内容后赋值给活动单元格。
比如点击器材编号或 物料弹出搜索窗口，然后在基础资料汇总搜索数据，找到数据赋值给器材编码 然后用编码带出名称和单位。
还望高手们赐教 谢谢了
高手们能不能代码后面注释一下，我也好好学习进步一下感谢

3190496160

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
r = ActiveCell.Row
With ListBox1
    For i = 1 To .ListCount - 1
        If .Selected(i) = True Then
            xh = i
            Exit For
        End If
    Next i
    If xh <> "" Then
        For j = 0 To 2
            Cells(r, j + 1) = .List(xh, j)
        Next j
    End If
End With
End Sub

Private Sub TextBox1_Change()
With Sheets("基础资料汇总")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b1:h" & r)
End With
lh = ActiveCell.Column
With ListBox1
    .Clear
    zd = TextBox1.Text
    If zd = "" Then
        .List = ar
    Else
        Dim br()
        ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
        n = 1
        For j = 1 To UBound(ar, 2)
            br(n, j) = ar(1, j)
        Next j
        For i = 2 To UBound(ar)
            If InStr(ar(i, lh), zd) > 0 Then
                n = n + 1
                For j = 1 To UBound(ar, 2)
                    br(n, j) = ar(i, j)
                Next j
            End If
        Next i
        If n = 1 Then
            .List = ar
        Else
            .List = br
        End If
    End If
End With
End Sub

Private Sub UserForm_Initialize()
Dim irow As Integer
Application.ScreenUpdating = False
With Sheets("基础资料汇总")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b1:h" & r)
End With
With ListBox1
    .Clear
    .ColumnCount = 7
    .ColumnWidths = "80,80,80"
    .List = ar
End With
Application.ScreenUpdating = True
End Sub

3190496160

发料单.rar (73.41 KB, 下载次数: 11)

2022-11-22 16:17 上传

点击文件名下载附件

mye680

太感谢了 谢谢高手解决了大问题

mye680

高手大人 有时间能否出个教程 我看论坛没有这方面的教程啊！看了你的代码没有搞东是怎么赋值的 ，我是新手想学的东东