Vba 将文本粘贴到userform文本框后，Excel将冻结

我有一个vba用户表单文本框

• ControlSource=Excel单元格
• EnterKeyBehavior=True
• 多行=真
• 最大长度=500

复制时，请在框中粘贴文本，例如下面的随机文本：

它来自哪里？ 与流行的观点相反，Lorem Ipsum不是简单的随机文本。它起源于公元前45年的一段古典拉丁文学，距今已有2000多年的历史

然后离开此文本框（通过单击其他地方，例如另一个文本框）

• excel冻结（无响应，无法打开任何excel文件）
• excel的CPU使用率达到约50%（与正常使用相比异常高）

你知道这种冻结/行为的原因吗

用户表单后面的代码：

Private Sub CommandButton_PD_NP_Click()
If Me.Tb_PD_1.Value = "" Or Me.Tb_PD_2.Value = "" Then
MsgBox "Please specify your Business Area and Activity Name.", vbExclamation, "Error!"
Exit Sub
End If
Unload Me
Uf2_Security.Show
End Sub

Private Sub CommandButton_PD_PP_Click()
Unload Me
Uf1_Initiate.Show
End Sub

Private Sub UserForm_Initialize()
With Uf15_Project_Details
 .Height = 357
 .Left = 0
 .StartUpPosition = 2
 .Top = 0
 .Width = 480
End With
End Sub

---

ControlSource=excel单元格依赖于该ControlSource单元格的任何公式？然后，这会触发公式计算，根据公式，此计算运行时间更长，并在计算时冻结Excel问题可能不在您描述的部分，而是在其他地方。嗨，在我的例子中，控制源单元格是W！Q40，它用于excel文件中的其他两个位置。在这两个位置，它的用法如下“=IF（W！Q40=”“，”，W！Q40）“Hi@Pᴇʜ，这会导致任何问题吗？代码中是否有此文本框的事件？或控制源单元格所在工作表中的任何工作表更改事件？