h行列校验

1
Sub 选行校验(control As IRibbonControl) '行列校验-选行校验
2
    i = 0
3
    x = 0
4
    n = 0
5
    If Selection.Type = wdSelectionColumn Then
6
        For Each Acell In Selection.Cells '求所选列合计数
7
            If Acell.ColumnIndex > n Then
8
                n = Acell.ColumnIndex
9
            End If
10
            Set CR1 = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
11
            If IsNumeric(CR1.Text) Then
12
                i = CR1.Text + i
13
            End If
14
        Next
15
        For Each Acell In Selection.Cells '求所选列最后一行合计数
16
            Set CR2 = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
17
            If Acell.ColumnIndex = n Then
18
                If IsNumeric(CR2.Text) Then
19
                    x = CR2.Text + x
20
                End If
21
            End If
22
        Next
23
        P = i - x
24
        q = P - x
25
        y = "列校验:" & Format(P, "Standard") & "-" & Format(x, "Standard") & "=" & Format(q, "Standard")
26
    Else
27
        y = "只支持选中表格范围!"
28
    End If
29
    Application.StatusBar = y
30
End Sub
31
Sub 选列校验(control As IRibbonControl) '行列校验-选列校验
32
    i = 0
33
    x = 0
34
    n = 0
35
    If Selection.Type = wdSelectionColumn Then
36
        For Each Acell In Selection.Cells '求所选列合计数
37
            If Acell.RowIndex > n Then
38
                n = Acell.RowIndex
39
            End If
40
            Set CR1 = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
41
            If IsNumeric(CR1.Text) Then
42
                i = CR1.Text + i
43
            End If
44
        Next
45
        For Each Acell In Selection.Cells '求所选列最后一行合计数
46
            Set CR2 = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
47
            If Acell.RowIndex = n Then
48
                If IsNumeric(CR2.Text) Then
49
                    x = CR2.Text + x
50
                End If
51
            End If
52
        Next
53
        P = i - x
54
        q = P - x
55
        y = "列校验:" & Format(P, "Standard") & "-" & Format(x, "Standard") & "=" & Format(q, "Standard")
56
    Else
57
        y = "只支持选中表格范围!"
58
    End If
59
    Application.StatusBar = y
60
End Sub
61
Sub 区域求和(control As IRibbonControl) '行列校验-区域求和
62
    i = 0
63
    If Selection.Type = 5 Then
64
        For Each Acell In Selection.Cells
65
            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
66
            If IsNumeric(CR.Text) Then
67
                i = CR.Text + i
68
            End If
69
        Next
70
        i = "合计:" & Format(i, "#,##0.00;-#,##0.00; ")
71
    ElseIf Selection.Type = 4 Then
72
        For Each Acell In Selection.Cells
73
            Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)
74
            If IsNumeric(CR.Text) Then
75
                i = CR.Text + i
76
            End If
77
        Next
78
        i = "合计:" & Format(i, "#,##0.00;-#,##0.00; ")
79
    Else
80
        i = "只支持表格内行或列求和!"
81
    End If
82
    Application.StatusBar = i
83
End Sub