Excel怎么限制单元格的字数，（超过字数，换行。）

[zhui9]

比如设置B5，B6，B7，B8。。。单元格只能输入10个字符。
当我在B5输入10个字符之后，光标自动跳到下一行B6，B6输入10个字符后，又跳到B7，，，，，，
请问如何实现。【文本包括中英文，数字。】

[ChinaOBS]

用文本框控件才能实现

[cuiyue4420]

估计要用VBA了,编程实现,当字数大于10,光标转到下一格

[shan1119]

楼上的方法也行.

[kris2010]

可怎么判断呢？ 在输入时怎么触发事件呢？

[zhui9]

VBA如何编写？
请附代码，或发邮件[e-mail]
谢谢。

[zhui9]

如kris2010 说的，怎么判断？如何触发事件？
－－－－－－－－－－－－－－－－－－－－－－－－
如果实时判断比较难，可以在点击“保存”的时候，自动调整。
比如在B5输入了25个字，点击“保存”后，B5有10个字，B6有10个字，B7有5个字。

[zhui9]

我使用Excel直接输的。不是软件调用excel。
继续。。。

[kris2010]

Dim str As String
a = Len(Target.Value)
str = Target.Value
For i = 0 To a / 10
ActiveSheet.Cells(Target.row + i, Target.column).Value = Mid(str, 10 * i + 1, 10)
Next i

[zhui9]

up up

VBA如何编写？
请附代码，或发邮件[e-mail]
谢谢。

[zhui9]

up up

VBA如何编写？
请附代码，或发邮件[e-mail]
谢谢

[v_jzho]

Excel处于Edit状态，不可能执行任何代码
你的情况不可能办到

[RockyCoder]

不需要VBA,只需要用IF函数
在隔壁一个单元格中，使用IF函数
比如，你要限制A列，在B1中输入如下函数
=IF (
Len(Trim(A1.Value))>10,
(A2.Value=Mid(A1.Value,11,Len(A1.Value)-10),A1.Value=Left(A1.Value,10))
A2.Value=""
)

然后，通过格式填充（就是单元格B1右下角的小十字），填充B列的单元格。
这样，当你输入A1时，若长度大于10，则将超过10个字符的字符串截取到A2中，A1中只剩下10个字符。同理，A2长度也是这样控制的。