[已解决]想用VBA做库存的查询和添加，但是写到最后卡在了FIND取得的行数上。。

zjdh

tianxy 发表于 2017-5-24 05:53
呃，我把代码改成了
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5  ...

那是因为你设置的变量类型错误！应该是
    Dim x As Integer
    Dim y As Integer
    Dim xfind As Integer
    Dim xfind1 As Integer
    Dim xfind2 As Integer
    Dim blank As Integer
把应该是数值变量设置为文本变量啦！

zjdh

帮你修改了一下：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target <> "" Then
        If Target.Row > 3 And Target.Row < 201 Then
           x = Target.Row()
            With Worksheets("库存")
                xfind1 = .Range("A:A").Find(Cells(x, 1), LookIn:=xlValues, After:=.[A9999], lookat:=xlWhole).Row
                xfind2 = .Range(.Cells(xfind1 - 1, 2), .Cells(xfind1 + 300, 2)).Find(Cells(x, 2), LookIn:=xlValues, lookat:=xlWhole).Row
                xfind = .Range(.Cells(xfind2 - 1, 3), .Cells(xfind2 + 100, 3)).Find(Cells(x, 3), LookIn:=xlValues, lookat:=xlWhole).Row
                blank = .Cells(xfind, 3).End(2).Column + 1
                Target.Copy .Cells(xfind, blank)
            End With
        End If
    End If
End Sub

zjdh

你的这个思路很容易产生张冠李戴，因为是第三列有相同的数据。
试试将“库存”第2行放到第5行去，在“IPAD MINI4” “白色”行输入数据，结果就错了！！

zjdh

改成用数组不仅速度快，而且无差错：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target <> "" Then
        If Target.Row > 3 And Target.Row < 201 Then
            x = Target.Row()
            With Worksheets("库存")
                ARR = .Range("A1").CurrentRegion
                For I = 2 To UBound(ARR)
                    If ARR(I, 1) & ARR(I, 2) & ARR(I, 3) = Cells(x, 1) & Cells(x, 2) & Cells(x, 3) Then Exit For
                Next
                blank = .Cells(I, 3).End(2).Column + 1
                Target.Copy .Cells(I, blank)
            End With
        End If
    End If
End Sub

tianxy

zjdh 发表于 2017-5-24 13:01
改成用数组不仅速度快，而且无差错：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Targ ...

我的天，这么短的代码就可以解决我的问题，结果我写了这么冗长的代码。。还起不了效果。。我该学的还有好多啊，谢谢！谢谢大神，完美解决。。
还有太多东西该学啊，谢谢你帮了我这么多还帮我重写了代码，谢谢，我可耻的做了伸手党。。

tianxy

zjdh 发表于 2017-5-24 13:01
改成用数组不仅速度快，而且无差错：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Targ ...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target <> "" Then
        If Target.Row > 3 And Target.Row < 201 Then
            x = Target.Row()
            With Worksheets("库存")
                ARR = .Range("A1").CurrentRegion
                For I = 2 To UBound(ARR)
                    If ARR(I, 1) & ARR(I, 2) & ARR(I, 3) = Cells(x, 1) & Cells(x, 2) & Cells(x, 3) Then Exit For
                Next
                blank = .Cells(I, 3).End(2).Column + 1
                Target.Copy .Cells(I, blank)
            End With
        End If
    End If
End Sub

BAIDU了一下END的用法，又学到新东西了。。
因为第四列是剩余数量，是不会往那里填数字的
那是不是说红字的那句其实变成.Cells(I, 4).End(2).Column + 1 也是可以实现同样的效果的？
谢谢大神，懂了好多新东西

zjdh

tianxy 发表于 2017-5-25 08:46
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target  "" Then
...

你第4列有公式啊，至少不是空格，所以
.Cells(I, 4).End(2).Column + 1
和
.Cells(I, 3).End(2).Column + 1
是一样的结果