该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
例:123456变成123,456,而不是将123456变成123,456.00。
找到了一段宏代码,但运行后将123456变成123,456.00了,而不是我要的123,456。
Sub CurrencyNumber()
Dim i As Range, Acell As Cell, CR As Range
On Error Resume Next
Application.ScreenUpdating = False
If Selection.Type = 2 Then
For Each i In Selection.Words
If i Like "####*" = True Then
If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then
i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End
i = Format(i, "Standard")
Else
i = Format(i, "Standard")
End If
End If
Next i
ElseIf Selection.Type = 5 Then
For Each Acell In Selection.Cells
Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
MsgBox CR
If CR Like "####*" = True Then
If CR Like "####.#*" = True Then
Yn = Format(CR, "Standard")
CR.Text = Nn
Else
Yn = Format(CR, "Standard")
CR.Text = Nn
End If
End If
Next Acell
Else
MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation
End If
Application.ScreenUpdating = True
End Sub