Excel VBA搜索和更新

时间:2019-02-25 10:56:26

标签: excel vba

我有一个VBA脚本,可以搜索多个结果并显示在Bxx-Dxx行中。

Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Long
Dim resultrow As Long

resultrow = 11

lastrow = Sheets("Klanten").Cells(Rows.count, 1).End(xlUp).Row
Sheet1.Range("resultcells").ClearContents
count = 0
For x = 5 To lastrow
    If Sheets("Klanten").Cells(x, 2) = Sheet1.Range("C6") Then
        Sheet1.Range("C11").Offset(count) = Sheets("Klanten").Cells(x, 1)
        Sheet1.Range("B11").Offset(count) = Sheets("Klanten").Cells(x, 2)
        Sheet1.Range("D11").Offset(count) = Sheets("Klanten").Cells(x, 11)
        count = count + 1
End If


Next x

End Sub

我想在搜索发生后修改结果,然后对其进行更新。

就像在这种情况下一样:

  

客户购买商品并获得忠诚度积分,所有者搜索其   在excel中命名,并将其点更新为 new 值。

表单如下:

enter image description here

最后一栏包含客户在商店的积分。

我要这样做,以便您可以直接从搜索结果中编辑点,然后按“点点一滴”按钮,以便在其他工作表中使用客户数据。

我之所以问这个原因是因为我对VBA本身零经验,更不用说Excel中的VBA了。

0 个答案:

没有答案