- 博客(0)
- 资源 (1)
- 收藏
- 关注
RSS订阅汉字转拼音缩写的VBA宏
Dim i As Integer
Dim j As Integer
Dim sum As Integer
Dim beginrow As Integer
Dim str As String
Dim GetPy As String
sum = ActiveWindow.RangeSelection.Rows.Count
For Each rng In ActiveWindow.RangeSelection.Areas
For Each cel In rng
str = cel.Value
GetPy = ""
For i = 0 To Len(str) - 1
GetPy = GetPy & GetPYChar(Mid(str, i + 1, 1))
Next
' Application.Cells(Application.ActiveCell.Row, Application.ActiveCell.Column + 1).value = GetPy
Application.Cells(cel.Row, cel.Column + 1).Value = GetPy
Next
Next
End Sub
2008-12-15
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人