[已解决]用vba如何解决输入姓名时没有空格

水上漂123

比如a列是姓名，在a列中输入姓名“张三”，在张三的前面、中间、后面都不能有空格，用vba如何做到？

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-8-10 09:38

水上漂123 发表于 2012-8-10 09:24
首先谢谢各位的热情帮助，上面说的方法我都用过了，我现在只是想用vba如何实现，再次感谢大家

工作表change事件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target.Column <> 1 Then Exit Sub
   
4.     If InStr(Target, " ") Then
   
5.         MsgBox "输入的姓名不能有空格，请重新输入！"
   
6.         Target = ""
   
7.         Target.Select
   
8.     End If
   
9.     Application.EnableEvents = True
   
10. End Sub

复制代码

跳转到最佳答案楼层

无聊的疯子

难道你在输入"张三"的时候还会手动 输入几个空格??

这个可以用 Change 事件,输入完内容后,用函数把 空格 都替换掉就行了

ws278106483

=trim（A1）可以吧。这个函数

QLZ0602

数据有效性:   就可实现 公式为 =LEN(TRIM(A1))=LEN(A1)
条件格式亦可

水上漂123

不是那个意思，我有一个表格，a列是输入姓名的，但是在输入姓名时有的老师随手先敲击一下空格然后输入“张三”，有的把张三输入成这样“张  三”，有的输入完张三后又敲击一下空格，然后再在下一个单元格中输入其他姓名，从a2开始到a3000都是学生的姓名，我是想像条件格式那样，如果出现上述三种情况不允许其输入，是我没有说明白，不好意思。

老糊涂

这不需要用VBA，查找——替换，就能解决

hrpotter

水上漂123 发表于 2012-8-10 08:52
不是那个意思，我有一个表格，a列是输入姓名的，但是在输入姓名时有的老师随手先敲击一下空格然后输入“张三 ...

数据有效性-自定义-公式

1. =LEN(A1)=LEN(SUBSTITUTE(A1," ",""))

复制代码

水上漂123

首先谢谢各位的热情帮助，上面说的方法我都用过了，我现在只是想用vba如何实现，再次感谢大家

hrpotter

水上漂123 发表于 2012-8-10 09:24
首先谢谢各位的热情帮助，上面说的方法我都用过了，我现在只是想用vba如何实现，再次感谢大家

工作表change事件

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     If Target.Column <> 1 Then Exit Sub
   
4.     If InStr(Target, " ") Then
   
5.         MsgBox "输入的姓名不能有空格，请重新输入！"
   
6.         Target = ""
   
7.         Target.Select
   
8.     End If
   
9.     Application.EnableEvents = True
   
10. End Sub

复制代码

ws278106483

Sub th()

    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows
End Sub