你是想让Excel自动检查输入错误,Excel有数据有效性检查这个功能,针对设置单元格字符长度,以 Excel 2007 为例,说明如下: 设置方法: 选择要检查的区域,然后:数据 - 数据有效性 - 设置 1. 在“有效性条件”下设置允许的文本长度 2. 在“出错警告”中将“式样”设置为“警告” 注:“有效性条件”有很多选项,可以根据各种不同的需要而分别设置 如果如入错误数据,系统会当场报警,而不必等到事后修改。如果输入时人为忽略了错误,也可以事后复查,方法如下: 数据 - 数据有效性 - 圈释无效数据, 错误的数据就会被红线圈出。条件格式-使用公式确定要设置的单元格格式假设要设置成A列单元格字符长度不等于15就自动填充为红色 公式输入=LEN(A1)<>15格式设置填充红色区域选择:A:A=len(a1)如果你需要不断使用之一功能,可以在 1.工具——宏——vb编辑器 2.将以下代码拷进去(注意20是指你要修改的最大行数,你可以自己改成你需要的数字,A是你的目标列,如果是别的列) 3.OK了。 Private Sub Worksheet_Change(ByVal Target As Range) Dim str As StringDim n As Integerstr="A" N=20 For i = 1 To N If Len(Range(str & i)) = 15 Then Range(str & i).Interior.ColorIndex = xlNone Else Range(str & i).Interior.ColorIndex = i End If Next End Sub如果你需要不断使用之一功能,可以在 1.工具——宏——vb编辑器 2.将以下代码拷进去(注意20是指你要修改的最大行数,你可以自己改成你需要的数字,A是你的目标列,如果是别的列) 3.OK了。 Private Sub Worksheet_Change(ByVal Target As Range) Dim str As StringDim n As Integerstr="A" N=20 For i = 1 To N If Len(Range(str & i)) = 15 Then Range(str & i).Interior.ColorIndex = xlNone Else Range(str & i).Interior.ColorIndex = i End If Next End Sub格式-条件格式中公式下输入=LEN(A1)<>15然后进行格式设置.
名称栏目:如何设置条件格式,EXCEL表格中怎样设置条件格式
标题链接:http://6mz.cn/article/iccpco.html