如何把带货币的金额，转换成带货币金额的2位小数？

tanglf188

mfk1288 发表于 2023-1-4 11:36
谢谢指导，这个是用公式。但是需要用宏语句批量转换，并且是在原单元格直接转换。用这个公式是可以，但是 ...

不知道啥情况。昨天代码只传了几行，今天重传了

Sub test()
    countrow = Sheet1.UsedRange.Cells(Sheet1.UsedRange.Rows.Count, 1).Row
    For i = 2 To countrow - 1
        stri = Sheet1.Range("A" & i)
        With Sheet1.Range("A" & i)
            Select Case Left(stri, 1)
                Case "$"
                    .Value = Application.Text(Right(stri, Len(stri) - 1), "'$" & "0.00")
                Case "

mfk1288

tanglf188 发表于 2023-1-4 13:09
不是TEXT函数不能用而是VBA不能识别你那种金钱符号，换一种符号就可以了
Sub test()
    countrow = Sh ...

谢谢指导！

mfk1288

高个子 发表于 2023-1-4 12:22
公式还是可以翻译成VBA的

谢谢指导！

mfk1288

micch 发表于 2023-1-4 11:50
其实主要就是个单元格格式的问题

谢谢指导！

ω逆鳞々

..........................

mfk1288

ω逆鳞々 发表于 2023-1-5 09:48
..........................

谢谢指导，但是宏运行后的结果，原来第4行的美元，第10-11行的欧元。这两种外币转换不成功。

ω逆鳞々

修改了一下

niko88819

tanglf188 发表于 2023-1-4 13:09
不知道啥情况。昨天代码只传了几行，今天重传了

Sub test()

老师您代码不完整,回复中上面看到 <> 这符号把代码置入即可

tanglf188

niko88819 发表于 2023-1-10 19:27
老师您代码不完整,回复中上面看到  这符号把代码置入即可

好奇怪，两次都是少了代码，这次传了附件

niko88819

tanglf188 发表于 2023-1-11 09:14
好奇怪，两次都是少了代码，这次传了附件

老师像这样上传就不会了

1. Sub test()
   
2.     countrow = Sheet1.UsedRange.Cells(Sheet1.UsedRange.Rows.Count, 1).Row
   
3.     For i = 2 To countrow - 1
   
4.         stri = Sheet1.Range("A" & i)
   
5.         With Sheet1.Range("A" & i)
   
6.             Select Case Left(stri, 1)
   
7.                 Case "$"
   
8.                     .Value = Application.Text(Right(stri, Len(stri) - 1), "'$" & "0.00")
   
9.                 Case "&#128;"
   
10.                     .Value = Application.Text(Right(stri, Len(stri) - 1), "'&#128;" & "0.00")
    
11.                 Case Else
    
12.                     .Value = Application.Text(Right(stri, Len(stri) - 1), "'ㄓ" & "0.00")
    
13.             End Select
    
14.             .HorizontalAlignment = xlRight
    
15.             .VerticalAlignment = xlCenter
    
16.             .Columns.AutoFit
    
17.         End With
    
18.     Next
    
19. End Sub

复制代码