VBA自动更新用户表单文本框

Posted 2021-03-19

我试图用C2的值更新用户表单TextBox2 "需要的单元格数"。用户在TextBox1中输入单元格数，它就会更新单元格值A2，但我无法让它自动将C2的值传递给其他文本框。在C2中有一个简单的公式=(A2*2)+1，但我认为这不应该有问题。

Private Sub TextBox1_Change()
ThisWorkbook.Worksheets("Sheet2").Range("A2").Value = TextBox1.Value 
End Sub


Private Sub TextBox2_Change()

TextBox2.txtEcpNum.Text = CStr(Range("C2").Value) 
TextBox2.Show

End Sub

答案

该 Textbox2_Change() 事件处理程序没有被调用，当 Textbox1_Change() 正被调用。您需要做的就是改变 Textbox2 换了 Textbox1，即在同一个事件处理程序中。即：

Private Sub TextBox1_Change()

    ThisWorkbook.Worksheets("Sheet2").Range("A2").Value = TextBox1.Value
    TextBox2.txtEcpNum.Text = CStr(Range("C2").Value) 
    TextBox2.Show 

End Sub