求高手解决窗体判断位数或者大小的声音提示问题

hzs1111111

求助：1.希望第一行扫描12位快递单时判断不是重量，低于12位则声音提示，同理第二行时输入重量，大于100也声音提示，声音最好能够自定义2.扫码枪扫码后给个声音提示，电子秤称重后给个声音提示！谢谢

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count <> 1 Then Exit Sub
   
3. If Target.Column = 1 And Target <> "" Then
   
4.     Application.EnableEvents = False
   
5.     If Len(Target) < 12 Then Application.Speech.Speak "WRONG NUMBER"
   
6.     Target.Offset(0, 2) = Date
   
7.     Application.EnableEvents = True
   
8. Else
   
9.     If Target.Column = 2 And Target <> "" Then
   
10.         If Target.Value > 100 Then Application.Speech.Speak "overload"
    
11.     End If
    
12. End If
    
13. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

hzs1111111

liulang0808 发表于 2018-8-16 07:42
附件内容供参考。。。。。。

感谢l版，我试了一下输入错误或者正确时都没有任何提示呢？

hzs1111111

liulang0808 发表于 2018-8-16 07:42
附件内容供参考。。。。。。

感谢l版，我试了一下输入错误或者正确时都没有任何提示呢？还是不行

xyxcc177

hzs1111111 发表于 2018-8-16 08:06
感谢l版，我试了一下输入错误或者正确时都没有任何提示呢？还是不行

测试没有问题，输入后按回车

hzs1111111

xyxcc177 发表于 2018-8-16 09:43
测试没有问题，输入后按回车

我是希望在窗体录入时就声音提醒呢