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

VBA万岁

VBA万岁 发表于 2014-4-19 12:21
给你一段排序的代码：

Function Array_Sort(Array_, Key1, Order)    '(Array_[将要排序的数组], Key1 ...

调用代码为：
Private Sub UserForm_Initialize()
Dim arr
ListBox1.ColumnWidths = "90,150,40,50,60,0,0,0,70,0,0,80,120,40"
Call zb
ListBox1.List = Array_Sort(ListBox1.List, 0, 2)
End Sub

VBA万岁

VBA万岁 发表于 2014-4-19 12:22
调用代码为：
Private Sub UserForm_Initialize()
Dim arr

附件如下：
2014-4-19.zip (12.66 KB, 下载次数: 25)

2014-4-19 12:23 上传

点击文件名下载附件

VBA万岁

VBA万岁 发表于 2014-4-19 12:23
附件如下：

截图：

116632880

要的就是这个效果。
但是附件是这个吗，没找到那段代码，上传的不是这个附件吧

116632880

我按照41楼的初始化设置代码后，提示错误Array_Sort

VBA万岁

116632880 发表于 2014-4-19 13:05
我按照41楼的初始化设置代码后，提示错误Array_Sort

不好意思，传错了。
模糊查询 老系统版 20140501.zip (23.4 KB, 下载次数: 31)

2014-4-19 13:27 上传

点击文件名下载附件

116632880

谢谢VBA万岁 倒序功能实现了，
但是只是在窗体刚打开时，才有此功能，
关键是在textboxt中输入助记码后，lisbox的表中能实现这个倒序功能，此时显示的页面是最好有这个功能

VBA万岁

116632880 发表于 2014-4-19 14:06
谢谢VBA万岁 倒序功能实现了，
但是只是在窗体刚打开时，才有此功能，
关键是在textboxt中输入助记码后， ...

那就将文本框代码改为：
Private Sub TextBox1_Change()
On Error Resume Next
Dim a()
If TextBox1.Text = "" Then
    Call zb
Else
    Me.ListBox1.Height = 300
    ReDim a(1 To 14, 1 To 2)
    Myr = Sheets("录入表").Range("a65536").End(xlUp).Row
    ar = Sheets("录入表").Range("a3:m" & Myr)
    For i = 1 To 14
        a(i, 1) = ar(1, i)
    Next
    For i = 3 To Myr - 1
        If InStr(ar(i, 13), TextBox1.Text) > 0 Then ' 设置按照助记码的查询列
            For j = 1 To 14
                a(j, UBound(a, 2)) = ar(i, j)
            Next
            ReDim Preserve a(1 To 14, 1 To UBound(a, 2) + 1)
        End If
    Next
    ListBox1.ColumnCount = UBound(ar, 2)
    Me.ListBox1.List = Application.Transpose(a)
End If
ListBox1.List = Array_Sort(ListBox1.List, 0, 2)
End Sub

VBA万岁

VBA万岁 发表于 2014-4-19 14:13
那就将文本框代码改为：
Private Sub TextBox1_Change()
On Error Resume Next

模糊查询 老系统版 20140501.zip (23.49 KB, 下载次数: 27)

2014-4-19 14:15 上传

点击文件名下载附件

116632880

按楼上的代码修改后，功能完成了一半，但是日期是按照年代和月排序的，在一个月内的日期还没有排序，
所以最后一天的数据没有排在最上面。
我主要是考虑到由于单子录入的时间没有先后，存在日期并不完全是按顺序排序的，但是显示的时候最好能按倒序排序。