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

116632880

VBA万岁，下午好
实际操作中我又发现3个关于显示日期的问题
1.如果表中有去年的数据，不是程序错误，就是价格只能显示但不能导出来。
2.单位以前人员录入的日期为了省事，有空行现象，这种情况也是只能显示不能导出。
（就是指：如果上下行出现重复的日期，下一行的日期就是空的，在下一行同理）
3能不能listbox的窗口，查出数据之后，当前窗口只显示日期最近的几行数据，因为拷贝价格主要是从最近的日期中拷贝。

116632880

前面两个问题，应该属于同一个问题，和程序开始的那个日期判断有关，但是我看不明白，能否再改动一下。Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex, IIf(Format(ListBox1.Value, "yyyy") & ";" = Year(Date) & ";", 1, 0)))

116632880

最后一个问题在Private Sub UserForm_Initialize()代码中加上一句，可是怎么不管用，按理应该显示窗体的最后一行数据啊
ListBox1.ListIndex = ListBox1.ListCount - 1

116632880

前面两个问题已经解决，只剩下最后一个问题
listbox的窗口，查出数据之后，当前窗口只显示日期最近的最后几行数据，因为拷贝价格主要是从最近的日期中拷贝。 以前的可以通过向上翻页解决
最后一个问题在Private Sub UserForm_Initialize()代码中加上一句，可是怎么不管用，按理应该显示窗体的最后一行数据啊
ListBox1.ListIndex = ListBox1.ListCount - 1

VBA万岁

116632880 发表于 2014-4-19 09:17
前面两个问题已经解决，只剩下最后一个问题
listbox的窗口，查出数据之后，当前窗口只显示日期最近的最后几 ...

传上附件我看看。

116632880

谢谢VBA万岁  附件如下

116632880

如果模糊搜寻 “sltz”或是中文“塑料笤帚” 或是“1001”之后，就会显示“塑料笤帚 +簸箕“这一个商品，我想直接看到最后一页，可是因为数据较多，需要2页显示，我总是要点击下滑键  才能看到最近的数据，我的意思就是不用点击下滑键就能直接看到最后也一夜的数据。一般数据最多是2页。

VBA万岁

116632880 发表于 2014-4-19 10:20
如果模糊搜寻 “sltz”或是中文“塑料笤帚” 或是“1001”之后，就会显示“塑料笤帚 +簸箕“这一个商品，我 ...

可用排序来解决这个问题。让最近日期始终显示在前几行。

116632880

那是指对sheet表中的原始数据进行排序吗？还是在listbox表中排序？

VBA万岁

116632880 发表于 2014-4-19 12:13
那是指对sheet表中的原始数据进行排序吗？还是在listbox表中排序？

给你一段排序的代码：

Function Array_Sort(Array_, Key1, Order)    '(Array_[将要排序的数组], Key1[垂直数组(y,x)中x，像表格中的哪一列作关键字], Order[=1,升序;<>1,降序])
    Dim t, x&, y&, i&, j&, k&, xx&, yy&, tt&, AD&
    For i = 1 To 60
        On Error Resume Next
        Err.Clear
        tt = UBound(Array_, i)
        If Err.Number = 9 Then AD = i - 1: Exit For    'AD,数组维数
    Next
    If AD = 2 Then
        If Not (Key1 >= LBound(Array_, 2) And Key1 <= UBound(Array_, 2)) Then Exit Function
    ElseIf AD = 1 Then
        Array_ = Application.Transpose(Array_)
        Key1 = 1
    Else
        Exit Function
    End If
    y = LBound(Array_, 1): x = LBound(Array_, 2)
    yy = UBound(Array_): xx = UBound(Array_, 2)
    If Order = 1 Then    '升序
        For i = y To yy - 1
            For j = i + 1 To yy
                If Array_(j, Key1) < Array_(i, Key1) Then    '冒泡排序法
                    For k = x To xx
                        t = Array_(j, k): Array_(j, k) = Array_(i, k): Array_(i, k) = t
                    Next
                End If
            Next
        Next
    Else    '降序
        For i = y To yy - 1
            For j = i + 1 To yy
                If Array_(j, Key1) > Array_(i, Key1) Then
                    For k = x To xx
                        t = Array_(j, k): Array_(j, k) = Array_(i, k): Array_(i, k) = t
                    Next
                End If
            Next
        Next
    End If
    If AD = 2 Then Array_Sort = Array_ Else Array_Sort = Application.Transpose(Array_)
End Function