vba - 在其他工作表上的其他文本框中复制文本框中的内容

Question

我在电子表格中有四张工作表。

每张纸上都有一个文本框。

当我在 sheet1 上输入文本框时，我希望 sheet2、sheet3 和 sheet4 上的文本框填充相同的值。

Answer 1

这是另一种方式:

创建一个模块，并将此代码放在那里。这需要为您自己的特定文本框名称和工作表名称进行配置

Public Sub UpdateTextBoxes(str As String)

    Sheets("sheet1").TextBox1.Text = str
    Sheets("sheet2").TextBox1.Text = str
    Sheets("sheet3").TextBox1.Text = str
End Sub

然后对于您希望复制的每个文本框对象，将其用于其更改事件(工作表类模块)(更改参数以适应您的需要)

Private Sub TextBox1_Change()
    UpdateTextBoxes Me.TextBox1.Text
End Sub

这样，您可以根据您认为合适的方式命名您的控件，并且您可以从任何文本框中更新文本，并且它们将始终保持一致。