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

116632880

谢谢VBA万岁帮忙，我发现在TEXTBOX输入查询数值时候，下方不显示日期，现实中我是需要看到日期的（查看时用，但是不导入单元格中）。
为了实际需要，我又添加了5列数据，将代码的区域自己调整一下。请看下附件
如果我为了以后自己修改代码方便，能否将所有数据列全部显示在listboxox中，包括日期、金额等，我只需将需要隐藏的列宽设置为0，即可隐藏不需要显示的数据列。
不过有几列数据我不想导入到单元格中，因为那些数据有些是时效的数据（过期作废），或者是公式，表中的A、F'、G、H、j列就是这些数据。
再就是显示窗体后，在textbox中能否按照M列中的助记码录入，就是指模糊录入，然后再根据助记码在下方显示出已经查到的所有数据。请看下更新后的附件

116632880

我是想点击B列弹出窗体，录入的方式是利用m列的助记码，模糊录入不知道行不行

VBA万岁

116632880 发表于 2014-4-15 13:34
谢谢VBA万岁帮忙，我发现在TEXTBOX输入查询数值时候，下方不显示日期，现实中我是需要看到日期的。
为了实 ...

助记录入，只需要将你的代码
If InStr(ar(i, 1), TextBox1.Text) > 0 Then
改为
If InStr(ar(i, 12), TextBox1.Text) > 0 Then
即可。

VBA万岁

VBA万岁 发表于 2014-4-16 12:20
助记录入，只需要将你的代码
If InStr(ar(i, 1), TextBox1.Text) > 0 Then
改为

请测试附件。
模糊查询 老系统20140501.rar (18.51 KB, 下载次数: 17)

2014-4-16 12:21 上传

点击文件名下载附件

116632880

非常感谢您，助记码可以用了 给您添了不少麻烦
listbox中第一行的标题能否设置成：标题永远显示在第一行
如果在texebox中输入助记码后，下方的listbox中就不能显示出日期列来，能否改成在listbox中显示出日期来（但是作为查看用的数据，不导出到单元格）。   
第9,12,13列数据能否导出在单元格中显示出来，这个是做为下次调用的原始数据。                                                                             第6,8,11列因为是公式，如果显示就会清除公式，所以不需要导出在单元格显示。
第1,4,7,10列数据是过期就没用的数据，所以也不需要导出在单元格中显示。这个我改的老是不对。
  If i <> 4 Or i <> 6 Or i <> 7 Or i <> 8 Or i <> 10 Or i <> 11 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)

VBA万岁

116632880 发表于 2014-4-16 13:52
非常感谢您，助记码可以用了 给您添了不少麻烦
listbox中第一行的标题能否设置成：标题永远显示在第一行
...

为了能解决以下问题，修改TextBox1_Change代码如下：
listbox中第一行的标题能否设置成：标题永远显示在第一行
如果在texebox中输入助记码后，下方的listbox中就不能显示出日期列来，能否改成在listbox中显示出日期来（但是作为查看用的数据，不导出到单元格）。   

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 13, 1 To 2)
    Myr = Sheets("&Acirc;&frac14;&Egrave;&euml;±í").Range("a65536").End(xlUp).Row
    ar = Sheets("&Acirc;&frac14;&Egrave;&euml;±í").Range("a3:m" & Myr)
    For i = 1 To 13
        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 13
                a(j, UBound(a, 2)) = ar(i, j)
            Next
            ReDim Preserve a(1 To 13, 1 To UBound(a, 2) + 1)
        End If
    Next
    ListBox1.ColumnCount = UBound(ar, 2)
    Me.ListBox1.List = Application.Transpose(a)
End If
End Sub

VBA万岁

VBA万岁 发表于 2014-4-16 14:37
为了能解决以下问题，修改TextBox1_Change代码如下：
listbox中第一行的标题能否设置成：标题永远显示在 ...

附件如下：
模糊查询 老系统20140501.rar (18.65 KB, 下载次数: 29)

2014-4-16 14:40 上传

点击文件名下载附件

116632880

谢谢终于解决了2个很难缠的问题（日期和标题行的显示）。
最后一个问题还没有解决。
我想从listbox中只有（第2,3,5,9,11,12,13列）几列数据导入到当前行的单元格中，
         listbox中其他的（第1,4,6,7,8,10列）几列数据不导入到当前行的单元格中。
                                                                          
怎样实现？？就是说只有品名 单位 单价 品牌 商品编号 助记码，作为原始的数据导入单元格中，以备后面进行复制。
其他的数量，合计，单号，备注，不导入到单元格中

116632880

我把代码设成这样感觉应该实现，可是数据居然全部导入到单元格中去了，把公式都给覆盖了，变成了数值

For i = 2 To 13
     If i <> 4 Or i <> 6 Or i <> 7 Or i <> 8 Or i <> 10 Or i <> 11 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)
Next i

116632880

终于解决原来是这样，我晕了 逻辑错误
  If i <> 4 And i <> 6 And i <> 7 And i <> 8 And i <> 10 And i <> 11 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)