我在电子表格中有四张工作表。
每张纸上都有一个文本框。
当我在 sheet1 上输入文本框时,我希望 sheet2、sheet3 和 sheet4 上的文本框填充相同的值。
最佳答案
这是另一种方式:
创建一个模块,并将此代码放在那里。这需要为您自己的特定文本框名称和工作表名称进行配置
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
这样,您可以根据您认为合适的方式命名您的控件,并且您可以从任何文本框中更新文本,并且它们将始终保持一致。
关于vba - 在其他工作表上的其他文本框中复制文本框中的内容,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2907095/