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

116632880

点击B列单元格，在text中输入商品名称，并将listbox中符合条件的以往数据导入到当前行中（只要品名、单位、单价，不要日期、数量），备注以往数据就在当前表中。
现在有三个问题
1现在直接点击listbox中的数据，可以导入全部数据至表中。但是我不需要其中的日期和数量。
2在text框中输入商品名称，数据的显示位置不对。
3现在已经可以在最后一行中导入数据了，但是我想实现在当前行中导入数据，
查询导入.rar (9.5 KB, 下载次数: 23)

2014-4-14 14:18 上传

点击文件名下载附件

VBA万岁

第1个问题：可以用VBA将导入的日期和数量清除。

VBA万岁

第2个问题：在text框中输入商品名称并单击列表框输入数据后，再再用VBA将录入的数据右移一格。

VBA万岁

第3个问题：将你代码中的Sheet1.Cells(b + 1, i) = a.Offset(0, i - 1)中b换为ActiveCell.Row

116632880

楼上的能否帮改下代码 ，这个位置我忙活半天，也不对，代码是别人写的，我只能改到这里

VBA万岁

VBA万岁 发表于 2014-4-14 14:47
第3个问题：将你代码中的Sheet1.Cells(b + 1, i) = a.Offset(0, i - 1)中b换为ActiveCell.Row

第3个问题：将你代码中的Sheet1.Cells(b + 1, i) = a.Offset(0, i - 1)中b+1换为ActiveCell.Row

116632880

还好 在您的帮助下已经解决第1和第3个问题，但第2个还需要在改

116632880

Private Sub ListBox1_Click() ' 单击列表框后将列表框中的数值拷贝到查询表中
b = Sheets("录入表").Range("c65536").End(xlUp).Row ' 取得录入表的最后一行行数
Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex)) ' 根据listbox表中的取得信息库表的最后一行行数
'For t = 1 To 7
For i = 1 To 5 ' 循环计算列数

    Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 1)  ' 将信息库的资料拷贝到表中
   
    Sheet1.Cells(ActiveCell.Row, 1) = ""  ' 将日期清零
    Sheet1.Cells(ActiveCell.Row, 4) = "" ' 将数量
   

Next i
'Next t
'Unload Me
End Sub
这段代码修正了第1和第3问题

116632880

但是，如果我已经输入了日期，导入数据后还会清空这个日期。
除非我改变录入顺序，最后录入日期

116632880

Private Sub ListBox1_Click()
    b = Sheets("录入表").Range("c65536").End(xlUp).Row
Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex))

For i = 1 To 5
If i = 2 Or i = 3 Or i = 5 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 1)
Next i

'Unload Me
End Sub



这样改动就不会覆盖日期，而且不会覆盖别的数据，例如当前行中已经录入的数量，单号，或是备注等。
但是又出现新的问题，才发现导出的上下位置有误，张冠李戴了。