Question

excel vba顺序读取单元格数据

如何将B9单元格上的11位手机号或7位电话号用Sheet2表中D1-D10的方言朗读0-9？谢谢！
不知为什么还不行，请指点。再次感谢。

Answer 1

Sub 按方言朗读()
'  假设完整数字放在是B9
' sheet2的D11位置用来依次放置单个数字
' sheet2的D12公式为：Sub 按方言朗读()
'  假设完整数字放在是B9
' sheet2的D11位置用来依次放置单个数字
' sheet2的D12公式为：=IFERROR(INDEX(D1:D10,D11),"")
 
    intLen = Len(Range("B9").Value)
    For i = 1 To intLen
        Sheets("Sheet2").Range("D11").Value = Mid(Range("B9").Value, i, 1)
        Sheets("Sheet2").Range("D12").Speak
    Next
End Sub
 
    intLen = Len(Range("B9").Value)
    For i = 1 To intLen
        Sheets("Sheet2").Range("D11").Value = Mid(Range("B9").Value, i, 1)
        Sheets("Sheet2").Range("D12").Speak
    Next
End Sub

我刚把D12的公式写错了应该是：=IFERROR(INDEX(D1:D10,D11),"")

其中D1-D10分别为0-9对应的字，不是1-0

Answer 2

单独写软件朗读 可以吗