见标题。(退格可以输入)用代码。
按以上设置text1的输入遮罩(我的是繁体版,名称和简体的不一样,你找对应属性)
或者,用vba写Text1_Change事件
追问说了不用掩码,和验证规则的。
追答Private Sub Text1_Change()If Len(Text1.Text) > 2 Then
SendKeys "{BACKSPACE}"
ElseIf Not IsNumeric(Text1.Text) Then
SendKeys "{BACKSPACE}"
End If
End SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Len(Text3.Text) >= 2 Then
KeyAscii = 0
ElseIf (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End If
End Sub追问
.text可以改成.value吗,为什么? 我用.text时出错。能举例说明吗?
这里还有个问题 新开的题 :2054268719114252307
.text不会有错呀,.value不行的
你的错误什么提示?
温馨提示:答案为网友推荐,仅供参考