Excel 中用VB如何将美元替换成人民币

Question

以下是我的代码，但执行不出结果，也不报错

Private Sub CommandButton1_Click()

Dim str As String
Dim a(10, 6) As Integer

For i = 0 To 10
For j = 0 To 6

If InStr(1, a(i, j), "$", vbTextCompare) Then '$' ='￥'

str = i

End If

Next j

Next i
End Sub
widebright ，谢谢你的回答，但只能将数字后面的$符号替换（eg:50$），而$50就没有变化了。我也一直尝试，可就是找不到一个办法，还有不必按比率兑换成人民币，只是替换字符。

Answer 1

如果这个都不行，我就回家种田了。。。。。

Private Sub CommandButton1_Click()
For Each c In Range("A1:K20").Cells

If Empty <> c.Value Then

If InStr(c.Value, "$") > 0 Then
c.Value = Replace(c.Value, "$", "￥")

End If

If InStr(c.NumberFormatLocal, "$") > 0 Then
c.NumberFormatLocal = Replace(c.NumberFormatLocal, "$", "￥")

End If

End If
Next

End Sub

Answer 2

Excel 中用VBA来处理.
打开VBA编译器
插入模块:

模块列子
Sub a()
Range("b1") = Format(Range("a1") * 7, "￥0.00")
End Sub