如何设定自朗读 VBA模块命令！

heman000520 · 发表于 2018-10-8 19:31

当A列有红色填充格时朗读指定内容！

heman000520 · 发表于 2018-10-8 20:56

有没有大佬帮忙弄一下的

lss001 · 发表于 2018-10-8 21:37

本帖最后由 lss001 于 2018-10-13 09:40 编辑

Sub duquyanse()
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
      If Cells(i, 1).Interior.Color = 255 Then
         Application.Speech.Speak ("" & Cells(2, "B") & "")
      End If
Next
Application.OnTime Now + TimeValue("00:01:00"), "duquyanse"
End Sub

chentonny · 发表于 2018-10-8 23:21

循环A列单元格
if range.interior.color=红色 then
Application.Speech.Speak range.value
end if
完事！

heman000520 · 发表于 2018-10-11 19:49

lss001 发表于 2018-10-8 21:37
Sub duquyanse()
x = Cells(Rows.cound, 1).End(xlUp).Row
For i = 1 To x

运行时错误 “438” 对象不知支持该方法

heman000520 · 发表于 2018-10-11 19:51

chentonny 发表于 2018-10-8 23:21
循环A列单元格
if range.interior.color=红色 then
Application.Speech.Speak range.value

编译错误参数不可选

lss001 · 发表于 2018-10-11 20:23

heman000520 发表于 2018-10-11 19:51
编译错误参数不可选

上楼已经更正！

heman000520 · 发表于 2018-10-11 23:28

lss001 发表于 2018-10-11 20:23
上楼已经更正！

大佬给我弄一下完整的吧提示老实编译错误参数不可选 A列为目标

heman000520 · 发表于 2018-10-12 01:17

lss001 发表于 2018-10-11 20:23
上楼已经更正！

能不能弄个完整的给我啊，我是个萌新看不懂怎么改

heman000520 · 发表于 2018-10-12 01:18

lss001 发表于 2018-10-8 21:37
Sub duquyanse()
x = Cells(Rows.count, 1).End(xlUp).Row
For i = 1 To x

能不能弄个完整的给我，萌新看不懂

		自动登录	找回密码
密码			免费注册

[求助] 如何设定自朗读 VBA模块命令！