1、打开Excel工作表,点击【开发工具】、【Visual Basic】调出VBE编辑器。
2、双击【ThisWorkbook】,再输入以下VBA程序代码:Private Sub Wor氯短赤亻kbook_SheetChan爿讥旌护ge(ByVal Sh As Object, ByVal Target As Range)On Error Resume Next '忽略运行过程中可能出现的错误Beep '发出蜂鸣声End Sub
3、当工作薄里面的单元格有改变时,将会发出声音。
1、打开Excel工作表,点击【开发工具】、【Visual Basic】调出VBE编辑器。
2、双击【ThisWorkbook】,再输入以下VBA程序代码:Private Sub Wor氯短赤亻kbook_SheetChan爿讥旌护ge(ByVal Sh As Object, ByVal Target As Range)On Error Resume Next '忽略运行过程中可能出现的错误Beep '发出蜂鸣声End Sub
3、当工作薄里面的单元格有改变时,将会发出声音。