c数字

1
Sub 千分位符(control As IRibbonControl) '数字-千分位符
2
    On Error Resume Next
3
    Dim i As Range, Acell As Cell, CR As Range
4
    On Error Resume Next
5
    Application.ScreenUpdating = False
6
    If Selection.Type = 2 Then '文档选定
7
        For Each i In Selection.Words
8
            If IsNumeric(i) Then
9
                If i Like "####*" = True Then
10
                    If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then
11
                        i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End
12
                        NC = Format(i, "#,##0.00;-#,##0.00; ")
13
                        i.Text = NC
14
                    Else
15
                        NC = Format(i, "#,##0.00;-#,##0.00; ")
16
                        i.Text = NC
17
                    End If
18
                End If
19
            End If
20
        Next i
21
    ElseIf Selection.Type = 4 Or Selection.Type = 5 Then '竖形表格（5为横形表格）
22
        For Each Acell In Selection.Cells
23
            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
24
            '            MsgBox CR
25
            If CR Like "-####*" Or "-####.#*" = True Then
26
                Yn = Format(CR, "#,##0.00;-#,##0.00; ")
27
                CR.Text = Yn
28
            Else
29
                If CR Like "####*" Or "####.#*" = True Then
30
                    Yn = Format(CR, "#,##0.00;-#,##0.00; ")
31
                    CR.Text = Yn
32
                End If
33
            End If
34
        Next Acell
35
    Else
36
        MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation
37
    End If
38
    Application.ScreenUpdating = True
39
    Application.Activate
40
End Sub
41
Sub 除以一万(control As IRibbonControl)
42
    Application.ScreenUpdating = False
43
    If Selection.Type = 2 Then
44
        If IsNumeric(Selection.Text) Then
45
            i = Selection.Text
46
            P = i / 10000
47
            q = Format(Round(P, 2), "#,##0.00;-#,##0.00; ")
48
            Selection.Text = q & "万"
49
        End If
50
    ElseIf Selection.Type = 5 Or Selection.Type = 4 Then
51
        For Each Acell In Selection.Cells
52
            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
53
            'MsgBox CR
54
            If IsNumeric(CR.Text) Then
55
                i = CR.Text
56
                P = i / 10000
57
                q = Format(Round(P, 2), "#,##0.00;-#,##0.00; ")
58
                CR.Text = q & "万"
59
            End If
60
        Next
61
    End If
62
    Application.ScreenUpdating = True
63
End Sub
64
Sub 乘百(control As IRibbonControl)
65
    Application.ScreenUpdating = False
66
    If Selection.Type = 2 Then
67
        If IsNumeric(Selection.Text) Then
68
            i = Selection.Text
69
            P = i * 100
70
            q = Format(Round(P, 2), "#,##0.00;-#,##0.00; ")
71
            Selection.Text = q & "%"
72
        End If
73
    ElseIf Selection.Type = 5 Or Selection.Type = 4 Then
74
        For Each Acell In Selection.Cells
75
            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
76
            'MsgBox CR
77
            If IsNumeric(CR.Text) Then
78
                i = CR.Text
79
                P = i * 100
80
                q = Format(Round(P, 2), "#,##0.00;-#,##0.00; ")
81
                CR.Text = q & "%"
82
            End If
83
        Next
84
    End If
85
        Application.ScreenUpdating = True
86
End Sub