如何用TextBox替换有字符行数限制的数据验证输入消息？

踩过Excel数据验证字符限制坑的人告诉你，完全可以用TextBox1替换内置的数据验证输入消息，完美绕过255字符、9行的限制。下面给你唠唠具体的思路和代码调整要点：

为什么可行？ #

Excel内置的数据验证输入消息是有硬限制的，但TextBox（不管是表单控件还是ActiveX控件）是独立的界面元素，不受这个限制——你想放多少字符、多少行内容都没问题，完全能承载详细的提示信息。

代码调整的关键要点 #

1. 先确保TextBox1已添加到工作表：

   • 可以通过开发工具栏插入「文本框（表单控件）」或「文本框（ActiveX控件）」，注意两者的代码调用方式略有区别（ActiveX控件功能更灵活）。

2. 替换Case分支的逻辑：
   把原来Case "A"里设置数据验证消息的代码，换成Case "B"里控制TextBox1显示和赋值的逻辑就行。举个贴合你代码结构的例子：

Select Case YourTriggerVariable ' 这里替换成你实际的变量名
    Case "A"
        ' 原来受限制的数据验证消息逻辑
        With Range("TargetRange").Validation ' TargetRange替换成你的目标单元格/区域
            .InputMessage = "原来的短提示（最多255字符/9行）"
            .ShowInput = True
        End With
    Case "B"
        ' 替换为TextBox1的逻辑
        With TextBox1
            .Text = "这里可以放超长的提示内容，比如：" & vbCrLf & _
                    "1. 第一行详细说明" & vbCrLf & _
                    "2. 第二行更多细节" & vbCrLf & _
                    "3. 哪怕几十行、几千字符都不在话下！"
            .Visible = True
            ' 让TextBox跟着目标单元格走，体验更好
            .Top = Range("TargetRange").Top
            .Left = Range("TargetRange").Left + Range("TargetRange").Width + 5
        End With
End Select

3. 优化用户体验的小细节：
   • 记得添加TextBox的隐藏逻辑，比如用户点击其他单元格时自动隐藏：

     Private Sub Worksheet_SelectionChange(ByVal Target As Range)
         TextBox1.Visible = False
     End Sub
     

   • 如果是ActiveX的TextBox，还可以加点击关闭的事件：

     Private Sub TextBox1_Click()
         Me.TextBox1.Visible = False
     End Sub
     

额外注意事项 #

• 如果用ActiveX控件，要确保工作表的宏已启用，且控件没有被工作表保护锁定；
• 要是需要针对多个不同单元格显示不同提示，只要在触发时动态给TextBox1.Text赋值就行，灵活性拉满。

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