本帖最后由 tt1668 于 2016-7-4 17:33 编辑
Function ch(x As Range) As String
Dim A()
Dim i As Integer
A = Array("J", "A", "B", "C", "D", "E", "F", "G", "H", "I")
For i = 1 To Len(x)
ch = ch & A(Mid(x, i, 1))
Next i
End Function
现在这如果我输入1234文字是ABCD,如果是有豆号的就不行了,我要怎样把豆号也用文字代替呢?比如说豆号的代替字是Z那么价钱1234.50就是(ABCDZEJ)
- Function ch(x As Range) As String
- Dim A()
- Dim i As Integer
- A = Array("J", "A", "B", "C", "D", "E", "F", "G", "H", "I")
- For i = 1 To Len(x)
- If IsNumeric(Mid(x, i, 1)) Then
- ch = ch & A(Mid(x, i, 1))
- Else
- ch = ch & "Z"
- End If
- Next i
- End Function
复制代码
|