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
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