怎样导入前面已经录入的品名价格（没解决）

116632880

这个表目前只能一个表调用一个窗体，窗体的代码都是个单个表相关联能不能多个表共用这个窗体??

VBA万岁

116632880 发表于 2014-4-19 14:24
按楼上的代码修改后，功能完成了一半，但是日期是按照年代和月排序的，在一个月内的日期还没有排序，
所以 ...

代码作了修改：
Private Sub TextBox1_Change()
Dim a(), m%
On Error Resume Next
If TextBox1.Text = "" Then
    Call zb
Else
    ReDim a(1 To ListBox1.ListCount, 1 To 14)
    For i = 1 To ListBox1.ListCount
        If InStr(ListBox1.List(i - 1, 12), TextBox1.Text) > 0 Then
            m = m + 1
            For j = 1 To 14
                a(m, j) = ListBox1.List(i - 1, j - 1)
            Next j
        End If
    Next i
End If
ListBox1.List = a
End Sub

Private Sub UserForm_Initialize()
Dim arr, b, c
ListBox1.ColumnWidths = "90,150,40,50,60,0,0,0,70,0,0,80,120,40"
Call zb
End Sub

Public Function zb()
Me.ListBox1.Height = 300 ' 设置列表框的高度
Myr = Sheets("录入表").Range("c65536").End(xlUp).Row ' 信息表的最后一行行号
ar = Sheets("录入表").Range("a3:n" & Myr) ' 信息表的数据区域
ListBox1.ColumnCount = UBound(ar, 2) ' 设定listbox表中的列数
Me.ListBox1.List = ar ' 将信息表的数据全部显示到列表框中

ListBox1.List = Array_Sort(ListBox1.List, 0, 2)
ReDim b(1 To ListBox1.ListCount, 1 To 14)
ReDim c(1 To ListBox1.ListCount, 1 To 14)
For i = 1 To ListBox1.ListCount
    If Day(Val(ListBox1.List(i - 1, 1))) > 9 Then
        m = m + 1
        For j = 1 To 14
            b(i, j) = ListBox1.List(i - 1, j - 1)
        Next j
    Else
        n = n + 1
        For j = 1 To 14
            c(i, j) = ListBox1.List(i - 1, j - 1)
        Next j
    End If
Next i
For i = m + 1 To m + n
    For j = 1 To 14
        b(i, j) = c(i - m - 1, j - 1)
    Next j
Next i
ListBox1.List = b
End Function

VBA万岁

VBA万岁 发表于 2014-4-19 19:34
代码作了修改：
Private Sub TextBox1_Change()
Dim a(), m%

截图：

VBA万岁

VBA万岁 发表于 2014-4-19 19:37
截图：

附件：
模糊查询 老系统版 20140501.zip (26.02 KB, 下载次数: 42)

2014-4-19 19:38 上传

点击文件名下载附件

116632880

经过5天马拉松式的改动，终于达到实际需求了，再次感谢您的执着，感谢您的帮助。
请问 VBA万岁，如果一个工作簿有3-4个相同类型的sheet表，能否都可调用此窗体。因为考虑到同一个客户，可能有多个分支机构上我单位购买货物，需要分别核算。
感觉是不可能的，不知您有没有明确的答案？

VBA万岁

116632880 发表于 2014-4-19 21:39
经过5天马拉松式的改动，终于达到实际需求了，再次感谢您的执着，感谢您的帮助。
请问 VBA万岁，如果一个工 ...

可以调用。

116632880

可以用多个表调用窗体 ，设置好后，不知道哪里错了，竟然不辨认窗体

excel333

116632880 发表于 2014-4-20 07:43
可以用多个表调用窗体 ，设置好后，不知道哪里错了，竟然不辨认窗体

......
Myr = ActiveSheet.[b65536].End(xlUp).Row ' 信息表的最后一行行号
ar = ActiveSheet.Range("a3:n" & Myr) ' 信息表的数据区域
......

116632880

不能对当前活动表操作吗

itxianfeng

下面还是有错误，引用的还是sheet1表
Private Sub ListBox1_Click()' a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex, 1))
a = ActiveSheet.Cells.Find(ListBox1.List(ListBox1.ListIndex, 1))
For i = 2 To 14
    If i <> 4 And i <> 6 And i <> 7 And i <> 8 And i <> 10 And i <> 11 And i <> 13 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)
Next i
End Sub