在工作中频繁核对数字时，你是否希望Excel能像助手一样实时播报输入的数据？通过简单的VBA代码设置，就能让表格拥有"语音播报"功能。下面详细介绍实现方法：
一、效果演示
当在D列单元格输入以下数字时，系统会立即朗读：
• 93、61、58、63、56、80、73、74、78、85
• 83、60、56、97、91、97、101、110、114、119、122
二、实现步骤
1. 启用开发工具
• 进入「文件」→「选项」→「自定义功能区」
• 勾选右侧的「开发工具」选项框
2. 插入VBA代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target.Value) Then
CreateObject("SAPI.SpVoice").Speak Target.Value
End If
End Sub
• 按Alt+F11打开VBA编辑器
• 双击左侧工作表名称（如Sheet1）
• 将代码粘贴到右侧编辑区
3. 设置生效范围（可选）
若只需D列生效，修改代码如下：
If Not Intersect(Target, Range("D:D")) Is Nothing Then
三、进阶技巧
• 语音定制：在代码末尾添加参数调节语速和音量
.Speak Target.Value, 1 '1代表语速（0-2可调）
• 多语言支持：通过Set Voice对象切换中英文语音引擎
注意事项
• 需确保电脑已安装TTS语音引擎（Windows系统自带）
• 首次使用需在「宏设置」中启用所有宏
• 若出现安全警告，需将文件保存位置添加至信任中心
这个功能特别适合财务对账、库存盘点等需要反复核验数据的场景，能有效减少视觉疲劳带来的输入错误。现在就开始让你的Excel"会说话"吧！
