运行时错误 380：无法设置 ControlSource 属性。 Excel 中用户窗体的属性值无效答案

【问题标题】：Run-time error 380: Could not set ControlSource property. Invalid property value for userform in Excel运行时错误 380：无法设置 ControlSource 属性。 Excel 中用户窗体的属性值无效
【发布时间】：2017-02-01 03:19:48
【问题描述】：

我在 Excel 2013 中从 Internet 资源创建了一个用户表单。当我按下 Ctrl-m 或双击单元格时，会弹出一个用户表单，在其中我可以轻松查看我的 cmets 并键入新的 cmets。

这行代码出现了标题中的运行时错误380（完整代码见下文）：

Me.TextBox1.ControlSource = ActiveCell.Parent.Name & "!" & ActiveCell.Address

（在我在用户表单中包含 ListBox 之前，我会在同一行代码中收到运行时错误 424 Object Required。）

我的意见： 我已经查看了互联网上的各种答案，但我不明白如何修复这个运行时错误 380 b/c 它在我添加列表框后出现，但它没有引用列表框的代码行.

编辑： 我应该将列表框中的值列出为吗？：

With ListBox1
        .AddItem "8"
        .AddItem "10"
        .AddItem "12", etc.
End With

结束编辑

用户表单完成后的外观：

代码和设置：

用户窗体有一个TextBox1，其中出现了cmets并且可以编辑；一个 ListBox1，它列出了用户可以选择在评论文本上使用的字体大小；和一个 CommandButton1 来显示用户表单。
我只更改了文本框的属性。 MultiLine 为 True，Word Wrap 为 True，ScrollBars 为 None。

如果能帮助解决这个问题，我将不胜感激。

这是完整的代码，位于用户表单下：

Private Sub ListBox1_Click()
Me.TextBox1.Font.Size = ListBox1.Value
End Sub

> '~~~~~~

Private Sub UserForm_Activate()

Me.TextBox1.ControlSource = ActiveCell.Parent.Name & "!" & ActiveCell.Address

Me.ListBox1.List = Array(8, 10, 12, 14, 16, 18, 20, 24)

End Sub

> '~~~~~~

Private Sub CommandButton1_Click()
Unload ZoomForm
End Sub

这是命令按钮下的代码，它位于电子表格的一个 Module1 中：

Sub ShowZoom()
    ZoomForm.Show
End Sub

【问题讨论】：

标签： textbox listbox zooming excel-2013 userform

【解决方案1】：

回答：这里是其他可能需要帮助的人的答案。出错的是代码行中的引号。

Me.TextBox2.ControlSource = "'" & ActiveCell.Parent.Name & "'!" & ActiveCell.Address

引号如下：（单引号 = sq，双引号 = dq - 中间没有空格）：

Me.TextBox2.ControlSource = (dq)(sq)(dq) & ActiveCell.Parent.Name & (dq)(sq)!(dq) & ActiveCell.Address

我在这里找到了答案：Forum used to help re: quotes

我不知道为什么带有此代码的示例表单可以与我最初为此行发布的代码一起使用，但它在我的工作簿中不起作用。我还将用户窗体和控件（文本框、列表框等）的名称更改为 Textbox2、Listbox2、Commandbutton2 和 ZoomForm2，以防万一它与工作簿中的任何代码发生冲突，但我不确定是否有帮助。

如果您想将代码和示例表单添加到电子表格中，请访问以下网站：

ZoomForm Site

谢谢。

【讨论】：