如何实现VBA UserForm文本框点击时临时放大以适配输入内容

前置属性设置 #

操作前先确认文本框的基础属性配置：

• 确保MultiLine属性设为True（否则无法统计行数，也不能多行显示内容）
• 按需开启WordWrap属性实现自动换行

完整实现代码 #

将以下代码粘贴到对应UserForm的代码模块中即可：

' ===== 模块顶部（所有事件外）声明变量，存储文本框原始属性用于失焦恢复 =====
Private originalTxtHeight As Single
Private originalTxtWidth As Single
Private originalTxtTop As Single
Private originalTxtLeft As Single
' 自定义放大后的最大高度，避免文本过长时撑出窗体边界
Const MAX_TXT_HEIGHT As Single = 200

' ===== 文本框获取焦点事件（点击/Tab切到控件均触发）=====
Private Sub TextBox1_Enter()
    ' 首次触发时保存原始尺寸，只需存储一次
    If originalTxtHeight = 0 Then
        originalTxtHeight = TextBox1.Height
        originalTxtWidth = TextBox1.Width
        originalTxtTop = TextBox1.Top
        originalTxtLeft = TextBox1.Left
    End If
    ' 进入时立刻适配内容大小
    Call AdjustTextBoxSize
End Sub

' ===== 文本框内容变更事件，输入时实时调整大小 =====
Private Sub TextBox1_Change()
    ' 仅当文本框处于激活状态时调整，避免未选中时布局乱跳
    If ActiveControl Is TextBox1 Then
        Call AdjustTextBoxSize
    End If
End Sub

' ===== 文本框失焦事件，点击其他控件时恢复原始尺寸 =====
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Height = originalTxtHeight
    TextBox1.Width = originalTxtWidth
    TextBox1.Top = originalTxtTop
    TextBox1.Left = originalTxtLeft
End Sub

' ===== 封装的尺寸调整公用方法 =====
Private Sub AdjustTextBoxSize()
    Dim lineHeight As Single, fitHeight As Single
    ' 按当前字体动态计算单行高度，加20%行间距避免文字贴边
    lineHeight = TextBox1.Parent.TextHeight("A") * 1.2
    ' 计算适配全部内容的总高度
    fitHeight = TextBox1.LineCount * lineHeight
    ' 限制最大/最小高度，避免超出窗体或者内容过少时缩小
    If fitHeight > MAX_TXT_HEIGHT Then fitHeight = MAX_TXT_HEIGHT
    If fitHeight < originalTxtHeight Then fitHeight = originalTxtHeight
    ' 应用高度调整，如需自适应宽度可以添加下方注释的代码
    TextBox1.Height = fitHeight
    ' TextBox1.Width = TextBox1.Parent.TextWidth(TextBox1.Text) + 10
    
    ' 可选逻辑：高度变大后如果超出窗体下边界，自动向上偏移位置
    If TextBox1.Top + TextBox1.Height > TextBox1.Parent.InsideHeight Then
        TextBox1.Top = TextBox1.Parent.InsideHeight - TextBox1.Height - 5
    End If
End Sub

适配说明 #

• 如果你的文本框控件名不是TextBox1，请把代码中所有TextBox1替换为实际控件名
• 可以自行修改MAX_TXT_HEIGHT常量的数值，适配你自己的窗体尺寸
• 相比你原有代码的优化点：兼容Tab切焦点场景、支持输入时实时适配、失焦自动复原、动态适配不同字体大小、增加防溢出逻辑

内容的提问来源于stack exchange，提问作者2acb_John_Suren