求老师帮忙改一下代码

wbjiqpl

想任何一个单元格输入内容后并回车有提示音，下面只对数值进行提示如何改成任何内容。还有想添加如果输入的内容跟其它单元格内容重复提示“重复
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If IsNumeric(Target.Value) Then Beep
End Sub

aman1516

任何一单元格：整张工作表的？范围也太宽了吧，
激活工作表时全部录入字典dic.....
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
     If IsNumeric(Target.Value) Then Beep
     If dic.exists(Target.Value) Then application.Speech.Speak "重复"
End Sub

wbjiqpl

aman1516 发表于 2019-11-10 14:47
任何一单元格：整张工作表的？范围也太宽了吧，
激活工作表时全部录入字典dic.....
Private Sub Workbook ...

Private Sub Worksheet_Change(ByVal Target As Range)
    If IsNumeric(Target.Value) Then Beep
End Sub
我是放在工作表的，我们也可以设置一个区域，A1:G1000

liulang0808

wbjiqpl 发表于 2019-11-10 14:52
Private Sub Worksheet_Change(ByVal Target As Range)
    If IsNumeric(Target.Value) Then Beep
End ...

Application.Speech.Speak target.Value

target.count =1 的时候测试上面的看看是否满足需求吧