从文本框 excel vba 更新 ActiveRow

Question

请提供一些帮助 - 尽量保持简单

我有一个用户窗体，它根据 ComboBox 中的选择更新文本框。我希望能够更改这些填充的框，然后使用更新命令，更改工作表中的值，然后清除表单

我已经能够创建添加数据的用户窗体，但我很难让 VBA 从控制框中选择活动单元格和活动行...????

一旦我可以将 VBA 放入正确的 AvtiveCell，我就可以根据需要使用偏移量和更改/添加

---

Private Sub ComboBox1_Change()
    With Me
        .TextBox1.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 2)
        .TextBox2.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 3)
        .TextBox3.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 4)
        .TextBox4.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 5)
        .TextBox5.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 6)
        .TextBox6.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 7)
        .TextBox7.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 8)
        .TextBox8.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 9)
        .TextBox9.Value = Sheet1.Cells(.ComboBox1.ListIndex + 2, 10)
    End With
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub EditAddButton_Click()
    EditAdd
End Sub

Private Sub UserForm_Initialize()
    TextBox1.SetFocus
End Sub

Answer 1

好的，你已经完成了自动填充。现在您需要将代码添加到您的 EditAdd 单击子。大概你想用用户表单中的内容替换工作表上的单元格值。

到目前为止，您尝试过什么？我会简单地尝试扭转分配！例如，在那个 sub 中，做这样的事情：

Private Sub EditAddButton_Click()
    Dim ComplaintNum as Integer
    ComplaintNum = ComboBox1.ListIndex + 2
    With Sheet1
        .cells(ComplaintNum, 2) = TextBox1.Value
        ' etc down the list
    End With
End Sub

我还没有测试过这个 - 但试一试并尝试一下。你还需要处理添加新行，但我不会为你写这个:)