请大家帮忙看看这个怎么实现。

debra

主要是无法输入第二条没法使第一条不变。

debra

请高手帮我看一下。谢谢。

debra

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Integer
j = 7
If Target = Worksheets("Sheet1").Cells(4, 4) Then
For i = 2 To 60
If Worksheets("Sheet2").Cells(i, 3).Value = Worksheets("Sheet1").Cells(4, 4) Then
Worksheets("Sheet1").Cells(j, 2).Value = Worksheets("Sheet2").Cells(i, 2)
Worksheets("Sheet1").Cells(j, 3).Value = Worksheets("Sheet2").Cells(i, 3)
Worksheets("Sheet1").Cells(j, 4).Value = Worksheets("Sheet2").Cells(i, 4)
Worksheets("Sheet1").Cells(j, 5).Value = Worksheets("Sheet2").Cells(i, 5)
Worksheets("Sheet1").Cells(j, 6).Value = Worksheets("Sheet2").Cells(i, 6)
Worksheets("Sheet1").Cells(4, 4) = ""
j = j + 1
End If
Exit For
Next
End If
End Sub

我自己改的，但是提示下标越界呢？请大家帮忙看一下。谢谢。

debra

大家有没有人帮我看一下啊？

debra

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Integer
For i = 2 To 60
j = 7
If Worksheets("Sheet1").Cells(4, 4).Value = Worksheets("Sheet2").Cells(i, 3) Then
Worksheets("Sheet1").Cells(j, 2).Value = Worksheets("Sheet2").Cells(i, 2)
Worksheets("Sheet1").Cells(j, 3).Value = Worksheets("Sheet2").Cells(i, 3)
Worksheets("Sheet1").Cells(j, 4).Value = Worksheets("Sheet2").Cells(i, 4)
Worksheets("Sheet1").Cells(j, 5).Value = Worksheets("Sheet2").Cells(i, 5)
Worksheets("Sheet1").Cells(j, 6).Value = Worksheets("Sheet2").Cells(i, 6)
Worksheets("Sheet1").Cells(4, 4) = ""
j = j + 1
End If
Exit For
End Sub
我写了个这个，但是Target的区域进行判断，这个如何写。以前没做过VBA，今天帮朋友弄。

ACMAIN_CHM

我能想到的方法，是通过VBA来实现。
在这个SHEET的 Worksheet_Change 事件中来处理，把对应的单元格内容直接更新掉。

思路
在Worksheet_Change事件中， 对传入Target的区域进行判断，如果是D4，
  则到[药库]中去FIND相应内容，找到后把对应单元格value复制过来。
  或者把指定格的公式先改成你上面所用的公式，然后再把公式用cell.value替换掉


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209

debra

=LOOKUP(D4,药库!C2:药库!C60,药库!B2:药库!B60)
我写了个函数，可以实现查找，但是只要D4，也就是输入查询条件变，所有都变。也无法实现换行将第二条查询结果放入第二行。