[已解决]求助

瑟瑟的眼睛

大家好，菜鸟求助了。有朋友是盲人，开了个小按摸店，他想用EXCEL表来管理客户资料和信息，他想打开一个excele表的时候鼠标点到那一列，可以自动提示这一列应该填什么数据，比如点到A列，可以声音自动提示是日期列，B列可以自动提示客户名称，方便有没有明眼人在的情况下他们盲人可以更及时的把客户资料输入到EXCEL表里，谢谢

最佳答案

月排行榜 / 总排行榜

Zipall

2011-8-12 13:48

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    With Target
        r = .Row - 1
        c = Cells(1, .Column)
        v = IIf(.Value = "", "空", .Value)
    End With
    Application.Speech.Speak c & ",第" & r & "行," & v
End Sub

test.rar (8.56 KB, 下载次数: 17)

2011-8-12 13:46 上传

点击文件名下载附件

跳转到最佳答案楼层

瑟瑟的眼睛

自己先顶一下，各位大侠帮忙啊

Zipall

可以用vba完成.
如果你用xp系统,需要先下载安装一个中文的tts.

装完后在这里跟帖,我帮你完成代码.

studyexcel

{:091:}期待学习

Kratos

好高级阿，这vba还能发声的？{:091:}

Zipall

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    With Target
        r = .Row - 1
        c = Cells(1, .Column)
        v = IIf(.Value = "", "空", .Value)
    End With
    Application.Speech.Speak c & ",第" & r & "行," & v
End Sub

test.rar (8.56 KB, 下载次数: 17)

2011-8-12 13:46 上传

点击文件名下载附件

瑟瑟的眼睛

回复 Zipall 的帖子

你好，已经安装了

瑟瑟的眼睛

怎么能有中文提示呢

Zipall

瑟瑟的眼睛 发表于 2011-8-12 13:54
怎么能有中文提示呢

确定你的中文tts正确安装,并启用.
ms sam是系统自带的英文tts,只读英文和数字,英文发音.
比如我的机器上用的是vm liang,选它就可以发中文声音了.

瑟瑟的眼睛

你好，谢谢啊，已经可以用了，把语言设置改了就可以了，人才啊~~~