1、设置为文本格式
2、计算长度
3、判断是否13位
如图所示
以A列为例,按ALT+F11双击左边的表格名车,然后复制代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) <> 13 And Target.Column = 1 Then
MsgBox "您输入的内容不是13位"
End If
End Sub
呵呵,加分啊
我给你的建议不是乘一个固定格子,我认为这样是自己找自己的麻烦。无论那个格子是什么数值,你可以在编辑的公式中直接输入这个数值。这样向下拖运公式填充可以很方便就完成了。但是如果你一定要这样输入,也是可以办到的就是绝对引用。这样输入:在B2中输入:=A2*$B$1,然后向下拖运进行公式填充。