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

VBA万岁

第1个问题：
将你的代码
For i = 1 To 5
    Sheet1.Cells(b + 1, i) = a.Offset(0, i - 1)
改为
For i = 2 To 5
    If i <> 4 Then Sheet1.Cells(b + 1, i) = a.Offset(0, i - 1)

VBA万岁

VBA万岁 发表于 2014-4-14 16:43
第1个问题：
将你的代码
For i = 1 To 5

第1、3个问题：
将你的代码
For i = 1 To 5
    Sheet1.Cells(b + 1, i) = a.Offset(0, i - 1)
改为
For i = 2 To 5
    If i <> 4 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 1)

116632880

谢谢现在已经解决掉2个问题，第二个text问题还没有解决
我又发现一个错误，上下引用位置还不对。

VBA万岁

116632880 发表于 2014-4-14 15:55
Private Sub ListBox1_Click()
    b = Sheets("录入表").Range("c65536").End(xlUp).Row
Set a  ...

将上面的代码改为以下代码后，3个问题均可解决：
Private Sub ListBox1_Click()
If Left(ListBox1.Value, 4) & ";" = Year(Date) & ";" Then
    Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex, 1))
    For i = 2 To 5
        If i <> 4 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)
    Next i
Else
    Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex))
    For i = 1 To 5
        If i <> 3 Then Sheet1.Cells(ActiveCell.Row, i + 1) = a.Offset(0, i - 1)
    Next i
End If
End Sub

VBA万岁

VBA万岁 发表于 2014-4-14 19:48
将上面的代码改为以下代码后，3个问题均可解决：
Private Sub ListBox1_Click()
If Left(ListBox1.Valu ...

附件如下（仅供测试），因你附件中的代码太乱，仅修改了 ListBox1_Click 代码，其他的没变：
查询导入.zip (17.46 KB, 下载次数: 21)

2014-4-14 19:51 上传

点击文件名下载附件

VBA万岁

VBA万岁 发表于 2014-4-14 19:48
将上面的代码改为以下代码后，3个问题均可解决：
Private Sub ListBox1_Click()
If Left(ListBox1.Valu ...

上述代码进一步简化如下：

Private Sub ListBox1_Click()
Set a = IIf(Left(ListBox1.Value, 4) & ";" = Year(Date) & ";", Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex, 1)), Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex)))
For i = 2 To 5
    If i <> 4 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)
Next i
End Sub

116632880

十分感谢你的帮助，问题已经解决
就是不明白为什么用到2个循环，能否解释一下，我怎么不能送你鲜花，新手没有这个功能吗
For i = 2 To 5
        If i <> 4 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)
    Next i
Else
    Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex))
    For i = 1 To 5
        If i <> 3 Then Sheet1.Cells(ActiveCell.Row, i + 1) = a.Offset(0, i - 1)

VBA万岁

116632880 发表于 2014-4-15 07:37
十分感谢你的帮助，问题已经解决
就是不明白为什么用到2个循环，能否解释一下，我怎么不能送你鲜花，新手没 ...

两个循环显得有点累赘，所以在16楼做了简化。

VBA万岁

VBA万岁 发表于 2014-4-15 09:10
两个循环显得有点累赘，所以在16楼做了简化。

其实代码还可如下写：
Private Sub ListBox1_Click()
Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex, IIf(Left(ListBox1.Value, 4) & ";" = Year(Date) & ";", 1, 0)))
For i = 2 To 5
    If i <> 4 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)
Next i
End Sub

VBA万岁

VBA万岁 发表于 2014-4-15 09:15
其实代码还可如下写：
Private Sub ListBox1_Click()
Set a = Sheets("录入表").Cells.Find(ListBox1.L ...

更好的写法为：
Private Sub ListBox1_Click()
Set a = Sheets("录入表").Cells.Find(ListBox1.List(ListBox1.ListIndex, IIf(Format(ListBox1.Value, "yyyy") & ";" = Year(Date) & ";", 1, 0)))
For i = 2 To 5
    If i <> 4 Then Sheet1.Cells(ActiveCell.Row, i) = a.Offset(0, i - 2)
Next i
End Sub