Excel怎么限制单元格的字数,(超过字数,换行。)

zhui9 2007-09-17 04:32:44
比如设置B5,B6,B7,B8。。。单元格只能输入10个字符。
当我在B5输入10个字符之后,光标自动跳到下一行B6,B6输入10个字符后,又跳到B7,,,,,,
请问如何实现。【文本包括中英文,数字。】
...全文
2892 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
RockyCoder 2007-10-07
  • 打赏
  • 举报
回复
不需要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长度也是这样控制的。
v_jzho 2007-10-06
  • 打赏
  • 举报
回复
Excel处于Edit状态,不可能执行任何代码
你的情况不可能办到
zhui9 2007-09-23
  • 打赏
  • 举报
回复
up up

VBA如何编写?
请附代码,或发邮件exinqing@163.com
谢谢

zhui9 2007-09-20
  • 打赏
  • 举报
回复
up up

VBA如何编写?
请附代码,或发邮件exinqing@163.com
谢谢。
kris2010 2007-09-19
  • 打赏
  • 举报
回复
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 2007-09-18
  • 打赏
  • 举报
回复
我使用Excel直接输的。不是软件调用excel。
继续。。。
zhui9 2007-09-18
  • 打赏
  • 举报
回复
如kris2010 说的,怎么判断?如何触发事件?
------------------------
如果实时判断比较难,可以在点击“保存”的时候,自动调整。
比如在B5输入了25个字,点击“保存”后,B5有10个字,B6有10个字,B7有5个字。
zhui9 2007-09-18
  • 打赏
  • 举报
回复
VBA如何编写?
请附代码,或发邮件exinqing@163.com
谢谢。
kris2010 2007-09-18
  • 打赏
  • 举报
回复
可怎么判断呢? 在输入时怎么触发事件呢?
shan1119 2007-09-18
  • 打赏
  • 举报
回复
楼上的方法也行.
cuiyue4420 2007-09-18
  • 打赏
  • 举报
回复
估计要用VBA了,编程实现,当字数大于10,光标转到下一格
ChinaOBS 2007-09-17
  • 打赏
  • 举报
回复
用文本框控件才能实现

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧