如何通过VBA实现双击活动单元格弹窗显示全部内容？

完全理解你遇到的痛点——长内容单元格受限于列宽、行高，每次查看完整内容都要反复调整格式，太麻烦了。用VBA实现「双击单元格弹出完整内容」的需求非常简单，下面给你两种实用方案，按需选择：

方案一：用MsgBox快速实现（轻量化首选） #

这是最省心的方式，不需要额外控件，几行代码就能搞定：

1. 打开Excel，按下 Alt + F11 打开VBA编辑器
2. 在左侧「工程资源管理器」里，双击你要实现功能的目标工作表（比如Sheet1）
3. 粘贴以下代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 取消默认的双击进入编辑模式行为，避免冲突
    Cancel = True
    
    ' 先检查单元格是否为空，防止弹出空对话框
    If Not IsEmpty(Target.Value) Then
        ' 弹出消息框，显示单元格的完整内容
        MsgBox Target.Value, vbOKOnly, "单元格完整内容"
    End If
End Sub

4. 回到Excel界面，双击任意有内容的单元格，就能直接看到完整内容的弹窗了！

方案二：用UserForm实现更友好的显示（适合超长/带格式内容） #

如果单元格内容特别长，或者包含换行、分段格式，MsgBox的显示效果可能不够理想，这时可以用UserForm搭配文本框来实现更灵活的展示：

步骤1：创建自定义弹窗 #

1. 在VBA编辑器中，点击菜单栏「插入」→「用户窗体」
2. 从左侧工具箱拖拽一个「TextBox」控件到UserForm上
3. 选中TextBox，在右侧「属性窗口」修改这些设置：
   • MultiLine：设为 True（允许内容换行）
   • ScrollBars：设为 fmScrollBarsVertical（添加垂直滚动条）
   • WordWrap：设为 True（自动换行适配窗口宽度）
   • 可以把TextBox的大小调整到铺满UserForm的大部分区域，提升观感

步骤2：编写双击事件代码 #

回到目标工作表的代码窗口，粘贴以下代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    
    If Not IsEmpty(Target.Value) Then
        ' 把单元格内容赋值给UserForm里的文本框
        UserForm1.TextBox1.Text = Target.Value
        ' 可选：根据内容长度自动调整窗口大小
        UserForm1.Height = IIf(Len(Target.Value) < 600, 250, 450)
        UserForm1.Width = 400
        ' 显示弹窗
        UserForm1.Show
    End If
End Sub

步骤3：添加弹窗关闭逻辑（可选优化） #

双击UserForm的空白区域，粘贴以下代码，让点击弹窗空白处也能关闭它：

Private Sub UserForm_Click()
    Unload Me
End Sub

设置完成后，双击单元格会弹出一个带滚动条的专属窗口，不管内容多长都能轻松浏览！

内容的提问来源于stack exchange，提问作者Gamze Ural