UC知道关于Excel添加按扭的问题~!
来源：百度知道 编辑：UC知道 时间：2024/06/15 21:51:05
本人手头正处理一份Excel表格.里面想添加一个身份证录入的单元格.此单元格设计为:先添加两选项按扭,分别为一个<15位身份证按扭>及<18位身份证按扭>.目的是:当点击15位身份证按扭后输入的单元格只能输入15位字符,点击18位身份证按扭后输入单元格只能输入18位字符.默认为18位身份证按扭.希望得到大家帮助~谢谢!!!
Private Sub CommandButton1_Click()
Dim t As String
Dim s As Integer
Range("B1").Select
Selection.NumberFormatLocal = "@"
'设置单元格格式
t = Range("B1")
s = Len(CStr(t))
'判断位数
If s = 18 Then
MsgBox " 正确", vbDefaultButton2, "确认"
ElseIf s < 18 Then
MsgBox "错了,小于18位", vbDefaultButton2, "确认"
Range("B1").Select
ElseIf s > 18 Then
MsgBox "错了,大于18位", vbDefaultButton2, "确认"
End If
End Sub
Private Sub CommandButton2_Click()
Dim t As String
Dim s As Integer
Range("B1").Select
Selection.NumberFormatLocal = "@"
t = Range("B1")
s = Len(CStr(t))
If s = 15 Then
'判断位数
MsgBox " 正确", vbDefaultButton2, "确认"
ElseIf s < 15 Then
MsgBox "错了,小于15位", vbDefaultButton