Excel 通过用户表单更新单元格的数据

因此，我有两组数据： 1花费的金额 2.卡号

在a1和b1中

我想创建一个userform，它有两个字段，可以执行以下操作：

字段编号1：用户输入卡号，系统将在a列中查找相应的卡号

字段编号2：用户输入花费金额，系统将使用字段编号1中的相应卡号，并将输入的金额添加到字段编号2中，以增加现有值

---

如何做到这一点？？？

虽然使用文本框可以找到相应的值，但组合框会更好地减少输入错误卡号的机会

在UserForm模块中使用此代码

Private Sub CommandButton1_Click()
    Dim Rws As Long, Rng As Range, sh1 As Worksheet, r As Range
    Set sh1 = Worksheets("Sheet1")
    With sh1
        Rws = .Cells(Rows.Count, "D").End(xlUp).Row
        Set Rng = .Range(.Cells(5, "D"), .Cells(Rws, "D"))
    End With
    Set r = Rng.Find(what:=ComboBox1, lookat:=xlWhole)
    If r.Offset(, -1) <> "" Then
        r.Offset(, -1) = r.Offset(, -1) + TextBox1.Value
    Else: r.Offset(, -1) = TextBox1.Value
    End If

End Sub

Private Sub UserForm_Initialize()
    Dim Rws As Long, Rng As Range, sh1 As Worksheet
    Set sh1 = Worksheets("Sheet1")
    With sh1
        Rws = .Cells(Rows.Count, "D").End(xlUp).Row
        Set Rng = .Range(.Cells(5, "D"), .Cells(Rws, "D"))
    End With
    ComboBox1.List = Rng.Value

End Sub

---

在创建用户表单或在用户表单中添加代码方面，您需要什么帮助？将代码添加到表单Hey DaveXcel，我已经测试了该程序，它可以正常工作，但您的花费只是替换了现有的值。我希望获得现有的价值，并添加用户表单中输入的价值。谢谢你抽出时间来处理我的无能！r、 Offset，1=r。Offset，1+TextBox1。Value这部分代码将TextBox1添加到现有金额中。好吧，很抱歉我是一个excel白痴，我在这方面真的很差哈哈哈，我的卡号列在D行，金额支出列在C列，两个条目都从第5行开始填充。我如何调整代码，使其从那里开始？谢谢你最初的问题是A&Bi专栏使用了一个例子，我认为我可以自己改变它，但显然高估了自己哈哈哈