excel中的文本框中如何规定每行的字数？

来源：百度知道 编辑：UC知道 时间：2024/05/16 16:11:41
就是在一个EXCEL的文本框中
我要限制它的 行数 和 每行的字数
我想要的效果是 每个文本框中 有31行 每行31个字
有用的追加 谢谢
我是说文本框啊

格式里面的设定行高 列宽

设计状态下,文本框上右键查看代码
复制一下代码:

Private Sub TextBox1_Change()
TextBox1.MultiLine = True
Application.EnableEvents = False
S = TextBox1.Text
S = Left(S, 31 * 33)

If Len(S) Mod 33 = 31 Then
S = S & Chr(13)
End If
TextBox1.Text = S
Application.EnableEvents = True
End Sub

Private Sub TextBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
End Sub

第一个是文本框Change事件。设置可以多行显示。
控制文本框的字符个数(31*31+31个换行)每到除以33余数为31的字符位数插入一个回车符号。
第二个是禁止文本框内进行复制的事件

你说的是文本框，还是单元格
其实都没法做到。除非你自己做一个自己的控件使用。