复选框上的单元格值已复制到用户窗体文本框中

Question

我有几张纸，其中有许多复选框，勾选后，复选框旁边的单元格的值将使用 ActiveX 文本框复制到 textbox.Currently 中，下面的代码工作正常

Sub checkBoxHandler()
ActiveSheet.TextBox1.Text = ActiveSheet.TextBox1.Text & " " &  ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, 1).Value
End Sub

但现在我想使用用户窗体文本框，因为它可以浮动在工作簿上。修改如下代码并不能解决问题（勾选复选框旁边的单元格值不会复制到用户窗体文本框中）。

Sub ShowTextBox()
UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & vbLf &   ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, 1).Value
UserForm1.Show vbModeless
End Sub

有人知道如何让它工作吗？

Answer 1

我做过类似的项目。我认为用户窗体不支持那种方法。所以我这样做了：

我将 activex 文本框放在每个 sheet 上并相应地命名（Textbox1、Textbox2..），并将可见性属性设置为 False

我将宏（下方）分配给一个形状，以便在每个 sheet 上将 activex 文本框的值传递给用户窗体：

Sub hocmsummary()
UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & ActiveSheet.TextBox2.Text

End Sub

记得相应地更改文本框名称。

复选框上的单元格值已复制到用户窗体文本框中

Cell value upon checked box copied into Userform Textbox

excel

vba

textbox

userform