vba--数组，多个表中的程序合并到一起，设置为一个按钮

Sub ttt()

t = Timer

Application.DisplayAlerts = False

'清空数据

Sheets("买卖4").Select

Range("B2:K15").Select

Selection.ClearContents

Sheets("买卖M").Select

Range("B2:K15").Select

Selection.ClearContents

Sheets("买卖M转录").Select

Range("B2:K15").Select

Selection.ClearContents

Sheets("买卖总").Select

Range("B2:K15").Select

Selection.ClearContents

Sheets("新4").Select

Range("B2:K15").Select

Selection.ClearContents

Sheets("新M").Select

Range("B2:K15").Select

Selection.ClearContents

'切换工作表运行程序

Sheets("买卖4").Select 

Range("A1:A12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

        "东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _

        xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:A12")

        .Header = xlYes

        .Apply

    End With

Sheets("买卖M").Select

Range("A1:A12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

        "东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _

        xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:A12")

        .Header = xlYes

        .Apply

    End With

Sheets("买卖M转录").Select

Range("A1:A12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

        "东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _

        xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:A12")

        .Header = xlYes

        .Apply

    End With

Sheets("买卖总").Select

Range("A1:A12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

        "东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _

        xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:A12")

        .Header = xlYes

        .Apply

    End With

Sheets("新4").Select

Range("A1:A12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

        "东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _

        xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:A12")

        .Header = xlYes

        .Apply

    End With

Sheets("新M").Select

Range("A1:A12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("A2:A12"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _

        "东一大区,东二大区,东三区,南一大区,南二大区,南三区,南四区,南五区,西一大区,西二大区,北一大区,北二大区,直销东南区", DataOption:= _

        xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:A12")

        .Header = xlYes

        .Apply

    End With

'添加数据

 Dim a1, b1, c1, d1, e1, f1, a2, b2, c2, d2, e2, f2 As Integer

Sheets("买卖4").Select

'买卖4

arr1 = Sheets("买卖4质").Range("A1:D14")

arr2 = Sheets("买卖4转").Range("A1:I14")

For i = 2 To 12

    For j = 2 To 14

            '买卖4质

            If Cells(i, 1) = arr1(j, 1) Then

                '400接通量_买卖

                Cells(i, 2) = arr1(j, 2) * arr1(j, 4)

                '400接听量_买卖

                Cells(i, 3) = arr1(j, 2) * arr1(j, 4) * arr1(j, 3)

                '400接听率_买卖

                On Error Resume Next

                Cells(i, 4) = Cells(i, 3) / Cells(i, 2)

            End If

            '买卖4转

            If Cells(i, 1) = arr2(j, 1) Then

                '400商机量_买卖

                Cells(i, 5) = arr2(j, 2)

                '400转录入量

                Cells(i, 6) = arr2(j, 7)

                '400转录入率

                Cells(i, 7) = arr2(j, 3)

                '400转带看量

                Cells(i, 8) = arr2(j, 8)

                '400转带看率

                Cells(i, 9) = arr2(j, 4)

                '400转成交量

                Cells(i, 10) = arr2(j, 9)

                '400转成交率

                Cells(i, 11) = arr2(j, 5)

            End If

    Next

Next

    For i = 2 To 12

        '东南大部

        If i < 9 Then

            a2 = a2 + Cells(i, 2)

            b2 = b2 + Cells(i, 3)

            c2 = c2 + Cells(i, 5)

            d2 = d2 + Cells(i, 6)

            e2 = e2 + Cells(i, 8)

            f2 = f2 + Cells(i, 10)

        End If

        '接通量

        Cells(13, 2) = a2

        '接听量

        Cells(13, 3) = b2

        '接听率

        Cells(13, 4) = b2 / a2

        '400商机量

        Cells(13, 5) = c2

        '转录入量

        Cells(13, 6) = d2

        '转录入率

        Cells(13, 7) = d2 / c2

        '转带看量

        Cells(13, 8) = e2

        '转带看率

        Cells(13, 9) = e2 / c2

        '转成交量

        Cells(13, 10) = f2

        '转成交率

        Cells(13, 11) = f2 / c2

        '西北大部

        If i > 8 Then

            a1 = a1 + Cells(i, 2)

            b1 = b1 + Cells(i, 3)

            c1 = c1 + Cells(i, 5)

            d1 = d1 + Cells(i, 6)

            e1 = e1 + Cells(i, 8)

            f1 = f1 + Cells(i, 10)

        End If

        '接通量

        Cells(14, 2) = a1

        '接听量

        Cells(14, 3) = b1

        '接听率

        Cells(14, 4) = b1 / a1

        '400商机量

        Cells(14, 5) = c1

        '转录入量

        Cells(14, 6) = d1

        '转录入率

        Cells(14, 7) = d1 / c1

        '转带看量

        Cells(14, 8) = e1

        '转带看率

        Cells(14, 9) = e1 / c1

        '转成交量

        Cells(14, 10) = f1

        '转成交率

        Cells(14, 11) = f1 / c1

    Next

    '公司

    '接通量

    Cells(15, 2) = a1 + a2

    '接听量

    Cells(15, 3) = b1 + b2

    '接听率

    Cells(15, 4) = (b1 + b2) / (a1 + a2)

    '400商机量

    Cells(15, 5) = c1 + c2

    '转录入量

    Cells(15, 6) = d1 + d2

    '转录入率

    Cells(15, 7) = (d1 + d2) / (c1 + c2)

    '转带看量

    Cells(15, 8) = e1 + e2

    '转带看率

    Cells(15, 9) = (e1 + e2) / (c1 + c2)

    '转成交量

    Cells(15, 10) = f1 + f2

    '转成交率

    Cells(15, 11) = (f1 + f2) / (c1 + c2)

   a1 = 0

   b1 = 0

   c1 = 0

   d1 = 0

   e1 = 0

   f1 = 0

   a2 = 0

   b2 = 0

   c2 = 0

   d2 = 0

   e2 = 0

   f2 = 0

'买卖M

Sheets("买卖M").Select

arr1 = Sheets("买卖M质").Range("A1:C14")

arr2 = Sheets("买卖M转").Range("A1:I14")

For i = 2 To 12

    For j = 2 To 14

    '买卖M质

    If Cells(i, 1) = arr1(j, 1) Then

        'IM会话数_买卖

        Cells(i, 2) = arr1(j, 2)

        'IM1分钟响应量_买卖

        Cells(i, 3) = arr1(j, 2) * arr1(j, 3)

        'IM1分钟响应率_买卖

        Cells(i, 4) = arr1(j, 3)

        'IM商机量_买卖

        Cells(i, 5) = arr2(j, 2)

        'IM转录入量_买卖

        Cells(i, 6) = arr2(j, 7)

        'IM转录入率_买卖

        Cells(i, 7) = arr2(j, 3)

        'IM转带看量_买卖

        Cells(i, 8) = arr2(j, 8)

        'IM转带看率_买卖

        Cells(i, 9) = arr2(j, 4)

        'IM转成交量_买卖

        Cells(i, 10) = arr2(j, 9)

        'IM转成交率_买卖

        Cells(i, 11) = arr2(j, 5)

    End If

    Next

Next

    For i = 2 To 12

        '东南大部

        If i < 9 Then

            a2 = a2 + Cells(i, 2)

            b2 = b2 + Cells(i, 3)

            c2 = c2 + Cells(i, 5)

            d2 = d2 + Cells(i, 6)

            e2 = e2 + Cells(i, 8)

            f2 = f2 + Cells(i, 10)

        End If

        'IM会话数_买卖

        Cells(13, 2) = a2

         '1分钟响应量

        Cells(13, 3) = b2

        '1分钟响应率

        Cells(13, 4) = b2 / a2

        'IM商机量

        Cells(13, 5) = c2

        '转录入量

        Cells(13, 6) = d2

        '转录入率

        Cells(13, 7) = d2 / c2

        '转带看量

        Cells(13, 8) = e2

        '转带看率

        Cells(13, 9) = e2 / c2

        '转成交量

        Cells(13, 10) = f2

        '转成交率

        Cells(13, 11) = f2 / c2

        '西北大部

        If i > 8 Then

            a1 = a1 + Cells(i, 2)

            b1 = b1 + Cells(i, 3)

            c1 = c1 + Cells(i, 5)

            d1 = d1 + Cells(i, 6)

            e1 = e1 + Cells(i, 8)

            f1 = f1 + Cells(i, 10)

        End If

        'IM会话数

        Cells(14, 2) = a1

        '1分钟响应量

        Cells(14, 3) = b1

        '1分钟响应率

        On Error Resume Next

        Cells(14, 4) = b1 / a1

        'IM商机量

        Cells(14, 5) = c1

        '转录入量

        Cells(14, 6) = d1

        '转录入率

        Cells(14, 7) = d1 / c1

        '转带看量

        Cells(14, 8) = e1

        '转带看率

        Cells(14, 9) = e1 / c1

        '转成交量

        Cells(14, 10) = f1

        '转成交率

        Cells(14, 11) = f1 / c1

    Next

    '公司

    '会话数

    Cells(15, 2) = a1 + a2

     '1分钟响应量

    Cells(15, 3) = b1 + b2

    '1分钟响应率

    Cells(15, 4) = (b1 + b2) / (a1 + a2)

    'IM商机量

    Cells(15, 5) = c1 + c2

    '转录入量

    Cells(15, 6) = d1 + d2

    '转录入率

    Cells(15, 7) = (d1 + d2) / (c1 + c2)

    '转带看量

    Cells(15, 8) = e1 + e2

    '转带看率

    Cells(15, 9) = (e1 + e2) / (c1 + c2)

    '转成交量

    Cells(15, 10) = f1 + f2

    '转成交率

    Cells(15, 11) = (f1 + f2) / (c1 + c2)

   a1 = 0

   b1 = 0

   c1 = 0

   d1 = 0

   e1 = 0

   f1 = 0

   a2 = 0

   b2 = 0

   c2 = 0

   d2 = 0

   e2 = 0

   f2 = 0

'买卖M转录

Sheets("买卖M转录").Select

arr1 = Sheets("买卖M质").Range("A1:I14")

arr2 = Sheets("买卖M转").Range("A1:I14")

For i = 2 To 12

    For j = 2 To 14

        'IM质量

        If Cells(i, 1) = arr1(j, 1) Then

            For k = 2 To 9

                Cells(i, k) = arr1(j, k)

            Next

        End If

        '转录入

        If Cells(i, 1) = arr2(j, 1) Then

            Cells(i, 10) = arr2(j, 3)

        End If

    Next

Next

Sheets("买卖总").Select

arr = Sheets("买卖总转").Range("A1:I14")

For i = 2 To 12

    For j = 2 To 14

         If Cells(i, 1) = arr(j, 1) Then

           '商机量

            Cells(i, 2) = arr(j, 2)

            '转录入量

            Cells(i, 3) = arr(j, 7)

            '转录入率

            Cells(i, 4) = arr(j, 3)

            '转带看量

            Cells(i, 5) = arr(j, 8)

            '转带看率

            Cells(i, 6) = arr(j, 4)

            '转成交量

            Cells(i, 7) = arr(j, 9)

            '转成交率

            Cells(i, 8) = arr(j, 5)

         End If

    Next

Next

For i = 2 To 12

        '东南大部

        If i < 9 Then

            a2 = a2 + Cells(i, 2)

            b2 = b2 + Cells(i, 3)

            c2 = c2 + Cells(i, 5)

            d2 = d2 + Cells(i, 7)

        End If

        '总商机量

        Cells(13, 2) = a2

         '总商机转录入量

        Cells(13, 3) = b2

        '总商机转录入率

        Cells(13, 4) = b2 / a2

        '总商机转带看量

        Cells(13, 5) = c2

        '总商机转带看率

        Cells(13, 6) = c2 / a2

        '总商机转成交量

        Cells(13, 7) = d2

        '总商机转成交率

        Cells(13, 8) = d2 / a2

        '西北大部

        If i > 8 Then

            a1 = a1 + Cells(i, 2)

            b1 = b1 + Cells(i, 3)

            c1 = c1 + Cells(i, 5)

            d1 = d1 + Cells(i, 7)

        End If

        '总商机量

        Cells(14, 2) = a1

         '总商机转录入量

        Cells(14, 3) = b1

        '总商机转录入率

        On Error Resume Next

        Cells(14, 4) = b1 / a1

        '总商机转带看量

        Cells(14, 5) = c1

        '总商机转带看率

        Cells(14, 6) = c1 / a1

        '总商机转成交量

        Cells(14, 7) = d1

        '总商机转成交率

        Cells(14, 8) = d1 / a1

Next

    '公司

   '总商机量

        Cells(15, 2) = a1 + a2

         '总商机转录入量

        Cells(15, 3) = b1 + b2

        '总商机转录入率

        Cells(15, 4) = (b1 + b2) / (a1 + a2)

        '总商机转带看量

        Cells(15, 5) = c1 + c2

        '总商机转带看率

        Cells(15, 6) = (c1 + c2) / (a1 + a2)

        '总商机转成交量

        Cells(15, 7) = d1 + d2

        '总商机转成交率

        Cells(15, 8) = (d1 + d2) / (a1 + a2)

   a1 = 0

   b1 = 0

   c1 = 0

   d1 = 0

   e1 = 0

   f1 = 0

   a2 = 0

   b2 = 0

   c2 = 0

   d2 = 0

   e2 = 0

   f2 = 0

Sheets("新4").Select

'新4

arr1 = Sheets("新4质").Range("A1:D14")

arr2 = Sheets("新4转").Range("A1:I14")

For i = 2 To 12

    For j = 2 To 14

            '买卖4质

            If Cells(i, 1) = arr1(j, 1) Then

                '400接通量_新房

                Cells(i, 2) = arr1(j, 2) * arr1(j, 4)

                '400接听量_新房

                Cells(i, 3) = arr1(j, 2) * arr1(j, 4) * arr1(j, 3)

                '400接听率_新房

                On Error Resume Next

                Cells(i, 4) = Cells(i, 3) / Cells(i, 2)

            End If

            '买卖4转

            If Cells(i, 1) = arr2(j, 1) Then

                '400商机量_新房

                Cells(i, 5) = arr2(j, 2)

                '400转录入量

                Cells(i, 6) = arr2(j, 7)

                '400转录入率

                Cells(i, 7) = arr2(j, 3)

                '400转带看量

                Cells(i, 8) = arr2(j, 8)

                '400转带看率

                Cells(i, 9) = arr2(j, 4)

                '400转成交量

                Cells(i, 10) = arr2(j, 9)

                '400转成交率

                Cells(i, 11) = arr2(j, 5)

            End If

    Next

Next

    For i = 2 To 12

        '东南大部

        If i < 9 Then

            a2 = a2 + Cells(i, 2)

            b2 = b2 + Cells(i, 3)

            c2 = c2 + Cells(i, 5)

            d2 = d2 + Cells(i, 6)

            e2 = e2 + Cells(i, 8)

            f2 = f2 + Cells(i, 10)

        End If

        '接通量

        Cells(13, 2) = a2

        '接听量

        Cells(13, 3) = b2

        '接听率

        Cells(13, 4) = b2 / a2

        '400商机量

        Cells(13, 5) = c2

        '转录入量

        Cells(13, 6) = d2

        '转录入率

        Cells(13, 7) = d2 / c2

        '转带看量

        Cells(13, 8) = e2

        '转带看率

        Cells(13, 9) = e2 / c2

        '转成交量

        Cells(13, 10) = f2

        '转成交率

        Cells(13, 11) = f2 / c2

        '西北大部

        If i > 8 Then

            a1 = a1 + Cells(i, 2)

            b1 = b1 + Cells(i, 3)

            c1 = c1 + Cells(i, 5)

            d1 = d1 + Cells(i, 6)

            e1 = e1 + Cells(i, 8)

            f1 = f1 + Cells(i, 10)

        End If

        '接通量

        Cells(14, 2) = a1

        '接听量

        Cells(14, 3) = b1

        '接听率

        Cells(14, 4) = b1 / a1

        '400商机量

        Cells(14, 5) = c1

        '转录入量

        Cells(14, 6) = d1

        '转录入率

        Cells(14, 7) = d1 / c1

        '转带看量

        Cells(14, 8) = e1

        '转带看率

        Cells(14, 9) = e1 / c1

        '转成交量

        Cells(14, 10) = f1

        '转成交率

        Cells(14, 11) = f1 / c1

    Next

    '公司

    '接通量

    Cells(15, 2) = a1 + a2

    '接听量

    Cells(15, 3) = b1 + b2

    '接听率

    Cells(15, 4) = (b1 + b2) / (a1 + a2)

    '400商机量

    Cells(15, 5) = c1 + c2

    '转录入量

    Cells(15, 6) = d1 + d2

    '转录入率

    Cells(15, 7) = (d1 + d2) / (c1 + c2)

    '转带看量

    Cells(15, 8) = e1 + e2

    '转带看率

    Cells(15, 9) = (e1 + e2) / (c1 + c2)

    '转成交量

    Cells(15, 10) = f1 + f2

    '转成交率

    Cells(15, 11) = (f1 + f2) / (c1 + c2)

    a1 = 0

   b1 = 0

   c1 = 0

   d1 = 0

   e1 = 0

   f1 = 0

   a2 = 0

   b2 = 0

   c2 = 0

   d2 = 0

   e2 = 0

   f2 = 0

Sheets("新M").Select

'新M

arr1 = Sheets("新M质").Range("A1:C14")

arr2 = Sheets("新M转").Range("A1:I14")

For i = 2 To 12

    For j = 2 To 14

    '买卖M质

    If Cells(i, 1) = arr1(j, 1) Then

        'IM会话数_新房

        Cells(i, 2) = arr1(j, 2)

        'IM1分钟响应量_新房

        Cells(i, 3) = arr1(j, 2) * arr1(j, 3)

        'IM1分钟响应率_新房

        Cells(i, 4) = arr1(j, 3)

        'IM商机量_新房

        Cells(i, 5) = arr2(j, 2)

        'IM转录入量_新房

        Cells(i, 6) = arr2(j, 7)

        'IM转录入率_新房

        Cells(i, 7) = arr2(j, 3)

        'IM转带看量_新房

        Cells(i, 8) = arr2(j, 8)

        'IM转带看率_新房

        Cells(i, 9) = arr2(j, 4)

        'IM转成交量_新房

        Cells(i, 10) = arr2(j, 9)

        'IM转成交率_新房

        Cells(i, 11) = arr2(j, 5)

    End If

    Next

Next

    For i = 2 To 12

        '东南大部

        If i < 9 Then

            a2 = a2 + Cells(i, 2)

            b2 = b2 + Cells(i, 3)

            c2 = c2 + Cells(i, 5)

            d2 = d2 + Cells(i, 6)

            e2 = e2 + Cells(i, 8)

            f2 = f2 + Cells(i, 10)

        End If

        'IM会话数_买卖

        Cells(13, 2) = a2

         '1分钟响应量

        Cells(13, 3) = b2

        '1分钟响应率

        Cells(13, 4) = b2 / a2

        'IM商机量

        Cells(13, 5) = c2

        '转录入量

        Cells(13, 6) = d2

        '转录入率

        Cells(13, 7) = d2 / c2

        '转带看量

        Cells(13, 8) = e2

        '转带看率

        Cells(13, 9) = e2 / c2

        '转成交量

        Cells(13, 10) = f2

        '转成交率

        Cells(13, 11) = f2 / c2

        '西北大部

        If i > 8 Then

            a1 = a1 + Cells(i, 2)

            b1 = b1 + Cells(i, 3)

            c1 = c1 + Cells(i, 5)

            d1 = d1 + Cells(i, 6)

            e1 = e1 + Cells(i, 8)

            f1 = f1 + Cells(i, 10)

        End If

        'IM会话数

        Cells(14, 2) = a1

        '1分钟响应量

        Cells(14, 3) = b1

        '1分钟响应率

        On Error Resume Next

        Cells(14, 4) = b1 / a1

        'IM商机量

        Cells(14, 5) = c1

        '转录入量

        Cells(14, 6) = d1

        '转录入率

        Cells(14, 7) = d1 / c1

        '转带看量

        Cells(14, 8) = e1

        '转带看率

        Cells(14, 9) = e1 / c1

        '转成交量

        Cells(14, 10) = f1

        '转成交率

        Cells(14, 11) = f1 / c1

    Next

    '公司

    '会话数

    Cells(15, 2) = a1 + a2

     '1分钟响应量

    Cells(15, 3) = b1 + b2

    '1分钟响应率

    Cells(15, 4) = (b1 + b2) / (a1 + a2)

    'IM商机量

    Cells(15, 5) = c1 + c2

    '转录入量

    Cells(15, 6) = d1 + d2

    '转录入率

    Cells(15, 7) = (d1 + d2) / (c1 + c2)

    '转带看量

    Cells(15, 8) = e1 + e2

    '转带看率

    Cells(15, 9) = (e1 + e2) / (c1 + c2)

    '转成交量

    Cells(15, 10) = f1 + f2

    '转成交率

    Cells(15, 11) = (f1 + f2) / (c1 + c2)

    a1 = 0

   b1 = 0

   c1 = 0

   d1 = 0

   e1 = 0

   f1 = 0

   a2 = 0

   b2 = 0

   c2 = 0

   d2 = 0

   e2 = 0

   f2 = 0

   '格式

   Sheets("买卖4").Select

'转带看率排序

    Range("A1:K12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12") _

        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:K12")

        .Apply

    End With

'400接听率率条件格式

Range("d2:d12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'转录入率条件格式

Range("g2:g12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'转带看率条件格式

Range("i2:i12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'转成交率条件格式

Range("k2:k12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

Sheets("买卖M").Select

'转带看率排序

    Range("A1:K12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12"), _

        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:K12")

        .Apply

    End With

'IM1分钟响应率条件格式

Range("d2:d12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

 'IM1转录入率条件格式

   Range("g2:g12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'IM1转带看率条件格式

   Range("i2:i12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'IM1转成交率条件格式

   Range("k2:k12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

Sheets("买卖M转录").Select

'3日内复聊率

    Range("A1:K12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12") _

        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:K12")

        .Apply

    End With

    Range("H2:H12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

    Range("I2:I12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

    Range("J2:J12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

Sheets("买卖总").Select

'转带看率排序

    Range("A1:H12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("F2:F12"), _

        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:H12")

        .Apply

    End With

 '转录入率条件格式

   Range("D2:D12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'IM1转带看率条件格式

   Range("F2:F12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'转成交率条件格式

   Range("H2:H12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

Sheets("新4").Select

'转带看率排序

    Range("A1:K12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("I2:I12") _

        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:K12")

        .Apply

    End With

'400接听率率条件格式

Range("d2:d12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'转录入率条件格式

Range("g2:g12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'转带看率条件格式

Range("i2:i12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'转成交率条件格式

Range("k2:k12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

Sheets("新M").Select

Range("A1:K12").Select

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear

    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("D2:D12"), _

        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.ActiveSheet.Sort

        .SetRange Range("A1:K12")

        .Apply

    End With

'IM响应率_新房条件格式

    Range("D2:D12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'IM加私率_新房条件格式

    Range("G2:G12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

 'IM转带看率_新房条件格式

    Range("i2:i12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

'IM转成交率_新房条件格式

    Range("k2:k12").Select

    Selection.FormatConditions.AddColorScale ColorScaleType:=3

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

        xlConditionValueLowestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

        .Color = 7039480

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

        xlConditionValuePercentile

    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

        .Color = 8711167

        .TintAndShade = 0

    End With

    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

        xlConditionValueHighestValue

    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

        .Color = 8109667

        .TintAndShade = 0

    End With

Application.DisplayAlerts = True

MsgBox Timer - t

End Sub
vba--数组，多个表中的程序合并到一起，设置为一个按钮的更多相关文章

oracle数据库表中，插入数据的时候如何产生一个字母+数字编号?
Oracle 语句中“||”代表什么啊? oracle数据库表中,插入数据的时候如何产生一个字母+数字编号? 排序的话,用order by来处理即可.比如:cola123a234b999b335s ...
IOS小技巧——使用FMDB时如何把一个对像中的NSArray数组属性存到表中
http://blog.csdn.net/github_29614995/article/details/46797917 在开发的当中,往往碰到要将数据持久化的时候用到FMDB,但是碰到模型中的属性 ...
oracle 中从一个历史表中查询最新日期数据插入到另一个表中语句
先从历史表中查询最新的一个语句: select t.id from ( select r.*, row_number() over(partition by r.分组字段 order by r.排序时 ...
sql语句-如何在SQL以一个表中的数据为条件据查询另一个表中的数据
select *from 表2where 姓名 in (select 姓名from 表1where 条件) 这个就是用一个表的查询结果当作条件去查询另一个表的数据
如何使用django操作数据库，向原有表中添加新的字段信息并建立一个多对多的关系？
(注:本人用的pycharm开发工具) 1.在你要添加新字段的app的 models.py 文件中添加需要新增的字段(book表新增authors字段并和author建立多对多关系,author表新增 ...
mysql根据某个字符串拆分表中的字段，然后赋值给另外一个字段
sql语句示例: UPDATE user_info SET area_code = SUBSTRING_INDEX(telphone,'-',1) SUBSTRING_INDEX函数说明: subs ...
mysql将一个表中字段A的值赋给另一个表的字段B
# mysql 的修改方法 update table_a a inner join table_b b on b.id=a.id set a.description=b.content; # mssq ...
如何把一个表中的部分字段值插入到另一个表中去这sql吊
Insert into JHAC_TB_CODE(CID,CODE,ADD_TIME,USERID,PRO_CODE,USERNAME) select f_code.FID,f_code.Fcod ...
获取当前表中的最大自增id的下一个自增id值
SELECT auto_increment FROM information_schema.`TABLES` WHERE TABLE_SCHEMA='{$db_name}' AND TABLE_NAM ...
vue中超简单的方法实现点击一个按钮出现弹框，点击弹框外关闭弹框
效果图展示: View层 <template> <div> <div class="mask" v-if="showModal" ...
随机推荐

golang复用http.request.body
golang复用http.request.body 问题及场景业务当中有需要分发http.request.body的场景.比如微信回调消息只能指定一个地址,所以期望可以复制一份消息发给其他服务.由服 ...
grads读取nc格式文件
一.通常: 1.grads读取grd和ctl:open ****.ctl 2.执行gs脚本:run ****.gs d命令,display展示数据,常用来显示变量,比如rh,rain等 q命令, ...
Java 工程文件的 .gitignore
以下是一个排查 Java 工程文件的 .gitignore 文件示例: # Java 编译器生成的文件 *.class # Maven 生成的文件夹 target/ # Eclipse 生成的文件夹 ...
Vue3:Cannot read properties of null (reading 'isCE')
Cannot read properties of null (reading 'isCE') 这个问题是在vue3中引入elementui的列表框时出现的.经过网上查询,有说是装了两个vue版本 ...
go高并发之路——go语言如何解决并发问题
一.选择GO的原因作为一个后端开发,日常工作中接触最多的两门语言就是PHP和GO了.无可否认,PHP确实是最好的语言(手动狗头哈哈),写起来真的很舒爽,没有任何心智负担,字符串和整型压根就不用区分, ...
SDXL
SDXL 模型经过训练可以创建具有更好图像质量的更大图像.它们还可以拍摄 512x512 分辨率的优质图像,因此就图像质量而言,它们通常是 SD 1 或 2 型号的良好替代品. 但是,它们确实会消耗更 ...
自定义Naive UI的数据表格Data Table中按钮Button图标
在Naive UI官网中详细介绍了[数据表格 Data Table](数据表格 Data Table - Naive UI)的使用方式 { title: "Action", key ...
Vue cli之在组件中使用axios
默认情况下,我们的项目中并没有对axios包的支持,所以我们需要下载安装. 在项目根目录中使用 npm安装包: npm install axios 接着在main.js文件中,导入axios并把axi ...
RDP 端口转发多窗口运行
需要设置本机的默认端口进行修改优点:(1)部署简单.Windows自带,支持IPv4和IPv6(2)不用重启机器,还长记性.命令即时生效,重启系统后配置仍然存在.缺点:(1)不支持UDP(2)XP/ ...
C# JObject.Add方法代码示例
本文整理汇总了C#中Newtonsoft.Json.Linq.JObject.Add方法的典型用法代码示例.如果您正苦于以下问题:C# JObject.Add方法的具体用法?C# JObject.Ad ...
vba--数组，多个表中的程序合并到一起，设置为一个按钮

vba--数组，多个表中的程序合并到一起，设置为一个按钮的更多相关文章

随机推荐

热门专题
